//Set Up global variables of correct size

var numcalcs=1    //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]="lc"
scrp[calcnum]="lcontract"
ttlem[calcnum]="Length Contraction"

xnme[calcnum][1]="lo"
xtxt[calcnum][1]="<font face=times size=+1><i>L</i></font><sub>0</sub>"
xunt[calcnum][1]="m"
xnme[calcnum][2]="c"
xtxt[calcnum][2]="<font face=times size=+1><i>c</i></font>"
xunt[calcnum][2]="ms<sup>-1</sup>"
xnme[calcnum][3]="v"
xtxt[calcnum][3]="<font face=times size=+1><i>v</i></font>"
xunt[calcnum][3]="ms<sup>-1</sup>"

ynme[calcnum][1]="lp"
ytxt[calcnum][1]="<font face=times size=+1><i>L&prime;</i></font>"
yunt[calcnum][1]="m"


function lcontract(cm){
xvrb[cm][1]=parseFloat(document.lc.lo.value)
xvrb[cm][2]=parseFloat(document.lc.c.value)
xvrb[cm][3]=parseFloat(document.lc.v.value)

yvrb[cm][1]=xvrb[cm][1]*Math.sqrt(1-xvrb[cm][3]*xvrb[cm][3]/(xvrb[cm][2]*xvrb[cm][2]))

document.lc.lp.value=yvrb[cm][1]


}