" - ".
. . , .
. .


C






:






-
-

Xapaepca poecca poepoa -


poecc poepoa cpee ocyecec o cxoe exoo pecae coo peaa oepaoo poeyp p poex pee cooec c opeee occee pep. Copooee poeaa cpee ocyecec eoec oeceee occe e cce ocao. Bcea cpea ACM-K ec opo o pep poex pee ypoe ocya cooecye aa capeo ayoo copya, aaa execx ay . p aoe cpe pep oa ocya eepy. p cxoe exoo poepoa cpee execoe aae a oe poepoa coep ceye ocoe ae:

p ocxoe exoo poepoa epecee ae ooc:

Xapaepca oea poepoa

Oeo poepoa ACM-K ec ., a poepoa, pecae oo aocay cooyoc oecx, epox, exaecx aopecxooe, peopayy ca epeeo paepoc. Bxoa opa OC opyec ooep caa,ecocee oopx ec epoaoe yee cepao aaoe 0.4-30 .
Ccea peopaye xoy opa o ypaee oece,o xoyopa, opyey ooep(pee),o ooep caa (pocpace, pocpaceo-pee).
Kooea OC c:
co caa
co caa oe ooep, o ooep ocac pex pex: oepeoe, aco oepeoe eoepeoe.
B oepeo pe co ee eeppoaoe ocae, aco oepeo o ocaec ye ao oppe (oepeoc), eoepeoe pee paccapaec , a acooepeoe, oa cepaa ooc ee paoepoe pacpeeee.
Co pocpaca
Moe c o"eo poepoa, oe e . Opeeec, a pocpace p c pacpeee ocpy apaepa. Paaec coo ( oepeo pe) ypye ( aco oepeo) co pocpaca, xapaepyee oec oeo poyca epeaoo ye.
B eoepeo pe co pocpaca xapaepyec eece oeo poyca. Ocoe ocpye apaep co pocpaca - a ao pacc, aep paa xoa oceye ooe. B cyae, ec co pocpaca aco ooc aoe eo aocepo, ocpy apaepa c coa a ypoe op, apaep eyapoo caapo aocep, ooc opox e xapaep x e.

Oeca ccea
Bcea ec o"eo poepoa. Opeeec, a pocpace p c cocpeooe apaepa.
Kocpy apaepa c oe pa, acaeo acoo - opacy aoo - acoe xapaepc, a ae oe p, caeo paee y paa ( paox oopaax aepao ooo 5 opa).Kpoe oo, coca ocpyx apaepo cceoexecoo ypo xo:
aep paa xoa, oycoe paccoe, cepaoe poycae, yeee.

Aaaop opae (Koep)
Bcea ec o"eo poepoa. peaae opoa ooeca pao oeca pao pocpace peeo e oo ecox peex oox oceoaeoce, epeaaex apaeo, apaeo - oceoaeo, oceoaeo.
Aaaop opae ee paepoc caa, peopay pocpace ca o peeo.
Kocpy apaepa c apaep, opeee cooyoc aapyx eeo, aaey aee epo "pacp", apaep aoa aaa opae, c oo oopx opeeec aop ceca aapyx eeo.
pe ye
O"eo poepoa occee e ec. Ocoe ocpye apaepa oocc xapaepca yceoo co

Ceye paa o "pe ye" "oopeoe ycpoco" (..y).oceee oaec , a oceoaeoc,coepaa eeop ye,pocpace, peeo cepa p. pe ye oaec ec, cooec c opeeee , a eeop ye. Peaoe ..y opayec a cooyoc ee:

epo pa
Moe , o e oeo poepoa. Paac aaooe, aaooo - poe, poe epoe pa. Ha cceoexeco ypoe poepoa pecaec, a cooyoc po, oyopo, aaooo-pox poaaoox peopaoaee. B aece ocpyx apaepo a cceo- execo ypoe paccapaec cooyoc oeo, c oo oopx opayc p, acae epeaoe y eapoaoo pecae ooe paa.
Boccaaaee eo (eoep)
Bcea ec o"eo poepoa. Ocoa y - peopaoae cooyoc, o oooo peeoo cao pocpace (pocpaceo-peeo). Kocpy apaepa c apaep, opeee occaaay aepypy (pacp) ao occaoe opae.
c
Bcea ec o"eo poepoa. Ocoa y - epeaa caa a oe pacco. Xapaepyec peeo epeaoo ye pacpeee ocpy apaepa.

epecee ooe OC e oaeo opee ee oypa, o ec aa ooe oe xo, e xo coca oea poepoa, o xo eo coca ecoo pa.

Bxoo paea aaa cpe ACM-K.

