mathematica吧 关注：19,812贴子：73,867
- 17回复贴，共1页
Dynamic[Module[{makeHand,hour,min,sec,ht,mt,st},Clock[];
makeHand=Function[{fl, bl, fw, bw},Polygon[{{-bw, -bl}, {bw, -bl}, {fw, fl}, {0, fl + 8 fw}, {-fw, fl}}/9]];{hour,min,sec}=Take[DateList[],-3];ht=Pi/2-2Pi hour/12-2Pi min/720;mt=Pi/2-2Pi min/60;st=Pi/2-2Pi Floor[sec]/60;Graphics[{{Thick,Arrowheads[0.06],Rotate[makeHand[5, 5/3, .1, .3],ht-Pi/2,{0,0}],Gray,Rotate[makeHand[7, 7/3, .1, .3],mt-Pi/2,{0,0}],EdgeForm[Black],Red,Rotate[makeHand[7, 7/3, .1/2, .3/2],st-Pi/2,{0,0}]},{PointSize[Large],White,Point[{0,0}]},{EdgeForm[{Gray,Thick}],Opacity[0.2],Annulus[{0,0},{1,1.05}]},{Table[{AbsoluteThickness[If[Mod[a,30]==0,3,1]],Line[{.9 #, .95 #}]&@AngleVector[a Degree]},{a,0,360,6}]},Table[Text[Style[i,24], .77 AngleVector[Pi/2-i Pi/6]], {i,12}],Text[Style[StringTake[DateString[],-8],16],{0,1.2}]}]]]
makeHand=Function[{fl, bl, fw, bw},Polygon[{{-bw, -bl}, {bw, -bl}, {fw, fl}, {0, fl + 8 fw}, {-fw, fl}}/9]];{hour,min,sec}=Take[DateList[],-3];ht=Pi/2-2Pi hour/12-2Pi min/720;mt=Pi/2-2Pi min/60;st=Pi/2-2Pi Floor[sec]/60;Graphics[{{Thick,Arrowheads[0.06],Rotate[makeHand[5, 5/3, .1, .3],ht-Pi/2,{0,0}],Gray,Rotate[makeHand[7, 7/3, .1, .3],mt-Pi/2,{0,0}],EdgeForm[Black],Red,Rotate[makeHand[7, 7/3, .1/2, .3/2],st-Pi/2,{0,0}]},{PointSize[Large],White,Point[{0,0}]},{EdgeForm[{Gray,Thick}],Opacity[0.2],Annulus[{0,0},{1,1.05}]},{Table[{AbsoluteThickness[If[Mod[a,30]==0,3,1]],Line[{.9 #, .95 #}]&@AngleVector[a Degree]},{a,0,360,6}]},Table[Text[Style[i,24], .77 AngleVector[Pi/2-i Pi/6]], {i,12}],Text[Style[StringTake[DateString[],-8],16],{0,1.2}]}]]]
