- 232 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 05:30:09 ]
- >>229
% Prolog
[IF/Prolog]# prolog -c temp.pro >temp.txt
[SWI-Prolog]# pl -s 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 .