B poecce pee aa aaa oeceea oooc ocpoe aeaeco oe o"ea poepoa o oca ooo ocpyx apaepo epax poeaa, a ae oooc oe a o oe e oex ocpyx apaepo a ey pep poeoo pee. oa oeceea oooc oe a ooapaoo a ooapaoo aaa.
Ooapa aa oeceaec a ce oooc aoaecoo ocpoe popao peaa oeoo pecaeo"ea poepoa, oa oe oyaeo (xooo) oec (caa), pecae oopae xooo caa (oec) ope, yoo p poeoo pee c yeo opae, aaaex ooeo "exece cpeca".
Ocae oe o"ea poepoa oeceaec epax poeaa
Mooapa aa oeceae oey cee ocpyx apepo o"ea poepoa a acoe aee pep poeoo pee, o a xoo ca.
opypoy pep poeoo pee ocyece poea cpeca a oca o"ea poepoa.
B poecce opoa cpyyp o"ea poepoa, a ee oe ooaaec coo - opao , oopo oopaac ece ocoeoc eea. Coa o aocc a ao, pe a coa e oa pea 8 coo.
epeycopea oooc opoa oee ooo coa caa. co oee coo caa, ee, yo opaaec oo paepo aoa, a oopoo 250 coo. Bce o oeceae aoc cpyypo cxe poeao .
Ka ee ee opyp oa ae ocpyx apepo yo ee, a ee- ae cca opyex apepo pa x ee.
Coco oa ae ocpyx apaepo peaoa aoe. Ceap aoa peycapae eoecoe copooee poeaa, o ec poecce oppoa oca ocpyx apaepo poea ee oooc oya cpaoy opa o cex eoxox ecx opaex a oac aeaoc oex pecae.

Ocoeoc pao cpee ACM-K.


c c opae a oe oepao a BM, peycope cey ocoo coa ee, yo oee:
- oeoe pecaee o coaaeoo ea (ya) opyec, pacpyec poxo epy oay cpee WF- 77.
- o ypaee MS-DOS opopaa oeo a, opya oe ea, aocc poeao ooe a c pacpee "FOR".
- B cpee ACM-K ocaec cpyypa oe o"ea poepoa, o ecoa aaa (c. ocae xooo a). oyepyec poxo aey pac opopaa, peaya oe ea. B ACM-K peaa oe epyec e e ee, o WF77, coaa c ee opopa.
Boee paceo a oe ocyecec c xoo cpe ACM-K cpey MS-DOS. Bxo ocyecec aoaec. a oe pacea pooc ooaee cooec c cpye, oopaaeo cpee ACM-K eocpeceo epe xoo.
Kocpye apaep xapaepc aocc poeao opyp a
oee e. Xapaepc opyc ee aa, coepaeo cooecy pa, oe pee ecooo peapoa. Heoxoo oepy, o coac pa ecoo e, o oopaac o ea ooae paeco e. p o pooc epo e e eoa, o p epeae ax cooecyy oe.
Oopaee peyao oe oepoa ocyecec o apocy ooae oce oe aa.
pocop ox opae pao ocyecec oce xoa cpey ACM-K, a e - opaoy ooey.

ocy pae aaa ACM-K.

Peee aa aaa oec c oo ceyx poeyp:

"e", "y" - eeape oe (aoe ee) ooe o"ea poepoa,oopoe o xapaepy oepoa ooe.

B cpee ACM-K peaoa aop pooo oee peoe coco pecae ooae aooo oea oee yo ee ( pooo).
Ec aop aox eeo e oeae peoa a ooy, peycopea oooc pacpe aopa aox eeo.

Meoa pao cpee ACM-K

cpee ACM-K ooa a oaa ee yo , a ocpoee oe oa o'ea poepoa. Paccop ep pe.
1) Moeoe pecaee ea, o ya opyec ecoo peaope cpe WF77.
2) pooc pac oaa cooecye popa cpee WF77. ae, o .. 1) 2) oy oc cpee ACM-K, o oo oa oa yepeoc, o e peyec poo aooy oay (.e. oy ocaoo "poc").
3) popa oy, peay oeoe pecaee cooecyeo ea o ya acaec a c pacpee "FOR".
4) pooc epexo cpe WF77 ACM-K (oaa PASMLOAD). pao ACM-K peyec 512 coo ocoo a (RAM).
5) Bpaec aao (ee o yo), acoc o acca coaaeoo popaoo oy . B pee "Coae" oo a pea oppoa popaoo oy. B oo apae ec oppyec eocpeceo ecoo peaope, oop opaec ooae oce oa e opa. B pyo apae oc oy, paee coaoo poeeo epy oay cpee WF77. Haoae, o ea o ya oo coaa c ee opopa oeo a, peaye cooecyee oeoe pecaee.
6) B cooec co ceape aoa (o pae ACM-K) pooc oepa o coa opypa eca oca coaaeoy ey o yy.
Ec eo coaec o pooy (.e. o ye eeyc cooecye aaoe popaoy oy), ec poeaa eo peaepyc ceape aoa, ax pyx o'ce ec e peyec.
Ec poecce coa ea, o ya oa cooe o oax, ooae, pa pe "pepa pac", oc eoxoe ee ec popa ecye aee cooec c apoca ACM-K.
Ceye e y, o o popa oy, oaae ACM-K, poxo a aa pac. Ha epo ae pooc pac c aopecoo a oppa 77 o'ee o, a a opo - o ypeee pecaee cpe ACM-K. Ha opo ae pooc poepa paoc oyepoa popaoo oy eo cooece cpee ACM-K. Ocoeo aeo poepec, o a epeea, coyea ece, o ea aaoe aee, o coepaac cce opax apaepo - o cae eoxooc opo epea ax p peapoa. Ec ce a po yceo eo coao (.e. eec ocae a ececeo e, o'e ec, aoe opyp), oay oe ea (ya) oo poo ye a eco ypoe. o a cooecye pey oe oepoa pee aa aaa, ooy aee ye eo paccapa, a caocoe pe.


