. This is dataplot program dasilva41.dp (from dasilva21.dp on March 6, 2011)
. Purpose: Determine the best setting for primary factor = wetting agent (4 levels)
. (robust over surface, relative humitidy, and wipe material)
. Contact: Sandra DaSilva
. Date: January 25, 2010 ==> March 18, 2011
.
. -----start point-----
.
let casemeth = 1;. specify plate count method
. let casemeth = 2;. specify fluorescence microscopy method
.
. call jjfcolor.dp
. call dasilvacolor.dp
call dasilvacolor2.dp
let string darkgree = 76
.
let string trailer = dasilva41.dp
.
. -----Step 0: Define Sandra's Manuscript Graphics Preferences-----
.
. set postscript font times bold
. set postscript font trom
. set postscript font times
. set postscript font helv
.
set postscript font helb
tic position inside
frame thickness .25
tic thickness .25
label size 4
.
. -----Step 1: Read in the data-----
.
skip 50
read dasilva40.dat y1 y2 y3 y4 y5 x1 x2 x3 x4 x5
stat v
.
let dothis = 0
if dothis = 1
.
loop for j = 1 1 5
delete target; let target = y^j
delete y1 y2 y3 y4 y5 x1 x2 x3 x4 x5 subset target -999
end loop
.
loop for j = 1 1 5
delete target; let target = x^j
delete y1 y2 y3 y4 y5 x1 x2 x3 x4 x5 subset target -999
end loop
.
end if
.
let surf = x1
let rh = x2
let mat = x3
let wet = x4
.
. -----Step 2: Define strings-----
.
let string stwet1 = T80
let string stwet2 = Hsub()2unsb()O
let string stwet3 = PBS
let string stwet4 = PBST
.
let string stsurf1 = S
let string stsurf2 = G
.
let string strh1 = 45
let string strh2 = 75
.
let string stmat1 = P
let string stmat2 = C
let string stmat3 = PR
.
. -----Step 11: Block Plot the data-----
call jjferror.dp
.
.
let casefact = 1
let casemeth = 1
delete y; let y = y2
call dasilva41wet.dp
.
let casemeth = 2
delete y; let y = y4
call dasilva41wet.dp
.
let casefact = 2
let casemeth = 1
delete y; let y = y2
call dasilva41surf.dp
.
let casemeth = 2
delete y; let y = y4
call dasilva41surf.dp
.
let casefact = 3
let casemeth = 1
delete y; let y = y2
call dasilva41rh.dp
.
let casemeth = 2
delete y; let y = y4
call dasilva41rh.dp
.
let casefact = 4
let casemeth = 1
delete y; let y = y2
call dasilva41mat.dp
.
let casemeth = 2
delete y; let y = y4
call dasilva41mat.dp
.