Blog List View

2014全年太阳视路径, 北京天坛圓丘, {09:00} 程式码 

2015-04-11 03:59:17
1008 次阅读

(* 北京天坛圓丘天心石, 纬度=39.87, 经度=116.41 *)
$GeoLocation = {39.87,116.41};
points = Map[QuantityMagnitude,
SunPosition[DateRange[DateObject[{2014, 1, 1, 9, 0}], DateObject[{2014, 12, 31, 9, 0}], 6]]["Values"], {2}];
{{xMin, xMax}, {yMin, yMax}} = Map[{Min[#] - 10, Max[#] + 10} &, Transpose[points]];
yMin = -5;
Graphics[{{Blue, Polygon[{{xMin, yMin}, {xMin, yMax}, {xMax, yMax}, {xMax, yMin}}, VertexColors -> { !(*
TagBox[
ColorSetterBox[RGBColor[0.45098039215686275`, 0.6313725490196078, 0.9019607843137255], "Swatch"],
Setting]), !(*
TagBox[
ColorSetterBox[RGBColor[0.14901960784313725`, 0.2901960784313726, 0.5019607843137255], "Swatch"],
Setting]), !(*
TagBox[
ColorSetterBox[RGBColor[0.14901960784313725`, 0.2901960784313726, 0.5019607843137255], "Swatch"],
Setting]), !(*
TagBox[
ColorSetterBox[RGBColor[0.45098039215686275`, 0.6313725490196078, 0.9019607843137255], "Swatch"],
Setting])}]}, { !(*
TagBox[
ColorSetterBox[RGBColor[0.2, 0.09803921568627451, 0.09803921568627451], "Swatch"],
Setting]), Rectangle[{xMin, yMin}, {xMax, 0}]}, {!(*
TagBox[
ColorSetterBox[RGBColor[0.8941176470588236, 0.8666666666666667, 0.6039215686274509], "Swatch"],
Setting]), Map[Disk[#, 0.5] &, points]}},
Frame -> True, ImageSize -> 500,
PlotLabel->Style["2014全年太阳视路径(北京天坛圓丘09:00)",
FontSize -> 18,FontWeight -> "Bold"]]

北京天坛圓丘_0900.png

发表评论

相关讨论