应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个fortran程序的解释
51/1返回列表
查看: 963  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

guoman2006

银虫 (初入文坛)

[求助] 求一个fortran程序的解释

subroutine rrgbcolor(iout,icol,imax,iprt)
c     Set the color on a continous 0-1 scale
      if (iprt .eq. 1) write (iout,*) 'stroke'
      if (imax .eq. 1) then
        write (iout,1000) 0.0,0.0,0.0
      else
        rcol=2.0*float(icol-1)/float(imax-1)
        if (rcol .le. 1.0) then
          write (iout,1000) (1.0-rcol),rcol,0.0
        else
          rcol=rcol-1.0
          write (iout,1000) 0.0,(1.0-rcol),rcol
        end if
      end if
      if (iprt .eq. 1) write (iout,*) 'newpath'
      return
1000  format(3f6.2,' setrgbcolor')
      end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-11-03 23:26:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guoman2006

银虫 (初入文坛)
引用回帖:
7楼: Originally posted by RyanHusky at 2012-11-09 11:46:33
这是一个color变量及一个max变量对应的输出RGB三色组合的颜色
color和max的定义你自己应该看得懂
输出的颜色是一个RGB三色元素组合，包括R、G、B三个0到1之间的数，分别代表红、绿、蓝三个颜色权重，0就是没有，1 ...

OK，我已经明白了，感谢您回复！
赞一下 回复此楼
8楼2012-11-10 09:32:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

感谢参与，应助指数 +1
楼主希望别人每句都给你解释一下？ 无语。。。。。。。
赞一下 回复此楼
我同意叔本华的观点，人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活，逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
2楼2012-11-04 12:43:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
guoman2006: 金币+10, ★有帮助 2012-11-05 11:10:39
在编辑器内使用单步执行方式，楼主就能理解每句的含义了
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

guoman2006
3楼2012-11-04 13:53:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chentianyu1

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
guoman2006: 金币+30, ★★★很有帮助 2012-11-05 11:10:50
给定一个color变量及一个max变量，输出对应的颜色
其中color和max都是正数，并且color不大于max，color=icol-1，max=imax-1
输出的颜色是一个RGB元组，包括R、G、B三个0到1之间的数，分别代表红、绿、蓝三个颜色分量
颜色的具体计算方法是：
1、如果max=0，则输出黑色（R=0,G=0,B=0）
2、如果col/max不超过0.5，则输出颜色（R=1-2*col/max, G=2*col/max, B=0）
3、如果col/max已超过0.5，则输出颜色（R=0, G=1-2*col/max, B=2*col/max）
赞一下(1人) 回复此楼

» 本帖已获得的红花（最新10朵）

guoman2006
4楼2012-11-04 15:18:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