 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 9 | 1/1 | 返回列表 |
| 查看: 1020 | 回復: 8 | ||||
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 |
回復此樓» 猜你喜歡
0856材料化工調劑 總分330
已經有9人回復
-
085602 化工專碩 338分 求調劑
已經有9人回復
-
352分 化工與材料
已經有4人回復
-
求調劑
已經有8人回復
-
材料求調劑 一志愿哈工大總分298分，前三科223分
已經有3人回復
-
材料求調劑一志愿哈工大324
已經有4人回復
-
085600 286分 材料求調劑
已經有4人回復
-
求調劑
已經有7人回復
-
275求調劑
已經有10人回復
-
286求調劑
已經有6人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 關于龍格庫塔法的求解時間步長設定問題
已經有2人回復
- 注冊化工工程師須知
已經有23人回復
- intel visual fortran中MKL如何使用，是用use module還是include？
已經有4人回復
- FORTRAN中一個奇怪的現(xiàn)象，求解釋。
已經有4人回復
- 【轉帖】GrADS使用簡介（轉載）
已經有0人回復
- 【轉帖】強烈推薦使用phonopy計算聲子譜
已經有44人回復
baobiao007
木蟲 (職業(yè)作家)
中國特色
- 應助: 201 (大學生)
- 金幣: 6482.7
- 散金: 557
- 紅花: 40
- 帖子: 3050
- 在線: 1009.9小時
- 蟲號: 505962
- 注冊: 2008-02-18
- 專業(yè): 應用地球物理學
2樓2012-11-04 12:43:17
nono2009
超級版主 (文學泰斗)
No gains, no pains.
-
專家經驗: +21105 - 應助: 28684 (院士)
- 貴賓: 513.911
- 金幣: 2555230
- 散金: 27828
- 紅花: 2148
- 沙發(fā): 66666
- 帖子: 1602255
- 在線: 65200.9小時
- 蟲號: 827383
- 注冊: 2009-08-13
- 性別: GG
- 專業(yè): 工程熱物理與能源利用
- 管轄: 科研家籌備委員會
【答案】應助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
guoman2006: 金幣+10, ★有幫助 2012-11-05 11:10:39
感謝參與，應助指數(shù) +1
guoman2006: 金幣+10, ★有幫助 2012-11-05 11:10:39
| 在編輯器內使用單步執(zhí)行方式，樓主就能理解每句的含義了 |
» 本帖已獲得的紅花（最新10朵）
guoman20063樓2012-11-04 13:53:54
chentianyu1
木蟲 (小有名氣)
- 應助: 67 (初中生)
- 金幣: 2579
- 散金: 66
- 帖子: 252
- 在線: 450.2小時
- 蟲號: 532712
- 注冊: 2008-03-25
- 性別: GG
- 專業(yè): 計算機網絡
【答案】應助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
guoman2006: 金幣+30, ★★★很有幫助 2012-11-05 11:10:50
感謝參與，應助指數(shù) +1
guoman2006: 金幣+30, ★★★很有幫助 2012-11-05 11:10:50
|
給定一個color變量及一個max變量，輸出對應的顏色 其中color和max都是正數(shù)，并且color不大于max，color=icol-1，max=imax-1 輸出的顏色是一個RGB元組，包括R、G、B三個0到1之間的數(shù)，分別代表紅、綠、藍三個顏色分量 顏色的具體計算方法是： 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） |
» 本帖已獲得的紅花（最新10朵）
4樓2012-11-04 15:18:02
guoman2006
銀蟲 (初入文壇)
- 應助: 0 (幼兒園)
- 金幣: 1914
- 紅花: 1
- 帖子: 24
- 在線: 103.1小時
- 蟲號: 1106852
- 注冊: 2010-09-24
- 專業(yè): 生物化學
5樓2012-11-04 22:46:40
guoman2006
銀蟲 (初入文壇)
- 應助: 0 (幼兒園)
- 金幣: 1914
- 紅花: 1
- 帖子: 24
- 在線: 103.1小時
- 蟲號: 1106852
- 注冊: 2010-09-24
- 專業(yè): 生物化學
6樓2012-11-04 22:56:59
【答案】應助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
jjdg: 金幣+1, 感謝參與 2012-11-10 01:10:01
guoman2006: 金幣+20, ★有幫助 2012-11-10 09:33:11
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之間的數(shù)，分別代表紅、綠、藍三個顏色權重，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
guoman2006
銀蟲 (初入文壇)
- 應助: 0 (幼兒園)
- 金幣: 1914
- 紅花: 1
- 帖子: 24
- 在線: 103.1小時
- 蟲號: 1106852
- 注冊: 2010-09-24
- 專業(yè): 生物化學
8樓2012-11-10 09:32:42
9樓2012-11-10 16:08:02
相關版塊跳轉
我要訂閱樓主 guoman2006 的主題更新
| 9 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調劑 +7 | 張zz111 2026-03-27 | 8/400 |
|
|---|---|---|---|---|
|
|
[考研] 材料求調劑 一志愿哈工大總分298分，前三科223分 +3 | dongfang59 2026-03-27 | 3/150 |
|
|
|
[考研] 085701環(huán)境工程求調劑 +8 | 多久上課 2026-03-27 | 8/400 |
|
|
|
[考研] 學碩274求調劑 +5 | Li李魚 2026-03-26 | 5/250 |
|
|
[考研] 295求調劑 +4 | 1428151015 2026-03-27 | 5/250 |
|
|
|
[考研] 一志愿華東理工大學081700，初試分數(shù)271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
|
[考研] 303求調劑 +7 | 安憶靈 2026-03-22 | 8/400 |
|
|
|
[考研] 314求調劑 +3 | 溪云珂 2026-03-26 | 3/150 |
|
|
|
[論文投稿] Journal of Mechanical Science and Technology +3 | Russ_ss 2026-03-25 | 5/250 |
|
|
|
[考研] 調劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
|
[考研] 321求調劑 +6 | Ymlll 2026-03-24 | 6/300 |
|
|
|
[考研] 化學工程085602 305分求調劑 +17 | RichLi_ 2026-03-25 | 17/850 |
|
|
|
[考研] 總分322求生物學/生化與分子/生物信息學相關調劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
|
[考研] 資源與環(huán)境 調劑申請(333分) +9 | holy J 2026-03-21 | 9/450 |
|
|
|
[考研] 281求調劑 +6 | Koxui 2026-03-24 | 7/350 |
|
|
|
[考研] 299求調劑 +4 | 15188958825 2026-03-25 | 4/200 |
|
|
|
[考研] 290分調劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 各位老師您好：本人初試372分 +5 | jj涌77 2026-03-25 | 6/300 |
|
|
|
[考研] 306求0703調劑一志愿華中師范 +10 | 紙魚ly 2026-03-21 | 11/550 |
|
|
|
[考研] 280分求調劑 一志愿085802 +4 | PUMPT 2026-03-22 | 7/350 |
|