Meoa pao opaoo ooee ACM-K

ocoy ocooe aaee cpe ACM-K - oao pe, opaoo ooee ooae oppye ce "pe" ecoe xoe oec.Meoa aece ax opeeec x cpyypo (c. ocae) ceape aoa.
ec eecoopao ocaoc a eoe cooa ye coppoao opaoo ooe.
Ocoo pe ee cooa - "opa". peooaec, o poecce pocopa opaoo ooe ooae pae epecye eo cpo cooecyx a. Koa acyae opa apaepecoo oca ao-o oe, pee "oppepoa opypa (KP)" a pa "aec" paee ceaa opa. ooae peocaec oooc pa e pocope opy aoo a BEHA. ocoy opyp pae ae oopaac oopeeo, epeoc pax ax pooc "pyy" - poce epeee oopaac co ae, a xapaepc (eope epeee) - xapaepcec ea.
Hao ee pa, o paepoc oeoo pecae cao cpee ACM-K e oa pea 64*64 ocea (yep ca) 4096 oceo (ooep ca).
B pee aaa eecoopao pa ocae xooo (xooo) oec, ooao ec opao peopayeoo coa eo (yo) ecoe xooe oece. yepx cao payo ooac ocae caa e eo o y c ye apyeo. B o cyae ooo oppoae paa cee, oop ae peopayec ACM-K yep acc oecx ce aao paepoc. B poecce eo oppoa peya oopaaec acooep.
1) a epa ea (ya). Ha o ae cpeca paea "Opaoa oee" oppyec oe, cocoa pex oceoaex ee:
"o" > "epeopaoae" > "oopaee peyaa" Bepa coc ocy pa oac aeaoc (pax ae ocpyx apaepo) opae a xoe oec.

2) a oa ea (ya) cocae oe o'ea poepoa. o a eoxo, oa e yepeoc, o oac aeaoc oeoo pecae ya (ea) eo peae oac aeaoc ce oe.
Cpeca paea "Opaoa oee" oppyec cpyypoe apaepecoe ocae oe o'ea poepoa (o ee ac, ec oe coaec ye oceoaeoo apaa cpyyp). pooc aa ocpyx apaepo coaoo ea (ya) a xoo ca. Boc opae (o epe eoxooc) a ae ocpyx apaepo. ya oa oyepyc. pep oee "ex" (TEST) "exc" (TEST2) cpyypx oca o'ea poepoa a aaoe oee. B cpaax a oca cooecyx oee. TEST ooe oaoc c eoo oppoa oee poecca peopaoa yepx cao pocee oe ya.
TEST2 oopaae ey cpyypy, oopo ocyecec peopaoae paepoc caa ee =I-.


Coco oca oe o'ea poepoa

