〓Mathematica〓
..
787:１３２人目の素数さん
03/11/05 21:33
>>768
Walk2D[n_Integer] :=
FoldList[Plus, {0,0},
{Cos[#], Sin[#]}& /@ Table[Random[Real,{0,2 Pi}], {n}]]
ListPlot[Walk2D[60], PlotJoined->True]
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5175日前に更新/264 KB
担当:undef