medplot=: 3 : 0
fn=:'d:\XLDLM\DLM_Parameter\dlmfna.txt'
fs=:'d:\XLDLM\DLM_Parameter\dlmsap.txt'
AFN =: ReadF fn
'A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 A13'=: ReadP fs
ds=:(1!:1)<AFN
dm=:"._2}."1((($dat)%A4+2),A4+2)$ds
X=.>:i.(A4%A12)
i=:0
while. i<A2 do. 'a b d'=.> medfit Y=.i{dm
X=.>:i.(A4%A12)
M=.a+b*X
plot X;Y,M,((1 _1)*d)+"0 1 M
i=.>:i
end.
)
In this small program I use plot. It works well and displays the first Plot.
But why the system hangs when I try to continue? Thank you in advance for
any advice.
Hermann Wandelt
______________________
Hermann Wandelt
Schustersweid 6
47665 Sonsbeck
E-Mail: [email protected]
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
