/*
Science & Engineering Encyclopaedia. Copyright Dirac Delta Consultants Ltd. 2001-2002

No part of this document may be reproduced or transmitted in any form or by any mean, electronic or mechanical, including printing, placing on the internet or by any information storage and retrieval system without permission from the Publisher in writing
*/


//Set Up global variables of correct size

var numcalcs=2  //number of calculations on the page

var xnm= 3 //maximum number of independant variables
var ynm= 1 //maximum number of dependant variables

xnme=new Array(numcalcs)
ynme=new Array(numcalcs)

xtxt = new Array(numcalcs)
ytxt = new Array(numcalcs)

xunt = new Array(numcalcs)
yunt= new Array(numcalcs)

xvrb = new Array(numcalcs)
yvrb= new Array(numcalcs)

for (i=0;i<numcalcs;i++){

	xnme[i]=new Array(xnm)
	ynme[i]=new Array(ynm)
	
	xtxt[i] = new Array(xnm)
	ytxt[i] = new Array(ynm)

	xunt[i] = new Array(xnm)
	yunt[i] = new Array(ynm)

	xvrb[i] = new Array(xnm)
	yvrb[i] = new Array(ynm)
}

frm = new Array(numcalcs)
scrp = new Array(numcalcs)
ttlem = new Array(numcalcs)

//+++++++++
// Start calc 1

calcnum=0

frm[calcnum]="intensity"
scrp[calcnum]="inten"
ttlem[calcnum]="Half-Wave Voltage Calculation"

xnme[calcnum][1]="lambda1"
xtxt[calcnum][1]="Calibration Wavelength"
xunt[calcnum][1]="nm"
xnme[calcnum][2]="hwvolt"
xtxt[calcnum][2]="Calibrated Half-Wave Voltage"
xunt[calcnum][2]="Volts"
xnme[calcnum][3]="lambda2"
xtxt[calcnum][3]="New Wavelength"
xunt[calcnum][3]="nm"
ynme[calcnum][1]="hwvolt2"
ytxt[calcnum][1]="New Half-Wave Voltage"
yunt[calcnum][1]="Volts"


function inten(cm){
	xvrb[cm][1]=parseFloat(document.intensity.lambda1.value)
	xvrb[cm][2]=parseFloat(document.intensity.hwvolt.value)
	xvrb[cm][3]=parseFloat(document.intensity.lambda2.value)
	yvrb[cm][1]=xvrb[cm][2]*xvrb[cm][3]/xvrb[cm][1]

	document.intensity.hwvolt2.value=yvrb[cm][1]
	
}

//+++++++++
// Start calc 2 ...etc...

calcnum=1
frm[calcnum]="phase"
scrp[calcnum]="phse"
ttlem[calcnum]="Phase Modulation Calculation"

xnme[calcnum][1]="hwvolt"
xtxt[calcnum][1]="Half-Wave Voltage"
xunt[calcnum][1]="Volts"

xnme[calcnum][2]="hwvolt2"
xtxt[calcnum][2]="Applied Voltage"
xunt[calcnum][2]="Volts"

ynme[calcnum][1]="theta"
ytxt[calcnum][1]="Theta"
yunt[calcnum][1]="Radians"


function phse(cm){

	xvrb[cm][1]=parseFloat(document.phase.hwvolt.value)
	xvrb[cm][2]=parseFloat(document.phase.hwvolt2.value)
	yvrb[cm][1]=3.1415926535897*xvrb[cm][2]/xvrb[cm][1]
	document.phase.theta.value=yvrb[cm][1]

}