 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1022 | 回復(fù): 8 | ||||
| 當(dāng)前只顯示滿(mǎn)足指定條件的回帖，點(diǎn)擊這里查看本話(huà)題的所有回帖 | ||||
guoman2006銀蟲(chóng) (初入文壇)
|
[求助]
求一個(gè)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 |
回復(fù)此樓» 猜你喜歡
材料求調(diào)劑 一志愿哈工大總分298分，前三科223分
已經(jīng)有4人回復(fù)
-
086502化學(xué)工程342求調(diào)劑
已經(jīng)有3人回復(fù)
-
求調(diào)劑
已經(jīng)有9人回復(fù)
-
352分 化工與材料
已經(jīng)有5人回復(fù)
-
085602 化工專(zhuān)碩 338分 求調(diào)劑
已經(jīng)有10人回復(fù)
-
0856材料化工調(diào)劑 總分330
已經(jīng)有10人回復(fù)
-
330一志愿中國(guó)海洋大學(xué) 化學(xué)工程 085602 有讀博意愿 求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有6人回復(fù)
-
材料求調(diào)劑一志愿哈工大324
已經(jīng)有6人回復(fù)
-
085600 286分 材料求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 關(guān)于龍格庫(kù)塔法的求解時(shí)間步長(zhǎng)設(shè)定問(wèn)題
已經(jīng)有2人回復(fù)
- 注冊(cè)化工工程師須知
已經(jīng)有23人回復(fù)
- intel visual fortran中MKL如何使用，是用use module還是include？
已經(jīng)有4人回復(fù)
- FORTRAN中一個(gè)奇怪的現(xiàn)象，求解釋。
已經(jīng)有4人回復(fù)
- 【轉(zhuǎn)帖】GrADS使用簡(jiǎn)介（轉(zhuǎn)載）
已經(jīng)有0人回復(fù)
- 【轉(zhuǎn)帖】強(qiáng)烈推薦使用phonopy計(jì)算聲子譜
已經(jīng)有44人回復(fù)
guoman2006
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1914
- 紅花: 1
- 帖子: 24
- 在線(xiàn): 103.1小時(shí)
- 蟲(chóng)號(hào): 1106852
- 注冊(cè): 2010-09-24
- 專(zhuān)業(yè): 生物化學(xué)
送鮮花一朵 
5樓2012-11-04 22:46:40
baobiao007
木蟲(chóng) (職業(yè)作家)
中國(guó)特色
- 應(yīng)助: 201 (大學(xué)生)
- 金幣: 6482.7
- 散金: 557
- 紅花: 40
- 帖子: 3050
- 在線(xiàn): 1009.9小時(shí)
- 蟲(chóng)號(hào): 505962
- 注冊(cè): 2008-02-18
- 專(zhuān)業(yè): 應(yīng)用地球物理學(xué)
2樓2012-11-04 12:43:17
nono2009
超級(jí)版主 (文學(xué)泰斗)
No gains, no pains.
-
專(zhuān)家經(jīng)驗(yàn): +21105 - 應(yīng)助: 28684 (院士)
- 貴賓: 513.911
- 金幣: 2555230
- 散金: 27828
- 紅花: 2148
- 沙發(fā): 66666
- 帖子: 1602255
- 在線(xiàn): 65200.9小時(shí)
- 蟲(chóng)號(hào): 827383
- 注冊(cè): 2009-08-13
- 性別: GG
- 專(zhuān)業(yè): 工程熱物理與能源利用
- 管轄: 科研家籌備委員會(huì)
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
guoman2006: 金幣+10, ★有幫助 2012-11-05 11:10:39
感謝參與，應(yīng)助指數(shù) +1
guoman2006: 金幣+10, ★有幫助 2012-11-05 11:10:39
| 在編輯器內(nèi)使用單步執(zhí)行方式，樓主就能理解每句的含義了 |
» 本帖已獲得的紅花（最新10朵）
3樓2012-11-04 13:53:54
chentianyu1
木蟲(chóng) (小有名氣)
- 應(yīng)助: 67 (初中生)
- 金幣: 2579
- 散金: 66
- 帖子: 252
- 在線(xiàn): 450.2小時(shí)
- 蟲(chóng)號(hào): 532712
- 注冊(cè): 2008-03-25
- 性別: GG
- 專(zhuān)業(yè): 計(jì)算機(jī)網(wǎng)絡(luò)
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
guoman2006: 金幣+30, ★★★很有幫助 2012-11-05 11:10:50
感謝參與，應(yīng)助指數(shù) +1
guoman2006: 金幣+30, ★★★很有幫助 2012-11-05 11:10:50
|
給定一個(gè)color變量及一個(gè)max變量，輸出對(duì)應(yīng)的顏色 其中color和max都是正數(shù)，并且color不大于max，color=icol-1，max=imax-1 輸出的顏色是一個(gè)RGB元組，包括R、G、B三個(gè)0到1之間的數(shù)，分別代表紅、綠、藍(lán)三個(gè)顏色分量 顏色的具體計(jì)算方法是： 1、如果max=0，則輸出黑色（R=0,G=0,B=0） 2、如果col/max不超過(guò)0.5，則輸出顏色（R=1-2*col/max, G=2*col/max, B=0） 3、如果col/max已超過(guò)0.5，則輸出顏色（R=0, G=1-2*col/max, B=2*col/max） |
» 本帖已獲得的紅花（最新10朵）
4樓2012-11-04 15:18:02
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 352分 化工與材料 +5 | 海納百川Ly 2026-03-27 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 一志愿上海理工能源動(dòng)力（085800）310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
|
[考研] 266分求材料化工冶金礦業(yè)等專(zhuān)業(yè)的調(diào)劑 +4 | 哇呼哼呼哼 2026-03-26 | 4/200 |
|
|
|
[考研] 328求調(diào)劑 +6 | 嗯滴的基本都 2026-03-27 | 6/300 |
|
|
|
[考研]
 一志愿 西北大學(xué) 總分282 英語(yǔ)一62 求調(diào)劑
+7
|
18419759900 2026-03-25 | 8/400 |
|
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
|
[考研] 材料求調(diào)劑 +8 | @taotao 2026-03-21 | 8/400 |
|
|
|
[考研] 0703化學(xué)一志愿南京師范大學(xué)303求調(diào)劑 +3 | zzffylgg 2026-03-24 | 3/150 |
|
|
|
[考研] 求調(diào)劑323材料與化工 +7 | 1124361 2026-03-24 | 7/350 |
|
|
|
[考研] 333求調(diào)劑 +6 | wfh030413@ 2026-03-23 | 6/300 |
|
|
|
[考研] 321求調(diào)劑 +5 | 材料cailiao 2026-03-21 | 5/250 |
|
|
|
[考研] 286求調(diào)劑 +13 | Faune 2026-03-21 | 13/650 |
|
|
|
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
|
[考研] 0856求調(diào)劑 +8 | zhn03 2026-03-25 | 9/450 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
|
[考研] 0703化學(xué)調(diào)劑，求導(dǎo)師收 +7 | 天天好運(yùn)來(lái)上岸?/a> 2026-03-24 | 7/350 |
|
|
|
[考研] 344求調(diào)劑 +3 | desto 2026-03-24 | 3/150 |
|
|
|
[考研] 335求調(diào)劑 +4 | yuyu宇 2026-03-23 | 5/250 |
|
|
|
[考研]
 一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑
+3
|
Grand777 2026-03-21 | 3/150 |
|