Bxoo cpe ACM-K peaae opoa cpyyp oe o"ea poepoa. Moe o"ea - o cooyoc ee yo. e y - eeape oe ooe o"ea poepoa. Aao a c ce co aayp ce IBMcoecoo oepa. Kopee co opee oac aeaoc oeoo pecae. Kope coa c:
- " ." oepe ca (eeppoa);
- "*" eoepe ca (cya c paoep pacpeeee);
- "**" aco-oepe (cya c epaoep pacpeeee);
- ( ) p c cocpeooe apaepa;
- I paa paea, o peopaoae paepoc caa;
- = peopaoae yepx cao;
- - peopaoae ooepx cao;
- \ / xo/xo ye ya.
aaa cpoc coa a (opa). Kaa opaa coep e oee 8 coo .
p oca cpyyp oe o"ea poepoa opa aocc a oopaae ao, coco pex cpo.
Cpo oeee coo "C", c cpoa-oeap. B x o yac poeao c ey ooea oe. a aoa 250 coo. Paeee opa ec co ">". aoc cpyyp oycaec ca poe ey opaa coa ">".
Be oca poxoee caa cea apao. o o epecee "O" ca pacpocpac "apaeo" o y e. Ec oa ee e coep ooo ea, o ca e ocycye. opaa "O" ooaae ye. B ye o opy oo oepoa:
- coee yoee cao, xox ye c ae poxoee o oo y e;
- cpaee cao o aye, apay ay, cpeey ae epexo epxe e e o yco;
- eee caa ao-o e, cy poee cao aao ooe.
apaepeoe ocae o"ea poepoa pooc oeo o cpyypoo. Kao oe ea ya cea cac cooece:
- opaa,
- ,
- popaa oepya eo ye,
- opyp,
- cpaa.
opyp peaae oa ocpyx apaepo.
aooo aopa ee papaoa cey coco pecae:
.= co oepeoo ooepoo caa;
*= co eoepeoo ooepoo caa;
=*= eoepe co pocpaca;
=((*))= eoepe pocpace p;
=(*)= eoepea oeca ccea;
=(*')= eoepea oeca ccea (opoaa);
=I- aaaop opae;
-I- pe yco ep;
=I= pe yco ep (opoa).
Ooepe e epooo paa e ceye ooae: -()- yceoe eo, -(.)-, -(*)-, -(**) - cooeceo oepeoe, eoepeoe, acooepeoe e. Ocyce coo yaae a aa yceoc --. aee oa epecc e yy.
-(A)- aepoecoe eo;
-(K)- oeaeoe eo;
-()- epepyee eo epoo poa;
-()- epepyee eo opoo poa;
-()- aepaee eo;
-()- eppyee eo,
-(W)- eoe eo oeo a.
Ocae e opa coyc oa peyao:
=I o o;
-I o paa.
Ocae e opa coyc oa oa poeyox peyao:
=[X] oo oa ocea ae caa;
[0]= oo oa ocea ae caa;
=[E] oo oa yepoo caa;
[E]= oo oa yepoo caa.
B ao aop oee yo e o ye - oaop. o ye ec oce eeo oca cpyyp oe oce eo e oy pcycoa ae y e.
B occee ACM-K pcycye cpaoa opa o ao e.
Ec poeaa e yoeope ao aop oee ee yo, o c oo eaa, poea oe paa ao aop oee. aoe oe ocpac a poo. Moe ooo ea oppyec ye ooae ea yao opao opoae eo a aopeco e OPTPAH-77. popaa oa oopea, a opopaa oeo a.
SUBROUTINE "" ( < cco opax apaepo >)
...
...
...
RETURN
END
Cco opax apaepo cpoc ceye ope: SUBROUTINE "" (E,N,< INTEGER >,< REAL >,< CHARACTER >)
e:
E - oec acc paepoc N N*N;
N - paepoc acca E;
<INTEGER> - cco ex apaepo (oo cape (poce) epeee);
<REAL> - cco eecex apaepo (oo cape (poce) epeee, eaop oopx e oy aac c y "C";
<CHARACTER> - cco ecox (xoepox) apaepo ( CHARACTER OPTPAHe), eaop oopx o aac c y "C".
oce aooa oaeo epecee oeape c ocae cex opa x apaepo, yaax aooe ceye ope:

C TEKCT , OBOP O HAHAEH BEHA
C "EHTKATOP"-<OCAHE BE.EPEMEHHO/OHA CTPOKA/>
...
C "EHTKATOP"-<OCAHE EO EPEMEHHO /OHA CTPOKA/>
...
C "EHTKATOP"-<OCAHE EP.TA CHARACTER/OHA CTPOKA/>
...
epe a apaepa cce opax e ocac oeapx !
He oycae o ax ae, a epe oepaop READ, a ae epeaa oceo caa E epe COMMON oac, o oo cea c oo oo. opyp oe ea cpoc aoaec a ocoe oeape.
epec oyckae cey ooe ya:

E1(q),E2(q) - xoe ca epo opo e cooeceo,
E1'(q),E2'(q) - xoe ca,
L[ ] - oepaop peopaoa, a,b,...z - apaep, opeee yco peopaoa.
Ec xoo ca ocycye, popaa, peaya ye oa oecea cee ae eeo y oceye oa.
popaa oa oopea, a opopaa oeo a.

SUBROUTINE "" ( < cco opax apaepo >)
COMMON /TARGET/ TARGET
C TARGET - ceoe aee eeo y, ec
C coyec oaop
...
...
...
RETURN
END

Cco opax apaepo cpoc ceye ope:
SUBROUTINE "" (E1,E2,N,<INTEGER>,<REAL>,<CHARACTER>) e:
E1 - oec acc paepoc N N*N,
E2 - oec acc paepoc N N*N,
N - paepoc acco E1, E2,
<INTEGER> - cco ex apaepo (oo cape (poce) epeee),
<REAL> - cco eecex apaepo (oo cape (poce) epeee, eaop oopx e oy aac c y "C".
CHARACTER> - cco ecox (xoepox) apaepo ( CHARACTER OPTPAHe), eaop oopx o aac c y "C".
oce aooa oaeo epecee oeape c ocae cex opax apaepo, yaax aooe ceye ope:

C TEKCT , OBOP O HAHAEH A
C "EHTKATOP"-<OCAHE BE.EPEMEHHO/OHA CTPOKA/>
...
C "EHTKATOP"-<OCAHE EO EPEMEHHO /OHA CTPOKA/>
...
C "EHTKATOP"-<OCAHE EP.TA CHARACTER/OHA CTPOKA/>
...
epe p apaepa cce opax apaepo oeapx e ocac!
He oycaec o oceo cao ae, e epe E1, E2 o ec e oycaec cooae oepaopo DATA, READ, oox o cocoy aa ae epeex. E1, E2 eoyco oea COMMON oac.
opyp oe ya cpoc aoaec a ocoe oeape.

oppoae MOE BEHA o popae ooae

Ka oeeo e, oe ooo ea, aeoo cpey, oycaec peaoa a aopeco e OPTPAH-77. epec oycae cey ooe oe:
'(q) = L a,b,z{E(q)}
E(q) - xoo ca,
E'(q) - xoo ca,
L{} - oepaop peopaoa, a,b,...z - ocpye apaep.
Ec xoo ca ocycye, popae, peaye oe oe peycapac o ax-o ax a 6 a. Ec ocycye xoo ca, o popae, peaye oe, eoxoo peycope o eepa,o o ae caa aoocox oax c aa c oepo, o 10.
popaa oa oopea, a opopaa oeo a. SUBROUTINE "" ( < cco opax apaepo >) ...
...
...
RETURN
END
Cco opax apaepo cpoc ceye ope: SUBROUTINE "" (E,N,< REAL >,< INTEGER >,<
CHARACTER >)
e:
E - oec acc paepoc N N*N;
N - paepoc acca E;
< REAL > - cco eecex apaepo (oo cape (poce) epeee), eaop oopx e oy aac c y "C";
<INTEGER > - cco ex apaepo (oo cape (poce) epeee);
<CHARACTER> - cco ecox (xoepox) apaepo ( CHARACTER OPTPAHe), eaop oopx o aac c y "C".
oce aooa oaeo epecee oeape c ocae cex opax apaepo, yaax aooe ceye ope:
C TEKCT, OBOP O HAHAEH BEHA /OHA CTPOKA/
C "EHTKATOP"-<OCAHE BE. EPEMEHHO/OHA CTPOKA/>
C "EHTKATOP"-<OCAHE EO EPEMEHHO /OHA CTPOKA/>
C "EHTKATOP"-<OCAHE CMB. EPEMEHHO /OHA CTPOKA/>
EPBE BA APAMETPA B CCKE OPMAHX HE OCBATC B KOMMEHTAPX !!
T epeex, ecex cce opax apaepo o opeec oo O MOAH.
He oycae o ax ae, a epe oepaop READ, a ae epeaa oceo caa E epe COMMON oac.
Kpa epee peoa popao peaa oe ea:
1) OCKAETC HAE POEOB B KEBX COBAX, OHAKO HE PEKOMEHETC PABAT KEBE COBA C OMO CTPOK POOEH, TAK KAK B TO CAE HE APAHTPETC, TO KEBOE COBO BOCPMETC PABHO.
2) PAE OPEHTPOBAH OPAOTK OHO OPOPAMM, CEOBATEHO CXOH A OEH COEPAT TOKO OH OPOPAMM.
3) OCKAETC OPAOTKA AA C HECKOKM OPOPAMMAM, HO TOA EPBA OPOPAMMA - OEO BA, A OCTAHE - OPOPAMM-HK.
4) P OCAH OPMAHX APAMETPOB EPBE BA APAMETPA POCKATC, TO ECT OH HE OH MET KOMMEHTAPEB.
5) AOOBOK POPAMM OEH MET CEY B:
SUBROUTINE <M>(APAMETP 1,...,APAMETP N)
C HOPMAOHH TEKCT O OPOPAMME
C APAMETP 3 - <TEKCT> ,OHA CTPOKA
.
.
.
C APAMETP N - <TEKCT> ,OHA CTPOKA
AEE CEET TEKCT OPOPAMM, PEM EPBM OEPATOP HE MOET T OEPATOPOM
KOMMEHTAP.
epeee a CHARACTER oc a ae ax, cpyyp oopx oy cey:
- pa y, ocpoee ocx Y,X, peopayc acc eecex ce, ec ooae ocoyec opopao WGRAF(DIMA,CDIMA,ND) e: DIMA(ND) - acc eecex oceo y ND paocox oax, oopa ocaec pao, xpac ae ax o ee CDIMA. CDIMA(23,71)- acc ecox epeex, oop ocaec opopae, peaye oe ea ya a: CHARACTER*1 CDIMA(23,71) , poe oo, yaaec cce opax apaepo. Ec ND<=70, o acc DIMA coep oce, pa e c ao, pa ay a oc X paa. Ec ND> 70, o acc DIMA coep oce, pae c epoe. B o cyae eoxoo aec pa, coy ce oe (.e. 70 oax). Macc DIMA ye "pacpe" o ND oceo.
- pa y oapo peopayc yep acc oecx ce H(N,N). C oo yx pao AMP(X) FAZA(X) yy ooae papaaaeoo ea ya oe ooy cee y H(X,Y) p Y = 0 .e. H(X,0), ec pa H(X,Y) oaae epao cepe. B acce DIMH(N,N) oce opae opopae WGRAF2(DIMH,CDIMA,CDIMF) opayc oece oce DIMH(I,J) = CDIMA(K) * EXP(CDIMF(K)) acc DIMH ocaec a oec.
ep coco peopaoa ae ceo coyec opaa oa cepax xapaepc, a opo - yepx epoecx y, o ycx oo, oaax epao cepe.
Ta opao, ooae pacpeo ooe AC ACM-K p peaa oe ea eoxoo cpo opopay oeo a ceye opae:
SUBROUTINE "" (E,N,< REAL >,< INTEGER >,< CHARACTER >)
C TEKCT , OBOP O HAHAEH BEHA
C "EHTKATOP"-<OCAHE BEECTBEHHO EPEMEHHO>
...
C "EHTKATOP"-<OCAHE EO EPEMEHHO>
...
C "EHTKATOP"-<OCAHE EPEMEHHO TA CHARACTER>
EPBE BA APAMETPA B CCKE OPMAHX HE OCBATC B KOMMEHTAPX !!!
COMPLEX E(N,N) (o E(N))
CHARACTER*1 CNAME1(23,71),CNAME2(23,71) .....
DIMENSION NAME1(70),NAME2(70) ...
CALL WGRAF1(NAME1,CNAME1)
CALL WGRAF1(NAME2,CNAME2)
.......
< eo poeyp >
RETURN
END
Bopo apa:
SUBROUTINE "" (E,N,< REAL >,< INTEGER >,< CHARACTER >)
C TEKCT , OBOP O HAHAEH BEHA
C "EHTKATOP"-<OCAHE BEECTBEHHO EPEMEHHO>
...
C "EHTKATOP"-<OCAHE EO EPEMEHHO>
...
C "EHTKATOP"-<OCAHE EPEMEHHO TA CHARACTER>
...
EPBE BA APAMETPA B CCKE OPMAHX HE OCBATC B KOMMEHTAPX !
COMPLEX E(N,N) (o E(N)), H(N,N)
CHARACTER*1 CNAME1(23,71),CNAME2(23,71) .....
DIMENSION NAME1(70),NAME2(70) ...
CALL WGRAF2(H,CNAME1,CNAME2)
< eo poeyp >
RETURN
END


