07/11/03 07:36:28
>>819
ありがとうございます。
display2d:false $ ratprint:false $ fpprec:8 $
fb(x) := b6*x^6 + b5*x^5 + b4*x^4 + b3*x^3 + b2*x^2 + b1*x + b0 $
cof:solve([ fb(-5)= -7260.3313, fb(5)= -5974.0679, fb(15)= -4943.6644,
fb(25)= -4136.0326, fb(35)= -3513.7263, fb(45)= -2993.4723,
fb(55)= -2566.961 ],[b6,b5,b4,b3,b2,b1,b0]) $
cof;
for i:1 thru 7 do
print("b", 7-i, "=", bfloat(rhs(cof[1][i]))) $
これの print() 出力をファイルに書き出したい、というのが質問でした。
その他ヒントがありましたら、よろしく。