/*
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=1 //number of calculations on the page

var xnm=3 //maximum number of independant variables
var ynm=0 //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]="visc"
scrp[calcnum]="dynkinvisc"
ttlem[calcnum]="Viscosity"

xnme[calcnum][1]="dv"
xtxt[calcnum][1]="dynamic viscosity"
xunt[calcnum][1]="Nsm<sup>-2</sup>"
xnme[calcnum][2]="kv"
xtxt[calcnum][2]="kinematic viscosity"
xunt[calcnum][2]="m<sup>2</sup>s<sup>-1</sup>"
xnme[calcnum][3]="rho"
xtxt[calcnum][3]="density"
xunt[calcnum][3]="kgm<sup>-3</sup>"

function dynkinvisc(cm){

	if(document.visc.dv.value!=""){
		xvrb[cm][1]=parseFloat(document.visc.dv.value)
		if(document.visc.kv.value!=""){
			xvrb[cm][2]=parseFloat(document.visc.kv.value)
			xvrb[cm][3]=xvrb[cm][1]/xvrb[cm][2]
			document.visc.rho.value=xvrb[cm][3]
		}else if(document.visc.rho.value!=""){
			xvrb[cm][3]=parseFloat(document.visc.rho.value)
			xvrb[cm][2]=xvrb[cm][1]/xvrb[cm][3]
			document.visc.kv.value=xvrb[cm][2]
		}
	}else{
	xvrb[cm][2]=parseFloat(document.visc.kv.value)
	xvrb[cm][3]=parseFloat(document.visc.rho.value)
	xvrb[cm][1]=xvrb[cm][2]*xvrb[cm][3]
	document.visc.dv.value=xvrb[cm][1]
	}
	

}