SASプログラムの作成 

1) 整方程式
x3x2x+ =0 の解
"; $ss=""; $fp = fopen("poly.sas", "r"); $j=0; while(!feof($fp)){ $s[$j]=fgets($fp); $ss=$ss.$s[$j]; $j++; } fclose($fp); $fr = fopen("poly1.sas", "w"); $sss=str_replace(a1,$a1,$ss); $sss=str_replace(a2,$a2,$sss); $sss=str_replace(a3,$a3,$sss); $sss=str_replace(a4,$a4,$sss); fwrite($fr, $sss); fclose($fr); print ""; print " poly1.sas ができています。"; ?> ここから
2) f(x)=を x1=から x2=まで積分
"; $ss=""; $fp = fopen("integ.sas", "r"); $j=0; while(!feof($fp)){ $s[$j]=fgets($fp); $ss=$ss.$s[$j]; $j++; } fclose($fp); $fr = fopen("integ1.sas", "w"); $sss=str_replace(func,$fn,$ss); $sss=str_replace(low,$x1,$sss); $sss=str_replace(up,$x2,$sss); fwrite($fr, $sss); fclose($fr); print ""; print " integ1.sas ができています。"; ?>ここから