|
proc(0)=SetLegend(j,ymin,ymax,i,sn);
local a,b;
external matrix _plegctl, _plegend;
if ismiss(_plegend[sn,i,1]);
if abs(ymin)>ymax;
_plegctl=(1~6~floor(j/3)~ymin);
else;
_plegctl=(1~6~floor(j/3)~0.5*ymax);
endif;
else;
a=arraytomat(_plegend[sn,i,1]);
b=arraytomat(_plegend[sn,i,2]);
_plegctl=(1~6~a~b);
endif;
retp;
endp;
proc(1)=String1(s1,s2);
local c;
c=" (" $+ ftos(s1,"*.*lf",6,2) $+ "-" $+ ftos(s2,"*.*lf",6,2) $+ ") ";
retp(c);
endp;
proc(1)=String2(s);
local l1, i1, s1;
s1=ftos(s,"*.*lf",6,2);
l1=strlen(s1);
i1=round((19-l1)/2);
s1=strtruncpad(" ",i1) $+ s1;
i1=strlen(s1);
s1=s1 $+ strtruncpad(" ",19-i1);
retp(s1);
endp;
#include SolveLA4.src;
我看了,但是发现已经把plegend定义了,请帮我看看,谢谢!
程序在附件中,请帮忙运行看一下,由于我gauss刚入门,这么复杂的程序我还看不懂,
多谢!
|