曲率が k(t)=t の曲線を描いてみましょう．

fresnel[t_] := { Cos[t^2 /2], Sin[t^2 /2]}

clothoid[t_] := Integrate[ fresnel[tt], {tt, 0, t}]

ParametricPlot[ clothoid[t] // Evaluate, {t, -7, 7} ]

等積アファイン曲率が k(s)=-s の 等積アファイン曲線の（ひとつの）形を描いてみましょう．

DSolve[y''[s]-s y[s] ==0, y[s], s]

? AiryAi

affclothoid[s_]:= Integrate[AiryAi[s] {1,0} + AiryBi[s] {0,1}, s]

ParametricPlot[affclothoid[s]//Evaluate, {s, -7,4}]

問題 C． いろいろな曲線の等積アファイン曲率を計算せよ．

[Top]