このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/790
#  【質問テンプレ】  
#  [1] 授業単元: C言語アルゴリズム 
#  [2] 問題文(含コード&リンク):  
#   
#  【1】.0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) 
#  ヒント:講義中に解説した例:2分法による方程式解法のax+bを上式にする(a,bの読み込みも不要) 
#  例のコードは、http://ime.nu/codepad.org/ImpygN9S です。 
#  ヒント2:sinやcosの括弧内の単位はradianであることに注意(pi*x/180.0) 
#  【2】.0度<=x<=90度の範囲でx,sin(x),cos(x),sin(x)-cos(x)の値を5度刻みで"kadai2.ans"に出力、 
#  ftpでgetしてExcelの散布図を利用してグラフ化し、【1】の解が正しいか確認せよ。 
#  【3】.ax+bとcx+dの交点のx座標を求めよ。(a,b,c,d,許容誤差は自由) 
#  ヒント1:ax+bとcx+dの差が0の所が交点 
#   

f(_x,_y) :-
        _radian is pi * _x / 180,
        _y is sin(_radian) - cos(_radian).

'0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_x) :-
        f(0,_y1),
        f(45,_y2),
        f(90,_y3),
        '0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(0,45,90,_y1,_y2,_y3,_x).


'0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_,_x,_,_,_y2,_,_x) :-
        _y2 < 0.001,!.
'0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_x1,_x2,_x3,_y1,_y2,_y3,_x) :-
        abs(_y1-_y2) < abs(_y3-_y2),
        _x2_2 is (_x1 + _x2) / 2,
        f(_x2_2,_y2_2),
        '0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_x1,_x2_2,_x2,_y1,_y2_2,_y2,_x).
'0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_x1,_x2,_x3,_y1,_y2,_y3,_x) :-
        abs(_y1-_y2) > abs(_y3-_y2),
        _x2_2 is (_x3 + _x2) / 2,
        f(_x2_2,_y2_2),
        '0度<=x<=90度の範囲でf(x)=sin(x)-cos(x)=0の解を求めよ(許容誤差は各自入力) '(_x2,_x2_2,_x3,_y2,_y2_2,_y3,_x).