【制作过程】

【制作过程】

1.引入参数变量n、y、r，分别用来表示年、月、日，其中n的最小值设为1，最大值设为10000，步长设为1.y的最小值设为1，最大值设为12，步长设为1.计算m0：if（mod（n，400）==0ormod（n，4）==0andmod（n，100）！=0，1，0）用以计算是否闰年.

计算m1：if（y==1，1，y==2，32，if（m0！=0，if（y==3，61，y==4，92，y==5，122，y==6，153，y==7，183，y==8，214，y==9，245，y==10，275，y==11，306，y==12，336），if（y==3，60，y==4，91，y==5，121，y==6，152，y==7，182，y==8，213，y==9，244，y==10，274，y==11，305，y==12，335））），计算m2：n-1+floor（（n-1）/4）+floor（（n-1）/400）-floor（（n-1）/100）+m1，用来确定某日的位置.

计算m3：mod（m2-1，7），用来确定是星期几.

计算m4：if（y==1ory==3ory==5ory==7ory==8ory==10ory==12，31，y==4ory==6ory==9ory==11，30，y==2，if（m0！=0，29，28））用来确定具体月份的天数.将参数r的最小值设为1，最大值设为m4，步长设为1.

2.引入参数t.计算m5：floor（（t+m3）/7），用来确定某天位置的纵坐标，计算m6：t+m3-7*m5，用来确定某天位置的横坐标.计算m7：t+r^0，建立迭代映像.

3.如图1，在工具栏中选取直角坐标点工具，作坐标点（2*m6，-1.2*m5），将m7与坐标点合并.将合并文本填充颜色改为：红色：255*（if（m6==5orm6==6，0.9，1）+if（t==r-1，0，1）），绿色：255*if（m6==5orm6==6，0.6，1）*if（t==r-1，0，1），蓝色：255*if（m6==5orm6==6，0.9，1）*if（t==r-1，0，1），用颜色来突显周六、周日和当日.(https://www.daowen.com)

4.选中参数t，在下方工具栏中选取迭代工具，作如图2的迭代：

图1　日期底色设置

图2　迭代生成某月日期

5.输入文本，把参数n、y、r引入文本，表示年、月、日.再作一个文本表示星期一至星期日，一个万年历制作完毕.