沢渡 みかげ #525(2007/07/11 03:30 GMT) [ Mathematica ] Rating0/0=0.00
Mathematicaには曜日を数値で取得する方法がないようなので，テーブルを自前で持つようにしました． PrintWeek[{2007, 12, 31}]; のように実行します． かなり処理が遅いようです…．
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
<< Miscellaneous`Calendar`; PrintWeek[day_] := Module[{dayhash, calcday, i}, dayhash[Sunday] = 0; dayhash[Monday] = 1; dayhash[Tuesday] = 2; dayhash[Wednesday] = 3; dayhash[Thursday] = 4; dayhash[Friday] = 5; dayhash[Saturday] = 6; startday = DaysPlus[day, -dayhash[DayOfWeek[day]]]; For[i = 0, i < 7, i++, calcday = DaysPlus[startday, i]; Print[calcday, " (", DayOfWeek[calcday], ")"]; ]; ];
Rating0/0=0.00-0+
[ reply ]
沢渡 みかげ
#525()
[
Mathematica
]
Rating0/0=0.00
Mathematicaには曜日を数値で取得する方法がないようなので，テーブルを自前で持つようにしました． PrintWeek[{2007, 12, 31}]; のように実行します． かなり処理が遅いようです…．<< Miscellaneous`Calendar`; PrintWeek[day_] := Module[{dayhash, calcday, i}, dayhash[Sunday] = 0; dayhash[Monday] = 1; dayhash[Tuesday] = 2; dayhash[Wednesday] = 3; dayhash[Thursday] = 4; dayhash[Friday] = 5; dayhash[Saturday] = 6; startday = DaysPlus[day, -dayhash[DayOfWeek[day]]]; For[i = 0, i < 7, i++, calcday = DaysPlus[startday, i]; Print[calcday, " (", DayOfWeek[calcday], ")"]; ]; ];Rating0/0=0.00-0+
[ reply ]