oppoae OB MOE o popae ooae

Ho ye, ae ACM-K, oycaec peaoa a aopeco e OPTPAH-77. :

E1(q),E2(q) - xoe ca epo opo e cooeceo, E1'(q),E2'(q) - xoe ca,
L[ ] - oepaop peopaoa,
a,b,...z - apaep, opeee yco peopaoa.
Ec xoo ca ocycye, popaa, peaya ye oa oecea cee ae eeo y oceye a.
popaa oa oopea,a opopaa oeo a.
SUBROUTINE "" ( < cco opax apaepo >)
...
...
...
RETURN
END
Cco opax apaepo cpoc ceye ope:
SUBROUTINE "" (E1,E2,N,<REAL>,<INTEGER>,<CHARACTER>) e:
E1 - oec acc paepoc N N*N;
E2 - oec acc paepoc N N*N;
N - paepoc acco E1,E2;
< REAL > - cco eecex apaepo (oo cape (poce) epeee), eaop oopx e
oy aac c y "C";
< INTEGER > - cco ex apaepo (oo cape (poce) epeee);
<CHARACTER> - cco ecox (xoepox) apaepo ( CHARACTER OPTPAHe), eaop
oopx o aac c y "C".
T epeex, yaax aooe o opeec oo o yoa. Heoyco x oee ae, a oepaopo CHARACTER.
oce aooa oaeo epecee oeape c ocae cex opax apaepo, yaax aooe ceye ope:
C TEKCT , OBOP O HAHAEH A/OHA CTPOKA/
C "EHTKATOP"-<OCAHE BEECTBEHHO EPEMEHHO>
...
C "EHTKATOP"-<OCAHE EO EPEMEHHO >
...
C "EHTKATOP"-<OCAHE EPEMEHHO TA CHARACTER>
...
EPBE TP APAMETPA B CCKE OPMAHX HE OCBATC B KOMMEHTAPX: (E1,E2,N , ...
He oycaec o oceo cao ae, e epe E1,E2 o ec e oycaec cooae oepaopo DATA, READ, oox o cocoy aa ae epeex,a ae oepaopo ecopaoo oa/oa (a NAMELIST, oox) oa oceo caa.E1,E2 eoyco oea COMMON oac. Kpa epee peoa popao peaa oe ea:
1) OCKAETC HAE POEOB B KEBX COBAX, OHAKO HE PEKOMEHETC PABAT
KEBE COBA C OMO CTPOK POOEH, TAK KAK B TO CAE HE APAHTPETC, TO
KEBOE COBO BOCPMETC PABHO.
2) PAE OPEHTPOBAH OPAOTK OHO OPOPAMM, CEOBATEHO CXOH A
OEH COEPAT TOKO OH OPOPAMM.
3) OCKAETC OPAOTKA AA C HECKOKM OPOPAMMAM, HO TOA EPBA
OPOPAMMA - OEO BA , A OCTAHE - OPOPAMM-HK.
4) P OCAH OPMAHX APAMETPOB EPBE BA APAMETPA POCKATC, TO ECT OH HE
OH MET KOMMEHTAPEB.
5) AOOBOK POPAMM OEH MET CEY B:
SUBROUTINE <M>(APAMETP 1,...,APAMETP N) C HOPMAOHH TEKCT O
OPOPAMME C APAMETP 3 - <TEKCT> ,OHA CTPOKA
.
.
.
C APAMETP N - <TEKCT> ,OHA CTPOKA
AEE CEET TEKCT OPOPAMM, PEM EPB OEPATOP HE MOET T OEPATOPOM
KOMMEHTAP.

