このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/501
#  [1] 授業単元:C言語入門  
#  [2] 問題文(含コード&リンク): 
#  次式の値を返す関数を作成せよ。 
#  f(x)=e^{-x} cos(2πx) 
#  その関数を用いて0≦x≦3の間で0.1刻みで計算し、結果をリダイレクトで 
#  ファイルに記録せよ。その結果をgnuplotでグラフにして示せ。 
#  

#  次式の値を返す関数を作成せよ。 
#  f(x)=e^{-x} cos(2πx) 
#  その関数を用いて0≦x≦3の間で0.1刻みで計算し、結果をリダイレクトで 
#  ファイルに記録せよ。その結果をgnuplotでグラフにして示せ。

[root]# prolog -c temp.pro >temp.txt

% temp.pro

program :-
        'c137_501:f(x)=e^{-x} cos(2πx) その関数を用いて0≦x≦3の間で0.1刻みで計算'.

'c137_501:f(x)=e^{-x} cos(2πx) その関数を用いて0≦x≦3の間で0.1刻みで計算' :-
        M is truncate((3 - 0) / 0.1),
        for(0,N,M),
        _x is N * 0.1,
        Y is exp(1) ^ (-1 * _x) * cos(2 * pi * _x),
        write_formatted('%t\n',[Y]),
        N = M .