2023年FORTRAN95程序設(shè)計(jì)學(xué)習(xí)筆記

《FORＴＲAN9５程序設(shè)計(jì)》學(xué)習(xí)筆記66RＰGgg★目錄★ＴO(shè)C\o"1-2＂\h\zHYＰERLINＫ\l"_Toc"《FORTRＡN95程序設(shè)計(jì)》學(xué)習(xí)筆記 PＡGERＥＦ_Toc\h1基礎(chǔ)知識(shí)(基礎(chǔ)、字符串、FORＭAT、隱式、TYＰE) １流程與控制(if、seleｃt、do）?PAGＥREF_Ｔｏc\h4HYPEＲLIＮK數(shù)組(聲明、隱式循環(huán)、整體操作、可變數(shù)組)?ＰAGERＥF＿Ｔoc\h5HＹＰＥRLＩNK\l＂＿Tｏc"函數(shù)與子程序（子程序、函數(shù)、全局變量) PＡGEＲEF_Ｔoc\h6HＹPEＲＬINK\l"＿Toc＂MＯDULE與面向?qū)ο螅ㄖ剌d操作符、虛函數(shù)） PＡGEREF_Tｏc＼h9文獻(xiàn)相關(guān)(OＰEN、WＲＩTＥ、REＡＤ）?PAＧＥREF＿Tｏｃ＼h10HYPEＲLIＮKVisuａlForｔran編譯器(DLL,ＶB調(diào)用） PAGEREF＿Ｔｏc＼h12數(shù)值算法與IＭSＬ(數(shù)值算法插件)?ＰAＧＥREＦ_Toc＼h１4HＹPEＲLINＫ\l"_Toc＂常用庫(kù)函數(shù)(數(shù)學(xué)、數(shù)組、零碎、子程序） ＰAGEREF＿Ｔoc＼ｈ１5基礎(chǔ)知識(shí)（基礎(chǔ)、字符串、FＯRMAＴ、隱式、TYPE)【小玩意】二進(jìn)制觀測(cè)器：裝在M.．ViｓualStudｉo\DF9８\bｉn，有一個(gè)Bｉtｖiewer,可以觀測(cè)變量?jī)?chǔ)存方式【語(yǔ)法】續(xù)行:行結(jié)尾或行開頭使用&符號(hào)；注釋：使用！符號(hào)【語(yǔ)法】數(shù)學(xué)表達(dá)式：＋；-;*；/;(;）;*＊乘冪【語(yǔ)法】程序結(jié)束：STOＰ(Ruby的exit)【語(yǔ)法】輸出：wriｔｅ(*,*)，完整寫法:write（ｕniｔ=*,fmt=＊)建議：少用ｐriｎt,盡量用writｅ【語(yǔ)法】聲明整型：intｅger（ｋｉnd＝4）ａ;其中kind是使用的bｙtes數(shù)，４oｒ2其他寫法：inｔeｇer*4a;ｉｎtegeｒ(4)a浮點(diǎn)：real(kｉnd=4)ａ；有效數(shù)位6位(1２3４5678存為1.2３45６7E7),假如是kｉnｄ８則為１5位有效數(shù)字此外:1E10：?jiǎn)尉?０^１0，1D1０:雙精10^10復(fù)數(shù)：coｍpｌex:：a=(2,3）實(shí)部:reａl(ａ）;虛部：ｉmag(ａ）布爾型：Loｇｉcal，．true．和．falsｅ．【語(yǔ)法與函數(shù)】字符串:charａｃter(20)stｒing注意理解，fortran的弱智字符串就是一個(gè)長(zhǎng)度不能變的一維的東西,極其猥瑣，和Jaｖａ、Ruby不能相提并論的ｓtring(１3:13）=“ａ”:對(duì)第１3個(gè)字節(jié)的讀、存striｎｇ(２：3）=“gｏ”stｒinｇ(6)=“我的媽呀”:從第6個(gè)位置開始設(shè)立為“我的媽呀”a=stｒｉng_a/／stｒｉng＿ｂ:用“/／”連接兩個(gè)字符串【常用函數(shù)】chａr(ｎum），icｈaｒ(ｃhａr）：ASＣII碼的轉(zhuǎn)換相關(guān)功能【常用函數(shù)】len(stｒing),lｅn_trｉm(strｉng)：長(zhǎng)度，去掉尾部空格后的長(zhǎng)度【常用函數(shù)】inｄex（ｓtrｉnｇ,key)：找keｙ在stｒing首出現(xiàn)的位置【常用函數(shù)】tｒim(striｎg)：返回去掉尾部空格的字符串(用途不大)【函數(shù)】ｒepｅaｔ(cｈar,ｉｎt):返回一個(gè)反復(fù)int次的char串charaｃteｒ（lｅn＝20）stｒing普通聲明；chａｒactｅr(len=＊)stｒｉng接受的時(shí)候可自動(dòng)長(zhǎng)度【規(guī)范格式】FOＲＭＡT格式化e.ｇ.write（*，１00)A1０0fｏrmat（I4)這里是100號(hào)標(biāo)記調(diào)用的格式參數(shù)控制符（前面加數(shù)字為反復(fù)次數(shù),如4I6或<a＞Ｉ６。（其中a為一個(gè)ｉnｔ）)A5:輸入／出5個(gè)字符常用功能Ｉ５[.4]:輸5位整數(shù)，最少4位常用功能BＮ，ＢＺ:定義空格為無(wú)東西或?yàn)?F５．4，D５.4：5位浮點(diǎn)數(shù)，小數(shù)占4位其中前面一個(gè)常用E5.１［Ｅ２]:５位浮點(diǎn),小數(shù)占1位，指數(shù)占2位4Ｘ：4個(gè)空格常用功能/與\：／為中止本行，\為強(qiáng)制不換行強(qiáng)制不換行常用Tn，TLn，TRn：移動(dòng)到第n列／左移n列/右移ｎ列Write(*,”(２Ｘ,Ｉ5)”)a;一般使用這種方法進(jìn)行格式化即可,推薦。注意,cｏmｐlex要用兩個(gè)浮點(diǎn)數(shù)來(lái)輸出IＭPＬＩCIＴ命令(隱式表達(dá))默認(rèn)：I、Ｊ、K、L、Ｍ、Ｎ為整數(shù)，其余浮點(diǎn)（不好）隱式聲明：implicitintegeｒ（A,B,C）：A、B、Ｃ開頭的自動(dòng)為整型,無(wú)需單獨(dú)聲明iｍplicitintegeｒ(Ａ-F，I,K)：Ａ－F、Ｉ、K開頭的自動(dòng)為整型iｍpｌicｉtreａl(Ｍ-Ｐ）：M－P開頭自動(dòng)視為浮點(diǎn)數(shù)imｐｌｉciｔnone：無(wú)隱式聲明,最常用，但個(gè)人認(rèn)為在自己有把握的情況下還是可以自定義一些隱式來(lái)方便程序書寫【語(yǔ)法】常數(shù)parameteｒ的聲明方法1：real,paramｅtｅr::ｐi＝３.14方法２：rｅalpiｐarametｅr（ｐｉ=3.14）【常用功能】類型轉(zhuǎn)換(realiｎteｇeｒ）ｒeal(inｔ_a）：返回int_ａ的浮點(diǎn)數(shù)int（ｒｅal_ａ)：返回rｅaｌ_a的整型【語(yǔ)法】設(shè)初值：intｅger::ａ=1【語(yǔ)法】等價(jià)聲明:equivａlenｃe(ａrｒay(1,1，５),A)兩者使用同一塊內(nèi)存,如上，調(diào)用A就是調(diào)用arrａy（1,1,５)，但是調(diào)用A比較快【語(yǔ)法】ｔypｅ,自定義數(shù)據(jù)類型,可組合iｎtegeｒ,real,char等，類似一個(gè)只有公開變量的類type::persoｎchaｒａcｔｅr（２０）::nameinteger：:ageeｎdｔyｐｅpeｒsoｎ聲明：ｔype(peｒson）:：a使用：a%ｎame,a．ｎamｅ（Rｕbｙ:一個(gè)全是atｔｒ_ａｃｃesｓor的clａss)【用途不大的函數(shù)】ｋiｎd的使用：select_inｄ_ｋind(n）：返回記錄n位整數(shù)所需的ｋind；seleｃt_ｒeal_kinｄ(n,e)n位有效,指數(shù)e位所需的kiｎｄ流程與控制(ｉf、selｅct、do）【語(yǔ)法】ｉf條件分歧：if(邏輯)then注意，避免浮點(diǎn)數(shù)相等，浮點(diǎn)用abs(a-ｂ)<誤差的方法程序執(zhí)行內(nèi)容elseｉf（邏輯)tｈen程序執(zhí)行內(nèi)容eｌｓe程序執(zhí)行內(nèi)容ｅnｄｉf單行if：iｆ(邏輯)then內(nèi)容【語(yǔ)法】邏輯標(biāo)志:＝=．ＥQ.;／=．NＥ.;＞．GT．；>=.GE.；＜.LＴ.；<＝．ＬE.；.ａnｄ.；.ｏr.;.noｔ.【語(yǔ)法】ｓｅlectcase功能ｓeleｃtcase(某)這個(gè)某可以是整數(shù)和字符，Ｌogicalcase(70:９０）這個(gè)casｅ只能用常數(shù)內(nèi)容case(６0:69)內(nèi)容ｃａｓedｅfauｌt內(nèi)容eｎdselecｔ【語(yǔ)法】?jī)蓚€(gè)小東西：pause:暫停;stop:退出【語(yǔ)法】二進(jìn)制的邏輯運(yùn)算ianｄ和ioｒ舉例:a＝2（二進(jìn)制10)；ｂ=4（二進(jìn)制100）；c=iaｎd(a,b)則c＝6【語(yǔ)法】循環(huán)結(jié)構(gòu)doI=1,5,１分別是開始，結(jié)束,steｐ,亦可ｄｏwｈｉle(條件)執(zhí)行內(nèi)容eｎｄdｏ【流程控制語(yǔ)法】cycｌｅ：執(zhí)行下次循環(huán)(Ruｂy：next)ｅxit：循環(huán)中斷（Ruby：brｅak)【署名的循環(huán)】ｏｕtdo:doI=１,３inner：dｏＪ=2,4內(nèi)容署名后可以使用諸如if(..)ｅxitouｔdo;if(..）ｃycleinnｅr這種enddoｉnnerenddooutｄo【語(yǔ)法】臭名昭著的：gｏｔo行數(shù)數(shù)組(聲明、隱式循環(huán)、整體操作、可變數(shù)組)【語(yǔ)法】數(shù)組的聲明：Datatypenａme（sizｅ)其中Ｄatａt(yī)ype是類型也可是自定義的ｔyｐｅ比如：intｅｇerａ(10)或intｅger,dimｅnsｉｏｎ（１0)::a類似聲明多維數(shù)組：inｔegeｒａ(3,3)亦可a(0:3,-3:3)這樣自定義某維范圍【詭異東東】隱式循環(huán)與賦初值：ＤataA/１,2,３，4，5/；Dａt(yī)aA／5＊3/5個(gè)3,不是計(jì)算Datａ（A(I），I=2，4,2）/2，4／I＝２,4,２隱式循環(huán),起、末、SＴEＰ，類似dｏ循環(huán)Ｉntegeｒ：：a（5)=(／1，(2,I＝2,４),５/)連續(xù)3次2，假如（I，Ｉ=2,4)則是2,３,４Wｒｉｔe隱式循環(huán):wrｉｔe(*,”(I３,Ｉ3,/I3,I3)”)((ｍ（r，c），c=１,2）,r=1,2)連續(xù)輸出m(1,1）,m(2,1),m(1,2),m(２，2）初始化統(tǒng)一賦值:inｇeter::a(５）=5;相稱于a(１)＝a（2)=.．=a（5)=５【語(yǔ)法】數(shù)組整體操作：a＝５;將左右值設(shè)立為5a=(／1,2,3/)；重設(shè)數(shù)值,大小要相同a=b;同位置的這是為相等數(shù)值。注意，不是地址連接,是賦值！a=ｂ+c；a=b–c；ａ=b＊c；ａ=b／c；ａ=ｓｉｎ(b):也是對(duì)位置整體的操作【技巧】其他數(shù)組操作：a（3:５)=５；a（３:)＝5；a（1:3）＝b（４：6);ａ（:,:）=b(：,:,1）如a(1－５，１－５)＝b(1-5,1－5，1)a(1:１0)=ａ（１0:1:-1）類隱式循環(huán)翻轉(zhuǎn)a。注意這里的操作過程，先寄存右式,再賦值左邊【語(yǔ)法】WHEREwhere(a<3)對(duì)所有a<3的位置b=１設(shè)立b＝１,注意，a、b同大小elsｅwhｅre亦可elsewhere(a>５)這樣的東西ｂ=2enｄwhere【語(yǔ)法】FORALL：使用方法ｆoraｌl(范圍１,范圍2…條件）foralｌ(I=1：5,J=1：5,a(I,J)／=0)ａ(I,J)=1/a(I,J)相稱于：ｄoI＝1，5;dｏj=1，5；ｉfａ(Ｉ,Ｊ）/=0…【內(nèi)存細(xì)節(jié)】數(shù)組保存：假設(shè)一個(gè)Ａ(３,3），則內(nèi)存排列：A（1,１)=>A(2,1)=>A(3,1)=>A(1,2)=>Ａ(2,2）＝>Ａ(3，2）=>A（1,3)＝＞Ａ(2,3)=＞A（3,３）。注意,為了使用告訴ｃache，應(yīng)盡量使用編號(hào)相近的內(nèi)容,選用內(nèi)存相近的內(nèi)容。所以inｔeger::ａ(2,2)=(／1,2,3,4／)就是a（1,1)=1；a（２,1）=2；ａ(１，2)=3；a(2,2）=4,按內(nèi)存分派４個(gè)東西?！菊Z(yǔ)法】可變數(shù)組聲明:iｎtegｅｒ,aｌlｏcatable::a（:）aｌlocatable表達(dá)可變數(shù)組;ａ(:)表達(dá)可變一維數(shù)組；多維的可以a（４,:),ａ(：,:)這樣。分派內(nèi)存:allocaｔｅ(ａ（大?。?stａt(yī)=error）這個(gè)eｒror整型,＝0為成功，否則失敗釋放內(nèi)存：deallｏｃaｔｅ(a)判斷是否已經(jīng)分派內(nèi)存：allocated(某),可以retｕrｎ.ｔruｅ./.false.(Ruby:ifxx!=niｌ)函數(shù)與子程序（子程序、函數(shù)、全局變量)【子程序】Subrｏｕtｉneprｏｇｒammaｉn主程序內(nèi)容主程序代碼endprogｒammaｉｎ主程序結(jié)束ｓubroｕtiｎeｓｕｂ1(參數(shù)）子程序1,調(diào)用方法：caｌｌｓub１內(nèi)容,注：可以使用ｒetuｒn（Rubyrｅtuｒn)eｎdsubroｕtiｎｅｓub1子程序1結(jié)束說(shuō)明:子程序獨(dú)立擁有屬于自己的變量聲明,同時(shí)子程序和Ruby同樣也是傳進(jìn)來(lái)地址，所以可以在子程序中修改傳入內(nèi)容的數(shù)值。有關(guān)字符串:chａracｔｅr(*）:：ｆirｓｔ,傳進(jìn)來(lái)的時(shí)候可以用*,大小任意。這種功能用于子程序接受字符串或者初始化給定常量字符串,如：cｈaraｃter(*)，paraｍeter:：a＝”123”【函數(shù)】fｕnｃtion聲明函數(shù):real,extｅrnaｌ:：ａｄd,分別定義返回類型,聲明為函數(shù),以及函數(shù)名。注意，聲明的時(shí)候不帶參數(shù)。ｆunｃｔiｏｎaｄd(a，b)real:：aｄｄ,a,badｄ為返回的參數(shù)ｅndfｕnctioｎadd使用函數(shù)時(shí)的一個(gè)不成文規(guī)定:傳遞進(jìn)來(lái)的東西,只讀他的數(shù)值就好了,不要去改變他的數(shù)值?！静煌扑]的方法】全局變量(建議使用moｄｕｌe)ｉnteｇeｒ::a,bｃommoｎa,ｂ使用的時(shí)候integer::n１,n2comｍｏnn1，n2(只能和位置相應(yīng),和名字不相應(yīng)，所以commoｎ多了比較無(wú)奈。此時(shí)可以用比如comｍona(2）這樣數(shù)組一類的,但是都不如用modｕｌe)此外還可以用比如commoｎ/ｇroｕp1/ａ這樣來(lái)分組，初始化需要用bｌｏckdatａ寫在主程序之外，如：blocｋdａt(yī)a主程序之前就執(zhí)行，只能賦初值,注意全局變量不能做常量integera,bcｏmmon／group1/a,bdaｔaa,b/3，4／endbｌｏcｋdａt(yī)a【小技巧】函數(shù)傳遞參數(shù)中的小技巧,不賦值初大小的數(shù)值subroutiｎeusｅｒＡ(num,n2）iｎtｅger:：nuｍ(*)不賦值大小inteｇeｒ::n2(6)取地址中的前6個(gè)東西，汗。此處也可重設(shè)范圍,如(-2，2)【提醒】變量生存周期提醒：VisuａlＦｏｒtrａn不自動(dòng)釋放變量?jī)?nèi)存，所以函數(shù)中使用變量的時(shí)候一定要使用明顯的初始化，不要設(shè)立intｅger::a＝1這樣的初始化，由于這個(gè)是分派內(nèi)存時(shí)的初始化,第二次執(zhí)行函數(shù)會(huì)被無(wú)視?！菊Z(yǔ)法技巧】傳遞函數(shù):reaｌ，exｔernal:：func聲明自定義函數(shù)ｒｅａl,ｉntrinｓic::sin聲明siｎ是庫(kù)函數(shù)ｃalleｘecfun(sin）subrｏｕtｉnｅｅｘecfun(ｆ)子程序定義rｅａl，eｘternal::ｆｗrｉte(＊，*）f(1.0）endsubrｏuｔine【猥瑣】子程序中的特殊參數(shù)：ｉntｅgeｒ，inｔeｎt（in)::a;inteｇer,ｉｎtｅnｔ(out)::b表達(dá)a只讀，ｂ應(yīng)被重新賦值。這只是編程的時(shí)候讓編譯器幫忙檢查錯(cuò)誤,對(duì)實(shí)際沒故意義?！菊Z(yǔ)法】函數(shù)的使用接口(Inteｒface）用途:1、返回?cái)?shù)組,2、參數(shù)數(shù)目不定,3、返回指針，4、制定參數(shù)位置等舉例:返回?cái)?shù)組ｉｎｔerｆacｅfuncｔｉonｒanｄ10(lｂｏunｄ,ubound)ｒeal::lｂoｕｎｄ,ubounｄreal::raｎｄ1０（1０)返回?cái)?shù)組enｄfunction;endinｔeｒfacｅ舉例：不定參個(gè)數(shù)ｉnterfaceｆｕnctiｏnsub(a,b)iｎｔeｇer,optｉonal::b,a多態(tài),表達(dá)a,ｂ可以省略定義ｆuｎcｔion時(shí)：if（presｅｎt(ｂ）)then…(Ruｂy：ifb!=ｎil）此外optｉonal之后可以改變位置，比如上面:rｅsulｔ=sub（b=2,a=１),意義不大【常用函數(shù)】隨機(jī)數(shù)功能取種子：ｃａllRandom_Ｓｅe(cuò)ｄ()制造:ｃａllRandom＿nuｍbｅｒ(t)ｔ是0-1的隨機(jī)數(shù),注意也可以是直接生成數(shù)組【語(yǔ)法】遞歸：聲明:recuｒsiｖeintegerfunctioｎf（n)result(as)；其中reｃuｒsivｅ表達(dá)可以遞歸，ｒesult(as)這樣表達(dá)可以用另一個(gè)名字做返回的內(nèi)容，類型還是inteｇer【語(yǔ)法】?jī)?nèi)部函數(shù)，只能在某范圍內(nèi)調(diào)用的函數(shù),contains里面寫內(nèi)容(如函數(shù)、子程序定義)即可。【少用語(yǔ)法】并行解決:pure,ｅlemental，使用有很多限制,如所有參數(shù)為inｔｅnt(in)，不能改變?nèi)肿兞康?。聲明在定義處,如ｐｕrefｕnctionfc(）。個(gè)人認(rèn)為暫時(shí)用不上這個(gè)，以前并行解決不是這么實(shí)現(xiàn)……【有用函數(shù)】記錄時(shí)間:cｈarａcter（20):datatｉme；ｃalldａt(yī)a_and_ｔime(ｄata,tｉmｅ)ＭOＤULE與面向?qū)ο?重載操作符、虛函數(shù))【語(yǔ)法與范例】module用來(lái)封裝程序模塊范例modulｅ模塊名pｒivatea可以把a(bǔ)私有化，類內(nèi)的，Ｒubｙ@ｉnteｇera,bｃoｍmｏna,b這樣就可以使用全局變量名?；颍海閚teｇer,ｓave:：a，ｂtyｐeplea..這樣即可常用typｅ（plｅａ）::ＸXXX為一個(gè)類型定義tyｐｅ的定義內(nèi)容ｅnｄｔｙｐeUse父模塊名繼承機(jī)制Contaｉns定義函數(shù)、子程序。像是類的方法,默認(rèn)均為puｂlic,假如需要私有化似乎也可在前面（聲明變量之前)ｐｒivate函數(shù)名endmodulｅ特別提醒：當(dāng)變量重名,可以u(píng)seA,aa＝>va（把A的va改名為aa用)【面向?qū)ο蟆客瘮?shù)重載。modｕle中:inｔerfaceｆu虛函數(shù),調(diào)用的時(shí)候自動(dòng)從下面選一個(gè)參型合適的moduｌeprocｅdurｅｆu1ｍodulｅprｏｃedurｅfu2ｅndinterfａce【面向?qū)ο蟆恐囟x操作符iｎｔerfaceoｐerator(+)特別說(shuō)明,賦值號(hào)也可重載,用assｉｇnment（=)moduleｐroceｄｕｒｅadｄ候選的函數(shù)ｅｎdinteｒfaceconｔainsiｎtegerfunctioｎａdd(a,b）比如a,b都是自定義type類型，返回一個(gè)integer,則可c＝a＋b這樣了。說(shuō)明:定義可以是已有的各種運(yùn)算符也可是自定義的類型,比如.dot.（兩邊有點(diǎn)),等號(hào)默認(rèn)為賦值(參見數(shù)組那種),亦可自定義。文獻(xiàn)相關(guān)(OPEN、WＲＩTE、REＡD)【編譯器】VF中都放在一個(gè)SourceＦｉｌeｓ中,可分別編譯為*．obｊ,最后連接為一個(gè)．EXE(RMXP的SｃｒｉｐtＥditor,只是多了一個(gè)分別編譯的過程)【語(yǔ)法】iｎcluｄｅ‘文獻(xiàn)名.后綴’,相稱于把該文獻(xiàn)的內(nèi)容所有cｔrl－c過來(lái)，對(duì)編譯和執(zhí)行并沒有什么意義【語(yǔ)法與操作】ｏｐen打開文獻(xiàn)open(uniｔ=編號(hào),ｆiｌe=“hello.txｔ”)即可打開文獻(xiàn),使用時(shí)：wrｉte(編號(hào),*)“Ｈelｌo”細(xì)節(jié):open（unit=編號(hào),fiｌe＝ｆileｎame,foｒm＝‘foｒmated文本格式/ｕnfｏrｍated二進(jìn)制格式’，statｕｓ＝‘new第一次打開/olｄ已存在文獻(xiàn)/rｅｐlaｃe重建/scratｃｈ弄個(gè)暫存盤可以不要ｆiｌｅ’,access=‘seｑｕential順序/dｉrect直接’,recl=長(zhǎng)度,err=laｂｅｌ犯錯(cuò)跳轉(zhuǎn)標(biāo)簽,IＯSｔat=vａr這個(gè)數(shù)字>0犯錯(cuò),＜0文獻(xiàn)終了,＝0正常，action=‘readwritｅ/ｒeａd/write’)【重要語(yǔ)法】write／read(uniｔ=ｎumbｅr,ｆmt=Forｍａt(yī)，NML＝ｎameｌist（專讀某個(gè)ｎameｌiｓｈ,無(wú)用）,reｃ=ｒｅcord（直讀文獻(xiàn)終,設(shè)立所讀寫文獻(xiàn)模塊位置），Ioｓｔat=vaｒ，ERＲ＝ｌaｂeｌ,EＮＤ＝ｌａｂｅl（碰到文獻(xiàn)結(jié)尾的跳轉(zhuǎn)標(biāo)簽）,ＡDVANCE=‘yes/no是否讀寫后換行’)【語(yǔ)法】判斷文獻(xiàn)存在:iｎｑuire：iｎqｕire(file=fｉleｎame,exｉsｔ＝alive)【語(yǔ)法】關(guān)閉文獻(xiàn)ｃｌoｓｅ(fiｌeiｄ，ｓtatｕs=‘ｋeｅp/ｄｅlｅte是否刪除文獻(xiàn)’)【其他很少用的】ｒewind（編號(hào)):把讀寫位置返回開頭；backspａce（..），endfｉlｅ()【操作】文獻(xiàn)操作：順序文獻(xiàn)、直接訪問文獻(xiàn)、二進(jìn)制順序文獻(xiàn)：rｅad(unit=id，fmt=“．．”,iostaｔ=..）接受read的東西;這樣反復(fù)循環(huán)讀一行一行，ｉostat那個(gè)/=0就over了。(Ruby:rｅａdｌｉne)直接訪問文獻(xiàn)的操作(還是分行的操作)：open的時(shí)候設(shè)立recｌ的大小，然后類似:ｒead(iｄ,fmｔ,rec=編號(hào)，..)XX讀編號(hào)內(nèi)容即可。注意:recl=6則1行為４個(gè)字符內(nèi)容(有兩個(gè)是”\n”)二進(jìn)制文獻(xiàn)的操作,與上面相比，改用form=“unformattｅd”【重要功能】?jī)?nèi)部文獻(xiàn)與字符串，數(shù)字轉(zhuǎn)換:把unit改為=字符串,讀入數(shù)字即可做到數(shù)字轉(zhuǎn)字符串;反之亦可?！菊Z(yǔ)法】ｎａmelisｔ:nａmelist/nａ/a,b，c輸入輸出如下（沒用的功能)&ｎaA=1B=２/指針(指向變量、數(shù)組、函數(shù)）【語(yǔ)法與范例】指針指到變量iｎｔeger,tａrget::a=1聲明一個(gè)可以當(dāng)成目的的變量integer,ｐointer::p=1聲明一個(gè)可以指向整數(shù)的指針p＝>ａ設(shè)立指向(也可以不指，aｌlocａt(yī)e(p）即可開地址,deallocatｅ(p)干掉地址。用起來(lái)像是個(gè)可釋放的變量)p＝３設(shè)立Ｐ位置的內(nèi)存數(shù)據(jù)【語(yǔ)法】設(shè)立空指針：p＝>null（)或iｎｔeｇer,poinｔer:：pnulliｆy（ｐ)【語(yǔ)法】判斷指針是否已經(jīng)設(shè)立內(nèi)容:ａsｓoｃiaｔed(pｏiｎｔer,[taｒgeｔ])。這里假如有ｔａｒgeｔ可以判斷指針是否指向tａrget內(nèi)容?！菊Z(yǔ)法與例子】指針數(shù)組ｉnｔｅｇer,pointer:：a（:）聲明一維指針數(shù)組inｔegeｒ,tarｇet::b(5)=(／1，2,3,４,５/)a=>b即a（１-5)=ｂ(1-5）a=>b(1:5:2)即ａ(1,2,3）＝ｂ(1,3,5)同理,alｌocate(a（5）)；a=(/1，2,3，4,5／）注意這種和ａllocaｔe的數(shù)組不同，必須手動(dòng)釋放子程序霸占的內(nèi)存。同理2，inｔｅgｅｒ,pointer::a(:，：）【語(yǔ)法】指針函數(shù):interｆace注：假如用了modｕle就不用ｉnterfaｃe了functioｎgetmin(p）inｔeger,poiｎｔｅr::p(：)輸入一個(gè)指針inteｇｅr,poｉnｔer：:getmin返回一個(gè)指針ｅnｄfuｎctioｎenｄｉｎteｒｆacｅ【數(shù)據(jù)結(jié)構(gòu)】隊(duì)列與堆寨(試誤法）。舉例：隊(duì)列定義類型tｙｐｅ::datalｉｎkiｎteger::Ｉtype(daｔalｉnｋ）,ｐoiｎｔeｒ：:prev,nexｔ兩個(gè)指針,可以指向dataｌinｋ的type對(duì)象eｎｄtｙpｅdatalink使用typｅ(dａt(yī)aｌiｎk）,ｔarｇｅt：:ｎodｅ１，nｏde2聲明兩個(gè)新的類型,需要聲明可做tａｒｇetｎode1=dataliｎk（1，nｕll(）,node2)初始化nodｅ1這個(gè)typｅ對(duì)象，這個(gè)地方很有特色,記住。ViｓuａlＦoｒtraｎ編譯器（DLL,VＢ調(diào)用)ＤEBUＧ&RELEＡSE:Ｂuild＞SetActiveＣonｆigｕｒａt(yī)iｏn選擇編譯模式。Ｒelease和Dｅbug的執(zhí)行效率有幾倍的差距。所以發(fā)布的版本最佳要用Ｒelｅase格式。靜態(tài)鏈接庫(kù)：選擇FｏｒｔraｎStatｉcLｉbrary格式的ｎewPｒoject,這種東西編譯后生成*．ｌib（只有函數(shù)沒有proｇrａｍ)使用這種ｌib的時(shí)候：FoｒtraｎConｃoleAｐpｌｉｃatｉon里面加入*．ｌib即可。常用目錄/文獻(xiàn)設(shè)立tｏol>optｉoｎs選擇Dｉrｅｃtorｉｅs標(biāo)簽。Libraｒｙfｉｌes(*.ｌib)／inｃｌuｄeFiles（*.moｄ，即mｏdｕle)Pｒｏｊｅct＞Ｓettｉngs|Linｋ標(biāo)簽，設(shè)立常用.ｌib，這里的|Deｂug可以設(shè)立outpuｔ的．exe相對(duì)位置DLL動(dòng)態(tài)鏈接庫(kù)(Prｏｊｅct:FortranDynａmicＬinkLｉbrａry)這個(gè).ｄｌｌ可以拿給別的程序用,無(wú)需重新編譯。設(shè)立可被外界調(diào)用的程序sｕbｒouｔiｎesub()!DEＣ$AＴＴRIＢＵTESDLＬEXPOＲＴ::SＵB這個(gè)是注釋,是給ｆoｒtｒan看的注釋,用于被外界用的dll函數(shù)編譯后生成ＸXX.dll和XＸＸ.lib使用時(shí)，把XＸX.ｌib加入自己的ｐｒｏject并把ｘxx.dll放到最終的.exe同目錄下。（注：有時(shí)會(huì)出現(xiàn)規(guī)定手動(dòng)設(shè)立)執(zhí)行時(shí)間分析：Builｄ>Profｉｌｅ優(yōu)化程序的觀念:加減快于乘除，乘法快于乘冪VｉsｕａlBasic和DＥLPＨI中調(diào)用Foｒtran的程序(★重要★）：Fortrａn：某函數(shù)中:！ＤEC$ATＴRIBUTＥSDLLＥXPＯＲT::ＣIRCLE_AREA，函數(shù)名編譯后會(huì)變成所有大寫。！DＥC$AＴTＲＩＢUTEＳALIAS:”cａ”::CIRＣLE_AREA，強(qiáng)制把函數(shù)CIRCLＥ_(tái)ＡRＥA編譯為ｃａ這個(gè)名字。這樣就行了。注意，別的很多語(yǔ)言中（C,VB，DELPHＩ)傳遞字符串要傳字符串和長(zhǎng)度，所以Foｒtrａn輸入字符串只有一個(gè),別人要用兩個(gè)。舉例：Ｆｏrtran中subｒoｕtiｎeMａkelowｅｒ（striｎg)!DEC$AＴTRIBＵＴESDLＬEXＰORＴ::MＡKＥＬＯＷER..endsｕｂｒoutiｎｅVB中PrｉvateDeｃlarｅSubＭAKELＯWＥRliｂ“forlｉb.dｌl”(BｙValｓＡsSｔrｉng，ＢｙＶalIAsLｏng)使用：ｃallMAKＥLOWEＲ(“aＢcDe”，len（“aBcDe”)）DEＬＰHＩ中Impleｍeｎｔａt(yī)iｏnFunctionＭAKＥLＯWER(r:Strｉng；I:Lｏngｉnt);ｓtdcaｌl；extｅrnａl‘forlib．dlｌ’｛＄Ｒ,*.dfm｝使用:MAKＥLＯWER(Edｉt2.tｅxt,lｅnｇth(Ediｔ2.ｔext))【超重要功能】全文獻(xiàn)搜索:Eｄiｔ＞FｉｎdinＦiｌes(RMXP的ｃｔｒl＋shiｆｔ＋Ｆ）【快捷鍵】ｃtrｌ＋Ｌ:刪除一行數(shù)值算法與IMSL（數(shù)值算法插件）常用算法（需要的時(shí)候自己搜索）:求解非線性函數(shù)：二分法Bisectiｏn,割線法Sｅcａnt，牛頓法積分:梯形積分法,SIMPSON辛普森積分插值與曲線近似:拉格朗日插值，牛頓插值法(ＦoｒwarｄInterｐoｌaｔion),LeaｓtSquａre，曲線近似法（ＣubｉcSplｉne)排序方法：冒泡排序法，選擇排序法,Shｅll排序法,快速排序法搜索:順序搜索，二元搜索（先排序），哈希Haｓhinｇ搜索思想樹狀結(jié)構(gòu):二叉樹等IMSL函數(shù)庫(kù):位置:\MｉcrosｏftVｉｓualStudio＼DＦ９8＼IMSＬ（＼ＨEＬP),使用前先設(shè)立途徑。之后UｓeIMSL即可矩陣運(yùn)算A.x．B矩陣相乘．i.Ａ矩陣求逆.t.A矩陣轉(zhuǎn)置A.iｘ.B矩陣A逆乘以B；類似尚有A.xi.B，A.tx．BＲ=ＣＨOＬ(A)Ａ=Ｒ?ＴRQ=ＯRTH（Ａ,[R=R])Ａ=ＱR,Q?TQ＝IＦ=DEF(Ａ)求行列式值K=RANK(A)求矩陣的raｎk值Z＝EYＥ(Ｎ)得到N*N的單位陣A=ＤIAG(X)以XVectoｒ設(shè)立對(duì)角陣X=ＤIAＧONALS(A)把Ａ的對(duì)角線取出Ｙ=FFT(X,[WORK＝W］)；X=IＦFT(Y,[WＯRＫ=Ｗ])傅立葉變換A=RAＮD（A）把矩陣設(shè)立為0~1隨機(jī)數(shù)高斯方程組:AX=B:caｌllin_so