このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1342966104/136
#  [1] 授業単元:C言語  
#  [2] 問題文(含コード&リンク):  
#  cos(3t)を計算しtとcos(3t)をdata1.datに保存し エクセルグラフを書くこと 
#  ただし t=0.0 , 0.1, 0.2 , 0.3 ,,,,,,,, 360.0 とすること 
#  

'cos(3t)を計算しtとcos(3t)をdata1.datに保存しエクセルグラフを書くこと。 ただしt=0.0 , 0.1, 0.2 , 0.3 ,,,,,,,, 360.0 とすること' :-
        'cos(3t)を計算する。ただしt=0.0 , 0.1, 0.2 , 0.3 ,,,,,,,, 360.0 とすること'(L),
        'data1.datに保存する'(L).

'cos(3t)を計算する。ただしt=0.0 , 0.1, 0.2 , 0.3 ,,,,,,,, 360.0 とすること'(L) :-
        findall([_t,_cos_3t],(
                    for(0,3600,N),
                    _t is N / 10,
                    _cos_3t is cos(3 * 2 * pi * _t / 360)),
                L).

'data1.datに保存する'(L) :-
        open('data1.dat',write,Outstream),
        append(_,[[_t,_cos_3t]|R],L),
        writef(Outstream,'%t %t\n',[_t,_cos_3t]),
        R = [],
        close(Outstream).