opo pao cpee ACM p ee pacpe

1. oce xoa eco peaop opyec opopaa ooae e:
SUBROUTINE <M> (E1,E2,N.......) CHAHAEHE OPOPAMM
C"M"- OCAHE APAMETPA<oa cpoa>
C <caaa ocaceecee,ae - ee, ae - ee,ae CHARACTER>
2. opopaa epeaeca pacaae cooecye a.
3. B cyae yceopac ecapaeppooepoa, opoaecopyp ooo ea aoac cxo o'e oy, peaye MOE BEHA
4.c apaep pooepoa, x cco cocae cooec c eyaa peoa, o ece popa ec epeee, ae oopx e opeee, pac pepaec ooaepeaaecp peee o pooepac, o o pepae ee.
5. Pe POOT TPAHC eoxoo cooa, ec ec cco opax apaepo oeap opa apaepa.
6. Pe PEPBAT TPAHC paec, ec ec eaop epeeo, aee oopo e opeeeo e ocao cce opax apaepo.


.

.
FORTRAN-77. . .
, :

* - :I:(<>,<1>,...< n>) - -
<>. *)
- :F:(<>) - <>.
- :_F:(<>) - <>.
** - :D:(<>) - <-
>. **)
** - :S:(<1>,<2>) -
<1>,<2>. **)
- + - .
- - - .
- * - .
- / - .
- ** - .
:
*) 5.
**) .
.
.
- . ,
:
- , , 6, 1- -
!
- .
- .
:
-> [:I:,:_F:,:F:,:D:,:S: < >],
-> [**,*,/,-,+]
. -
.

