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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个fortran程序的解释
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 1035  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085600材料与化工调剂 +19 kikiki7 2026-03-30 19/950 2026-04-02 22:05 by ZXlzxl0425
[基金申请] esi高被引论文是不是能对中标有所加分和帮助呢 +4 redcom 2026-04-01 5/250 2026-04-02 20:48 by redcom
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +4 哇呼哼呼哼 2026-04-02 4/200 2026-04-02 13:10 by yulian1987
[考研] 292分，材料与化工，申请调剂 +19 程晴之 2026-04-01 23/1150 2026-04-02 11:59 by 程晴之
[考研] 0856初试324分求调剂 +6 想上学求调 2026-04-01 6/300 2026-04-02 11:42 by 星空星月
[考研] 求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过， +3 计算机追梦人 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[考研] 085602化学工程268分蹲调剂 +8 月照花林。 2026-04-01 8/400 2026-04-01 22:08 by 无际的草原
[考研] 296求调剂 +4 汪！？！ 2026-03-31 7/350 2026-04-01 22:04 by 客尔美德
[考研] 085601材料工程找调剂 +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 311（085601）求调剂 +12 liziyeyeye 2026-03-28 13/650 2026-04-01 00:34 by fmesaito
[考研] 080200学硕，机械工程专业277分，求带走！ +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 材料科学与工程求调剂 +13 深V宿舍吧 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[考研] 本2一志愿C9-333分，材料科学与工程，求调剂 +9 升升不降 2026-03-31 9/450 2026-03-31 18:01 by 无际的草原
[考研] 080500-315分复试调剂 +9 上岸3821 2026-03-31 9/450 2026-03-31 17:29 by 唐沐儿
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 356求调剂 +4 gysy?s?a 2026-03-28 4/200 2026-03-29 10:32 by 唐沐儿
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
信息提示
关闭
请填处理意见
关闭