| 查看: 1030 | 回复: 8 | ||||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||||
[求助]
求一个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 |
回复此楼» 猜你喜欢
315求调剂
已经有8人回复
-
312求调剂
已经有5人回复
-
一志愿郑州大学材料与化工085600，求调剂
已经有4人回复
-
315分 085602 求调剂
已经有7人回复
-
298分 070300求调剂
已经有5人回复
-
349求调剂
已经有9人回复
-
302求调剂
已经有4人回复
-
化工调剂303分，过四级
已经有10人回复
-
321求调剂
已经有14人回复
-
296材料专硕求调剂
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于龙格库塔法的求解时间步长设定问题
已经有2人回复
- 注册化工工程师须知
已经有23人回复
- intel visual fortran中MKL如何使用，是用use module还是include？
已经有4人回复
- FORTRAN中一个奇怪的现象，求解释。
已经有4人回复
- 【转帖】GrADS使用简介（转载）
已经有0人回复
- 【转帖】强烈推荐使用phonopy计算声子谱
已经有44人回复
chentianyu1
木虫 (小有名气)
- 应助: 67 (初中生)
- 金币: 2579
- 散金: 66
- 帖子: 252
- 在线: 450.2小时
- 虫号: 532712
- 注册: 2008-03-25
- 性别: GG
- 专业: 计算机网络
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
guoman2006: 金币+30, ★★★很有帮助 2012-11-05 11:10:50
感谢参与，应助指数 +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） |
guoman20064楼2012-11-04 15:18:02
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2012-11-04 12:43:17
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555230
- 散金: 27828
- 红花: 2148
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
guoman2006: 金币+10, ★有帮助 2012-11-05 11:10:39
感谢参与，应助指数 +1
guoman2006: 金币+10, ★有帮助 2012-11-05 11:10:39
| 在编辑器内使用单步执行方式，楼主就能理解每句的含义了 |
» 本帖已获得的红花（最新10朵）
3楼2012-11-04 13:53:54
5楼2012-11-04 22:46:40
