09/06/18 16:46:28
>>227
% Prolog
'cos(x)とx軸で囲まれる領域において、xがa～bの区間の面積を台形積分で求める'(_開始
Ｘ座標,_終了Ｘ座標,X) :-
分割数(_分割数),
_開始Ｘ座標2 is _開始Ｘ座標,
_終了Ｘ座標2 is _終了Ｘ座標,
刻み幅(_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_刻み幅),
Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_Ｙ座標ならび),
台形の総面積(_Ｙ座標ならび,_刻み幅,X).
分割数(30).
台形の総面積([A,B],_刻み幅,X) :-
X is (A+B) * _刻み幅 / 2,!.
台形の総面積([A,B|R],_刻み幅,X) :-
Z is (A+B) * _刻み幅 / 2,
台形の総面積([B|R],_刻み幅,Y),
X is Z + Y.
Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A]) :-
A is cos(_終了Ｘ座標),!.
Ｙ座標ならびを得る(N,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A|R]) :-
A is cos(((_終了Ｘ座標-_開始Ｘ座標) * N / _分割数 + _開始Ｘ座標)),
Ｙ座標ならびを得る(M,_分割数,_開始Ｘ座標,_終了Ｘ座標,R).
刻み幅(_分割数,_開始Ｘ座標,_終了Ｘ座標,_刻み幅) :-
_刻み幅 is (_終了Ｘ座標-_開始Ｘ座標) / _分割数.