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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个fortran程序的解释
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 1036  |  回复: 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的回帖

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的回帖

guoman2006

银虫 (初入文坛)
送鲜花一朵
引用回帖:
3楼: Originally posted by nono2009 at 2012-11-04 13:53:54
在编辑器内使用单步执行方式，楼主就能理解每句的含义了

谢谢您的回复，我对程序比较陌生。能麻烦您讲具体些吗？如何在编辑器内使用单步执行方式？
赞一下 回复此楼
5楼2012-11-04 22:46:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guoman2006

银虫 (初入文坛)
送鲜花一朵
引用回帖:
4楼: Originally posted by chentianyu1 at 2012-11-04 15:18:02
给定一个color变量及一个max变量，输出对应的颜色
其中color和max都是正数，并且color不大于max，color=icol-1，max=imax-1
输出的颜色是一个RGB元组，包括R、G、B三个0到1之间的数，分别代表红、绿、蓝三个颜色分 ...

多谢您的答复。我可以看懂这个程序的基本意思了，不过还有两个问题不明白，还希望您能多指教：（1）rrgbcolor(iout,icol,imax,iprt) 中的最后一个参数iprt是什么意思？起什么作用？
（2）“color和max都是正数，并且color不大于max“，这个我不是很明白。如果我想用’白色到黑色‘来表示0%到100%，该如何设置它们的数值？
赞一下 回复此楼
6楼2012-11-04 22:56:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

RyanHusky

银虫 (初入文坛)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
jjdg: 金币+1, 感谢参与 2012-11-10 01:10:01
guoman2006: 金币+20, ★有帮助 2012-11-10 09:33:11
这是一个color变量及一个max变量对应的输出RGB三色组合的颜色
color和max的定义你自己应该看得懂
输出的颜色是一个RGB三色元素组合，包括R、G、B三个0到1之间的数，分别代表红、绿、蓝三个颜色权重，0就是没有，1就是100%，然后三种颜色的组合
输出显示颜色的效果：
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） R G B 的不同比例混合成不同颜色
你可以在PS中自己试着调和一下。
赞一下 回复此楼
虚怀若谷，深藏若虚。
7楼2012-11-09 11:46:33
已阅   回复此楼   关注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的回帖

RyanHusky

银虫 (初入文坛)

【答案】应助回帖

引用回帖:
8楼: Originally posted by guoman2006 at 2012-11-10 09:32:42
OK，我已经明白了，感谢您回复！...

不客气 互相帮助是应该的 嘛
赞一下 回复此楼
虚怀若谷，深藏若虚。
9楼2012-11-10 16:08:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 guoman2006 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 309求调剂 +11 呆菇不是戴夫 2026-04-02 11/550 2026-04-02 22:48 by 科研小专家
[考研] 一志愿a区211，085601-307分求调剂 +11 党嘉豪 2026-03-31 24/1200 2026-04-02 21:54 by yuq
[考研] 071000生物学调剂 +7 知昭蔓 2026-04-02 7/350 2026-04-02 21:47 by dongzh2009
[考研] 322求调剂：一志愿湖南大学 材料与化工（085600），已过六级。 +12 XX小邓 2026-03-29 13/650 2026-04-02 21:39 by 百灵童888
[考研] 一志愿大工学硕，求调剂 +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by 百灵童888
[考研] 0703化学 +5 goldtt 2026-04-02 7/350 2026-04-02 21:32 by dongzh2009
[考研] 260求调剂 +6 朱芷琳 2026-04-02 6/300 2026-04-02 20:27 by 6781022
[考研] 290求调剂085701 +3 1314捧花 2026-04-02 3/150 2026-04-02 13:34 by Ecowxq666！
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 13:03 by yulian1987
[考研] 一志愿厦门大学化学工程（专硕）-数二英二406分-求调剂 +5 厦大化工 2026-04-01 5/250 2026-04-02 10:03 by jp9609
[考研] 江苏科技大学招材料研究生 +4 Su032713. 2026-04-01 5/250 2026-04-01 22:03 by cccchenso
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 358求调剂 +3 王向阳花 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[考研] 352分-085602-一志愿985 +6 海纳百川Ly 2026-03-29 6/300 2026-03-31 21:06 by yuq
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 8/400 2026-03-31 18:43 by 6266jl
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
[考研] 求调剂 +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[考研] 293分求调剂，外语为俄语 +5 加一一九 2026-03-31 5/250 2026-03-31 09:39 by zhshch
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
信息提示
关闭
请填处理意见
关闭