//CHECKJS d:\BOB\PROMOTE\PROFWORK\SOFTWARE\FIRST\JS\acidbase\graph.js 6/7/02 2:45:45 AM
/* graphing.js
8:29 AM 10/10/2002 BH added scalable graph
interfaces to one of two gnuplot servers
and also divgraph.js for JavaScript graphing
quickgraph() creates a dynamic plot in a graphing window
quickpoint() adds a point to that graph
jsgraph() creates a new window with the graph
*/
_Sform=new Array()
var debug=false
var ispng=false
var isgif=false
var iseps=false
var isjs=true
var Labels=new Array()
var Data=new Array()
var Info=new Array()
var woptionsgnu="menubar,scrollbars,resizable,alwaysRaised"
var woptionsjs="menubar=yes,scrollbars,alwaysRaised,width=700,height=400,left=50"
function creategnuplot(_iform,stitle,colormode,sinfo){
if(sinfo.length==0)return
var s=stitle+"
"+strsub(_Sform[_iform],"%sinfo%",sinfo)
var s=strsub(s,"%colormode%",colormode)
// if(ismac)s=strsub(s,"\n","\r")
putnewwindow(s,woptionsgnu)
}
function dograph()
{
setserver()
var usr=parent.fraStatus.document.info
ispng=(Display["PNG"]<0?false:usr.o_display[Display["PNG"]].checked)
iseps=(Display["EPS"]<0?false:usr.o_display[Display["EPS"]].checked)
isjs=(Display["CSS"]==-2?true:Display["CSS"]<0?false:usr.o_display[Display["CSS"]].checked)
_iform=(ispng?1:0)
if(isjs){
jsgraph()
return
}
var swhat="Titration Curve
"
swhat+=""+npts+ " data points
"
swhat+="
more about gnuplot"
swhat+="
"+strsub(stitle,"|","
")+"
"
var sep=" "
var ssrc='set tmargin 10;set bmargin 10;set lmargin 10;set rmargin 10'+nl
ssrc+='set title "'+strsub(stitle,"|","\\n")+'"'+nl
ssrc+='set data style lines'+nl
ssrc+='set xzeroaxis;set tics out'+nl
ssrc+='set xlabel "mL added"'+nl
ssrc+='set ylabel "pH"'+nl
ssrc+='set tics out'+nl
ssrc+='set yrange [0:14]'+nl
ssrc+="plot '-' title ''"+nl
ssrc+=strsub(usr.xydata.value,","," ")
ssrc+="e \n"
creategnuplot(_iform,swhat,"color",ssrc)
}
function jsgraph(){
var x=0
var y=0
var n=0
var usr=parent.fraStatus.document.info
var sdata=strsub(usr.xydata.value,"\n",",")
sdata=strsub(sdata,"\r",",")+","
sdata=strsub(sdata,",,",",")
var sm=""+Math.random()
sm=sm.substring(3,10)
var newwin=open("","js_"+sm,woptionsjs)
newwin.document.open()
newwin.document.write("")
var D=sdata.split(",")
Data=new Array()
Labels=new Array() //global
Info=new Array()
for(i=0;iPrint Close"
Info.xaxislabel="mL added"
Info.yaxislabel="pH"
Info.xmin = 0
Info.xmax = NaN
Info.ymin = 0
Info.ymax = 14
Info.defaultcolor="blue"
Info.graphwidth=600
Info.graphheight=280
Info.graphtop=85
Info.graphleft=50
Info.ptsize=2
Info.ticwidth=1
Info.xticfirst=0
Info.xticmajor=(mL_2>=500?100:mL_2>=50?10:mL_2>5?1:mL_2>1?1:.1)
Info.xticminor=(mL_2>=500?20:mL_2>=50?2:mL_2>5?.2:.1)
Info.yticfirst=0
Info.yticmajor=1
Info.yticminor=1
Info.maxaddpoints=2
Info.ptsize=4
Info.docurve=false
Info.dopoints=true
Info.xnumdigits=Info.ynumdigits=0
GRinit()
GRsetgraphwindow(newwin)
GRdrawgraph("",Data,Labels,Info)
newwin.document.write("")
newwin.document.write("")
newwin.document.close()
}
function putnewwindow(s,opt){
var sm=""+Math.random()
sm=sm.substring(3,10)
var newwin=open("","AB_"+sm,opt)
dowrite(newwin.document,s)
return newwin
}
function quickgraph(iend){
divdoc=parent.fraGraph.document
divdoc.open()
divdoc.write("")
Labels=new Array()
Data=new Array([NaN,NaN])
mL_2=iend
Info.doptlabels=Info.dopoints=true
Info.docurve=Info.doxticnums=Info.doyticnums=false
Info.dogridx=Info.dogridy=true
Info.title=""
Info.xaxislabel=""
Info.yaxislabel=""
Info.xmin = 0
Info.xmax = mL_2
Info.ymin = 0
Info.ymax = 14
Info.defaultcolor="blue"
Info.graphwidth=(parent.fraGraph.innerWidth?parent.fraGraph.innerWidth:divdoc.body && divdoc.body.clientWidth?divdoc.body.clientWidth:480)-80
Info.graphheight=(parent.fraGraph.innerHeight?parent.fraGraph.innerHeight:divdoc.body && divdoc.body.clientHeight?divdoc.body.clientHeight:90)-40
Info.graphtop=10
Info.graphleft=20
Info.ptsize=3
Info.ticwidth=1
Info.xticfirst=0
Info.xticmajor=(mL_2>=500?100:mL_2>=50?10:mL_2>5?1:mL_2>1?1:.1)
Info.xticminor=(mL_2>=500?20:mL_2>=50?2:mL_2>5?.2:.1)
Info.yticfirst=0
Info.yticmajor=7
Info.yticminor=1
Info.maxaddpoints=titrationpts*2
Info.append=false
Info.keepopen=true
GRinit()
GRsetgraphwindow(parent.fraGraph)
GRdrawgraph("",Data,Labels,Info)
divdoc=parent.fraGraph.document
divdoc.write("")
divdoc.close()
GRaddtext(iend*1.02,1,""+iend+" mL")
}
function quickpoint(mL,pH){
GRaddpointref(mL,pH,"pH "+roundoff(pH,2)+" at "+roundoff(mL,2)+" mL",pHcolor(pH),"javascript:parent.fraMain.showpt("+mL+")")
}
function setserver(){
//gif server
//gnuserver="http://onsager.bd.psu.edu/cgi-bin/gnuplot.cgi"
//_Sform[0]=""
//png server
var s=document.URL
var gserver="http://www.stolaf.edu/cgi-bin/gnuplot.pl"
//EPS server
_Sform[0]=""
if(s.indexOf("stolaf.edu")>0){
gserver="http://www.stolaf.edu/cgi-bin/gnuplot.pl"
_Sform[1]=""
}else{
gserver="http://onsager.bd.psu.edu/cgi-bin/gnuplot.cgi"
_Sform[1]=""
}
}