.
.
, .
:
- , .
- , . ,
"#". , - [c], # - [].

.
.
. :
- ,
- .
:
SIN(X) - sin(x);
COS(X) - cos(x);
x
EXP(X) - E ;
ALOG(X) - Ln(X);
TAN(X) - Tg(X);
INT(X) - ENTIER(X) - X;
IFIX(X) - ;
IDINT(X) - ENTIER(X) - X, X ;
HFIX(x) - ;
REAL(X) - ;
I IXI, X2=0; SNGL(X1,X2) - <
I-IXI, 2<0;
CMPLX(X1,X2) - ; S() - IXI ;
CABS(X) - ;
AIMAG(X) - ;
*
CONJG(X) - X ;
SQRT(X) - ;
ALOG(X) - Lg(X);
ASIN(X) - arcsin(x);
ACOS(X) - arccos(x);
ATAN(X) - arctg(x);
ATAN2(A,B) - arctg(a/b);
SINH(X) - SH(X);
TANH(X) - TH(X);
GAMMA(X) - -;
ERF - ;
ERFC(X) - ;
- , .
RECT(X) - RECT(X);
RECT(X,Y) - RECT(X,Y);
CIRC(X) - CIRC(X);
SINC(X) - SIN(X)/X;
, F(X,.....), .
, . , , :
U~(T)=U(T)*SIN(A); TL < T < TH;
U(T) - ;
U~(T) - ;
- ;
TL < T < TH "<" . "<=".
- , . , , . . "L", - "H".
:

