このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/228
#  【質問テンプレ】  
#  [1] 授業単元:  
#  [2] 問題文(含コード&リンク):  
#  
# 角度thetaを媒介変数として,(x,y)を計算してください.
# thetaは0度から360度まで変化させた場合の(x,y)を出力せよ。
# 
# x=acosθ 
# y=bsin(θ+α)
# 
# ともうひとつ。
# 
# 「個体群動態で N(t+dt) - N(t) = (r - hN(t)) N(t) として,rを増 殖率,hをこみあいの効果とする。
# 適当な,N(0) r, h を与えて, N(t) の変化を示しなさい。
# 

'角度thetaを媒介変数として,(x,y)を計算してください.thetaは0度から360度まで変化させた場合の(x,y)を出力せよ。' :-
        append(_,[A|R1],[0.0,0.2,0.4,0.6,0.8,1.0]),
        append(_,[B|R2],[0.0,0.2,0.4,0.6,0.8,1.0]),
        append(_,[_alpha|R3],[0.0,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0]),
        for(0,_theta角度,360),
        _ラジアン角 is pi * _theta角度 / 180,
        X = A * cos(_ラジアン角),         
        Y = B * sin(_ラジアン角 + _alpha),
        write_formatted('A=%t,B=%t,_alpha=%tの時,_theta角度=%t,X = %t,Y = %t\n',[A,B,_alpha,_theta角度,X,Y]),
        _theta角度 = 360,
        write('\n'),
        R3 = [],
        R2 = [],
        R1 = [],!.