24小时热门版块排行榜    

查看: 241  |  回复: 2

oreaxle

金虫 (小有名气)

[求助] 求助一段程序的解释(不知道什么语言写的) 已有1人参与

select case REG(NDATA)
   case is =< 1000
      select case REF(NDATA)
         case is =< 1000
                CC(NDATA)=5
         case is >1000
            select case REF(NDATA)
               case is <2000
                  CC(NDATA)=(5/1000)*REF(NDATA)
               case is => 2000
                  CC(NDATA)=10
            end select
      end select
   case is > 1000
        select case REG(NDATA)
         case is <2000
                select case REF(NDATA)
                         case is =< 1000
                                CC(NDATA)=(7/1000)*REG(NDATA)-2
                         case is >1000
                            select case REF(NDATA)
                                       case is <2000
                                          CC(NDATA)=((3/1000)*REG(NDATA)+2)*(REF(NDATA)/1000)+(4/1000)*REG(NDATA)-4
                                       case is => 2000
                                          CC(NDATA)=(10/1000)*REG(NDATA)
                            end select
                      end select
         case is =>2000
                select case REF(NDATA)
                         case is =< 1000
                                CC(NDATA)=12
                         case is >1000
                            select case REF(NDATA)
                               case is <2000
                                  CC(NDATA)=(8/1000)*REF(NDATA)+4
                               case is => 2000
                                  CC(NDATA)=20
                            end select
                      end select
      end select
end select
DPG(NDATA)=2*FG(NDATA)/DD*MG*JG(NDATA)^2
DPF(NDATA)=2*FF(NDATA)/DD*MF*JF(NDATA)^2
XX(NDATA)=sqr(DPf(NDATA)/DPg(NDATA))
DPT(NDATA)=DPF(NDATA)*(1+CC(NDATA)/XX(NDATA)+1/XX(NDATA)^2)
EPS(NDATA)=(JG(NDATA)+JF(NDATA))/(VOID(NDATA)*MG+(1-VOID(NDATA))*MF)*DPT(NDATA)
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
oreaxle: 金币+15, ★★★★★最佳答案 2016-11-22 09:27:02
看这情况,应该是basic写的,而且是老版本的那种。就是按照前面罗列的条件来进行赋值而已,有点类似于数学里面的分段函数
努力学习!以正当途径!获得需要的知识!
2楼2016-11-21 18:34:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

oreaxle

金虫 (小有名气)

引用回帖:
2楼: Originally posted by jjdg at 2016-11-21 18:34:22
看这情况,应该是basic写的,而且是老版本的那种。就是按照前面罗列的条件来进行赋值而已,有点类似于数学里面的分段函数

谢谢
3楼2016-11-22 09:26:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 oreaxle 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 11:09 by lqtl9djx19
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:54 by lqtl9djx19
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:39 by lqtl9djx19
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:53 by lqtl9djx19
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:38 by lqtl9djx19
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 07:55 by lotyj5cz79
[基金申请] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:40 by lotyj5cz79
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:38 by lotyj5cz79
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:23 by lotyj5cz79
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:08 by lotyj5cz79
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 3/150 2026-02-18 06:53 by lotyj5cz79
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 00:40 by tk2gfblvuz
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 00:23 by tk2gfblvuz
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-17 23:40 by tk2gfblvuz
[基金申请] 基金正文30页指的是报告正文还是整个申请书 +3 successhe 2026-02-16 4/200 2026-02-17 20:56 by successhe
[基金申请] 今年春晚有几个节目很不错,点赞! +5 瞬息宇宙 2026-02-16 6/300 2026-02-17 12:49 by jymy19840415
[微米和纳米] 球磨粉体时遇到了大的问题,请指教! 10+3 6sbiam 2026-02-12 15/750 2026-02-16 15:03 by tgzxzqj
[基金申请] 过年走亲戚时感受到了所开私家车的鄙视链 +3 瞬息宇宙 2026-02-15 5/250 2026-02-16 14:23 by aspect3000
[基金申请] 情人节自我反思:在爱情中有过遗憾吗? +4 瞬息宇宙 2026-02-15 5/250 2026-02-15 22:28 by baiboxie
[硕博家园] 江汉大学解明教授课题组招博士研究生/博士后 +3 cleverlyy 2026-02-12 3/150 2026-02-12 21:02 by qsdf1
信息提示
请填处理意见