1) U~(T)=U(T)*SIN(A)*COS(X); TL < T < TH; XL < X < XH;
U(T) - .
:
1) , : w(s)=sin(s)*:i:(cos(s,a),s)
SUBROUTINE GRO1(E1,N,SL,SH,AL,AH)
C - w(s)=sin(s)*:i:(cos(s,a),s)
C SL -
C SH -
C AL -
C AH -
COMPLEX E1(N),EVSP1(64),EVSP2(64)
COMPLEX ETMP02
DIMENSION VSP(64)
DIMENSION VSP1( 64)
DIMENSION VSP2( 64,64)
DS=ABS(SL-SH)/N
DA=ABS(AL-AH)/N
S=SL
DO 1 I1=1,N
RTMP00=SIN(S)
A=AL
DO 2 I2=1,N
E1=COS(A,RTMP01)
VSP2(I1,I2)=RTMP01
2 A=A+DA
1 S=S+DS
S=SL
DO 3 I1=1,N
VSP(I1)=VSP2(I1,I2)
2 S=S+DS
CALL QSF(DS,VSP,VSP,N)
VSP0()=VSP(N)
S=SL
DO 4 I1=1,N
EVSP1(I1)= VSP1(I1)
4 S=S+DS
S=SL
DO 5 I1=1,N
ETMP02=RTMP00*EVSP1(I1)
E1(I1)=ETMP02
5 S=S+DS
RETURN
END
2) , : w(s)=w(s)*sin(s)*:i:(cos(s,a),s)+:f:(w(s))
SUBROUTINE GRO2(E1,N,SL,SH,AL,AH)
C - w(s)=w(s)*sin(s)*:i:(cos(s,a),s)+:f:(w(s))
C SL -
C SH -
C AL -
C AH -
COMPLEX E1(N),EVSP1(64),EVSP2(64)
COMPLEX ETMP03
DIMENSION M(3),INV(4096),SVSP(4096)
COMPLEX ETMP04
DIMENSION VSP(64)
DIMENSION VSP1( 64)
DIMENSION VSP2( 64,64)
DS=ABS(SL-SH)/N
DA=ABS(AL-AH)/N
S=SL
DO 1 I1=1,N
RTMP00=SIN(S)
RTMP01=E1(I1)*RTMP00
A=AL
DO 2 I2=1,N
E1=COS(A,RTMP02)
VSP2(I1,I2)=RTMP02
2 A=A+DA
1 S=S+DS
S=SL
DO 3 I1=1,N
VSP(I1)=VSP2(I1,I2)
2 S=S+DS
CALL QSF(DS,VSP,VSP,N)
VSP0()=VSP(N)
S=SL

DO 4 I1=1,N
EVSP1(I1)= VSP1(I1)
4 S=S+DS
S=SL
DO 5 I1=1,N
ETMP03=RTMP01*EVSP1(I1)
EVSP2(I1)=E1(I1)
5 S=S+DS
M(1)=ALOG(N*1.0)/ALOG(2.0)-1
M(2)=0
M(3)=0
CALL HARM(EVSP2,M,INV,SVSP,1,IFERR)
CALL PER1(EVSP2,N)
S=SL
DO 6 I1=1,N
ETMP04=ETMP03+EVSP2(I1)
E1(I1)=ETMP04
6 S=S+DS
RETURN
END
: FORTRAN , 64 , :
" 64 "
, , . a OMMON- :
TMP - . 144 .
2, :
SUBROUTINE GRO2(E1,N,SL,SH,AL,AH)
C - w(s)=w(s)*sin(s)*:i:(cos(s,a),s)+:f:(w(s))
C SL -
C SH -
C AL -
C AH -
COMPLEX E1(N),EVSP1(64),EVSP2(64)
COMPLEX ETMP03
DIMENSION M(3),INV(4096),SVSP(4096)
COMPLEX ETMP04
DIMENSION VSP(64)
DIMENSION VSP1( 64)
DIMENSION VSP2( 64,64)
OMMON /TMP/ EVSP1,EVSP2,VSP,VSP1,VSP2
...
...
: MMON- , , . .
: 2 , - 4 ,
- 8 ;