~闲来无聊，写个求每个月第一天是一年中第几天的小程序~

ouhuining

x为月份，sumday为那年的天数（366,365）

function firstday(x,sumday)

        integer sumday,x
        real firstday
        if(sumday==365) then
    if(x==2) then
                        firstday=-0.0096*x*x*x+0.2288*x*x+28.863*x-27.646+1
          elseif(x==3) then
                        firstday=-0.0096*x*x*x+0.2288*x*x+28.863*x-27.646-1
         else
                        firstday=-0.0096*x*x*x+0.2288*x*x+28.863*x-27.646
         endif
        elseif(sumday==366) then
            if(x==2) then
                        firstday=int(-0.0057*x*x*x+0.1331*x*x+29.603*x-28.404)+1
            else
                        firstday=int(-0.0057*x*x*x+0.1331*x*x+29.603*x-28.404)
            endif
        endif
        end


得出的firstday是real的，需要转换成int，并四舍五入。
如：ddd=nint(firstday(6,366))
结果，ddd=153

哈

mofangbao

哈哈 论坛的topmad曾经貌似也无聊写过一个求指定一天是一年中的第几天的，:lol

善人/jw

欧学长~~

ouhuining

善人/jw 发表于 2011-7-27 20:18

                               
登录/注册后可看大图

欧学长~~

报上大名:)

mofangbao

ouhuining 发表于 2011-7-27 20:30

                               
登录/注册后可看大图

报上大名

哈哈 被认出来了...

topmad

mofangbao 发表于 2011-7-27 20:09

                               
登录/注册后可看大图

哈哈 论坛的topmad曾经貌似也无聊写过一个求指定一天是一年中的第几天的，

清风好记忆啊
我那个程序超级恶心的  因为我不知道有个公式能计算 我那个是递推的

mofangbao

topmad 发表于 2011-7-27 20:58

                               
登录/注册后可看大图

清风好记忆啊
我那个程序超级恶心的  因为我不知道有个公式能计算 我那个是递推的

不说是你的处女作，也是开始学的时候写的嘛，当然记得清楚

topmad

mofangbao 发表于 2011-7-27 21:18

                               
登录/注册后可看大图

不说是你的处女作，也是开始学的时候写的嘛，当然记得清楚

哎，上学时候不好好学习的下场啊

善人/jw

ouhuining 发表于 2011-7-27 20:30

                               
登录/注册后可看大图

报上大名

嘿嘿~~~我是07气候的

ouhuining

善人/jw 发表于 2011-7-27 21:44

                               
登录/注册后可看大图

嘿嘿~~~我是07气候的

嘿嘿，多交流~