7530T1 ㎡T1 −T4!T2=T2 −T4:TB=TE17531TB1=TE1‑TA1:TB2
＝TE2 −TA2!TB4=TE4‑TA47532TB=TB
＋T47534TE1
≫TB‑TA1:TE2=TB‑TA2:TE4=TB‑TA4:T4=O17535PR
工NTNC,TB,TB1 ，TE1 ，TB2,TE2,TB4,TE47536GOTO74207540GOTO5180
ダ ＝7600R$
＝¨134 7601INPUT'I
「rBl −";TEl7602 工NPUT"TB3=";TE37603
工NPUT"TB4 ＝";TE47604INPUT NC="?NC7605II7606INPUT
¨T3=';T37607INPUT T4=";T47608
工NPUT' ・P1 ＝";P1 ・7609INPUT TA1=" ；TA17610INPUT"TA2="
；TA27611INPUT"TA3="
；TA37612INPUT"
？A4 ＝";TA47613GOTO76307620R$='134'
・7621P1=P1+513.785*(TE1‑TB1
」＋118.O3*((EXP(‑3.466*TEl)‑EXP(‑3.466*TBl)) ＋4*(EXP(‑1.155
゛TE3)‑EXP(‑1.155*TB3)) ＋12.5*(EXP(‑.77*TE4)‑EXP(‑.77*TB4)) 〉7622PRINT"T
工ME ・";TB,"ACTIVEREACTORS‑";R$,"Pl ＝" ；P1,"REACT 工ONT 工ME1 ・・■;？i, ・'REACT 工ONTIME3= ¨;T3,"REACT 工ON ？ 工ME4 −";T47630PRINT
¨ ．−−−−−−−−−−−一一−−−，−−−，−−一一−−一一−，−−−−−−−−−−−−−−−，一一，−−一一 ．¨7631PRINT
■■￨S=>C(1),C ＝>C(2),R2{3),F1(4),F3(5),F4(6),EX エT(8) い7632PRINT
¨ −−−−−−−−−−−−−−−−−−−−−−−−，−一一一一−一一，−−−−−−−−−−−−−−−−−−−− ・17633INPUT"TYPETHEAPPROPRIATENUMBEH 川 ¨?B$7634IFB$="l"GOTO76707635IFB$="2
・・GOTO76807636IFB$="3
¨GOTO7.6907637IFBS="4"GOTO77007638IFB$
゛5' ・GOTO7710 ▽7639IFB$
＝"6"GOTO77207640IFB$="7"GOTO'7641IFB$
＝"8"'GOTO77407650R$
＝'・134" ，7651P1=P1
十513.785*(TE1‑TB1) ＋118.O3*((EXP(‑3.465*TE1)‑EXP( −3.466*TB1)) ＋4*(EXP(‑1
、.155*TE3)‑EXP(‑1.155*TB3)) ＋12.5*(EXP(‑ ・77*TE4)‑EXP(‑.77*TB4)))7653PR 工NT"PRESSUREOFTHEPRE‑CONTROL −" ；P17654E=SETPO
，PI7655E=E*KP7656P1
＝E ＋SETPO7658PRINT
・'TIME= ・・;TB, ・・ACTIVEREACTORS −・';R$ ， PI‑";PI,"REACT 工ON ？ 工ME1=' ・;T1, ・・REACTIONTIME3
＝" ；T3,"REACTIONTIME4 ≫";T4,"NUMBEROFCONTROL= :NC7659GOTO76307670NC
＝NC+17671TB
＝TE176,72T1='T1‑NC*TP
十TB:T3 ＝T3 −NC*TP 十TB:T4=T4‑NC*TP 十TB7673TB1
＝TE1‑TA1:TB3=TE3‑TA3!TB4 ＝TE4‑TA47674TB
＝NC*TP7675TE1
＝TB −TA1:TE3=TB‑TA3;TE4 ＝TB‑TA47676PRINTNC,TB,TB1,TE1,TB3,TE3,TB4,TE47677GOTO76507680NC
＝NC ＋17681T1=T1‑TP!T3=T3
−TP:T4=T4‑TP ｀7682TB1=TE1:TB3=TE3:TB4=TE47683TB=NC*TP7684TEI=TB‑TA1:TE3=TB
−TA3:TE4=TB‑TA47685PRINTNC,TB,TB1,TE1,TB3,TE3
，TB4,TE47686GOTO76507690T1
・T1‑TA2 十TB:T3=T3‑TA2+TB:T4=T4‑TA2 十？B7691TB1
＝TE1;TB3 ≫TE3:TB4=TE47692TB=TA27693TE1=TB‑TA1:TE3=TB‑TA3:TE4=TB‑TA4
7594PR 工NTNC ，TB,TB1 ，TE1,TB3,TE3,TB4 ，TE47695GOTO76207700T3=T3‑T1:T4=T4
−T17701TB1=TE1!TB3=TE3iTB4=TE47703TB=TB 十Tl7704TE1
＝TB−TA1:TE3=TB‑TA3sTE4 ＝TB‑TA4!Tl=07705PR
工NTNC ，TB,TB1,TE1,TB3,TE3,TB4 ，TE47706GOTO76207710T1=T1‑T3!T4
・T4‑T37711TB1
・TE1;TB3 ・TE3:TB4 ＝TE47713TB
＝TB 十T37714
，TEl‑TB −TAliTE3 ・TB‑TA3sTE4 −TB‑TA4 ≫T3=07715PR
工NTNC,TB ，TB1,TE1,TB3,TE3,TB4 ，TE47716GOTO76207720T1=T1‑T4tT3
＝T3−T47721TB1
＝TE1jTB3=TE3sTB4=TE47722 TB=TB ＋T47724TEl
・TB‑TAl:TE3 ・TB‑TA3:TE4=TB‑TA4iT4=07725PRINTNC,TB
，TB1,TE1,TB3 ，TE3,TB4 ，TE47726GOTO7620 フフ40GOTO51807800R$="234
・'7801INPUT"TB2="
；TE27802 工NPUT TB3＝"；TE37803INPUT
¨TB4='・；TE47804INPUT"NC='
・;NC7805INPUT"T2="
；T27806INPUT"T3=";T37807INPUT T4=";T47808INPUT"P1=";P17809INPUT
¨TA1 ＝";TA17810INPUT
¨TA2 −";TA27811INPUT TA3=";TA37812INPUT
¨TA4=";TA47813GOTO7830 フ820R$= ・234'・7821Pl
＝Pl＋513.785*(TE2‑TB2)+118.03*(6*(EXP( −.866*TE2)‑EXP{ −,866*TB2)) ＋4*(EXP(‑1.155*TE3)
−EXP( −1.155*TB3)) ＋12.5*(EXP(‑.77*TE4)‑EXP(‑.77*TB4)))7822PRINT"TIME=";TB,"ACT
工VEREACTORS= ・・;RS,"P1 ＝";P1 ，"REACT 工ON・T工ME2= ・・?T2, ・'REACT:roNT 工ME3=" ；T3,"REACTIONTIME4 ＝";T4
7830PRINT11 7831PR 工NT1 ・
・II
s=>c
7832PR 工NTllS=>F7833INPUT"TYPE 叫 2(9 THE 78341 ：FB$ −'・1"GOTO7835IF
畔= ¨2"GOTO
，C=>C(2 ) ，S=>F3
,R1(3),F2(4),F3(5 10) 一一一一一一一一一一一一‑
IT 8
一 一
‑
7) 一 一
I・ l l 1
・
),F4(6 ）EX ,S ＝＞F4（
APPROPRIATENUMBER!I ;B$78707880
7836 工FB$="3' ・GOTO789078371
：FB$ ＝"4"GOTO790078381:FB$=
¨5'GOTO79107839IFBS="6 GOTO79207840 工FB$= ¨7¨GOTO79307841
工FB$ ＝・・8・・GOTO79407842IFB$="9'GOTO79507843IFB$="10
‥GOTO79607850R$="234"7851Pl
・Pl＋513.785*(TE2‑TB2) ＋118.03*(6*(EXP( −.866*？E2)‑EXP(‑.866*TB2)) ＋4*(EXP(‑
，55*TE3)‑EXP(‑1 ．155*TB3))＋12.5*(EXP(‑.77*TE4)‑EXP(‑.77*TB4)))7853PRINT
・・PRESSUREOFTHEPRE‑CONTROL −"；P17854E
＝SETPO −PI7855E
＝E*I7856P1=E
十SETPO7858PRINT"TIME="
；TB,"ACTIVEREACTORS ＝・';R$，¨P1＝";P1,・'REACTIONTIME2=' ・;T2，・'REACTIONTIME3=";T3,"REACT 工ONT 工ME4＝";T4,"NUMBEROFCONTROL=";NC7859GOTO78307870NC
＝NC＋17871TB=TE27872T2=T2‑NC*TP
十TBjT3=T3 −NC*TP 十TB!T4=T4‑NC*TP ＋TB
7873 7874 78757876 7877 7880 7881 7882 7883 7884 7885 7886 7890 78917892 78937894 7895 7900 7901 79037904 7905 7906 79107911 7913 79147915 7916 7920 79217922 7924 7925 7926 7930 7931 7932 7933 79347935 7940 7950 79517952 7953 7954 7955 79607961 7962 7963 7964 7965 80008001 8002 80038004 80058006 8007 80088009 8010 8011
P 。0. に お け る専 門 知 識 を 活 用 し た意 思 決 定 支 援 シ ステ ム TB2 ＝TE2‑TA2:TB3=TE3‑TA3:TB4=TE4‑TA4TB=NC*TPTE2=TB
−TA2:TE3=TB‑TA3:TE4 ＝TB‑TA4PRINTNC,TB,TB2,TE2,TB3,TE3,TB4,TE4GOTO7850NC=NC
＋1T2=T2‑TP:T3=T3
−「rP!T4 ＝T4‑「」?PTB2=TE2
：TB3=TE3:TB4=TE4TB=NC*TPTE2
−TB−TA2:TE3 ＝TB‑TA3:TE4=TB‑TA4PRINTNC,TB,TB2,TE2,TB3,TE3,TB4,TE4GOTO7850T2=T2‑TA1
十TB:T3 −T3‑TA1 十TB:T4=T4 −TA1 ＋TBTB2
＝TE2;TB3=TE3sTB4=TE4TB
＝TA1TE2=TB‑TA2:TE3
＝TB−TA3sTE4=TB‑TA4PRINTNC,TB,TB2,TE2,TB3,TB3
，TB4,TE4GOTO7820T3=T3‑T2:T4=T4‑T2TB2
＝TE2:TB3= 「rE3:TB4=TE4TB
＝TB＋T2TE2=TB‑TA2:TE3=TB
−TA3:TE4 ＝TB−TA4:T2=0PRINTNC,TB,TB2,TE2
，TB3 ，TE3 ，TB4,TE4GOTO7820
「r2=T2‑T38T4=T4 −T3TB2=TE2:TB3=TE3;TB4=TE4
？B=TB ＋T3TE2=TB‑TA2:TE3=TB‑TA3:TE4
＝TB‑TA4:T3=0PRINTNC,TB,TB2,TE2,TB3,TE3,TB4,TE4GOTO7820T2
＝T2−T4:T3=T3 ，T4TB2=TE2!TB3=TE3:TB4=TE4TB=TB 十T4TE2=TB
−TA2:TE3 ＝TB‑TA3jTE4=TB‑TA4 ≪T4=0PRINTKC
，TB,TB2 ，TE2 ，TB3, ？E3,TB4,TE4GOTO7820T2=T2‑T4
！T3=T3‑T4TB2=TE2
−TA2:TB3=TE3‑TA3:TB4 ＝TE4‑TA4TB=TE2
＋T4TE2=TB‑TA2:TE3
＝TB−TA3:TE4 −TB−TA4:T4=0PR
工NTNC,TB ，TB2 ，TE2,TB3,TE3,TB4,TE4GOTO7820GOTO5180T3=T3‑T2:T4
・T4‑T2TB2=TE2
−TA2:TB3 ＝TE3 −TA3!TB4=TE4‑TA4TB=TE2 十T2TE2=TB‑TA2:TE3=TB‑TA3:TE4=TB‑TA4:T2
・0PRINTNC,TB,TB2,TE2,TB3,TE3,TB4,TK4GOTO7820T2=T2‑T3!T4
＝T4‑T3TB2=TE2
−TA2!TB3=TE3 −TA3;TB4 ＝TE4‑TA4TB=TE2 十T3TE2
＝TB−TA2:TE3 ＝TB −TA3:TE4=>TB‑TA4 會T3＝0PR
工NTNC,TB,TB2, ？E2, ？B3,TE3, ？B4, ？E4GOTO7820R$="1234'
・
工NPUT"TB1=";TE1INPUT"TB2=";TE2:INPUT"TB3
＝"；TE3 工NPUT"TB4=";TE4INPUT"NC=
;NCrNPUT"T1
＝";T1nINPUT"T3="
；T3INPUT"T4=";T4INPUT"Pl="
；P1INPUT"TA1=";TA1
71
8012n
8013INPUT"TA3="8014n 8015GOTO8030
8020R$ ＝"1234"
;TA2
; ？A3
；TA4
8021Pl ・Pl ＋513.785*(TEl‑TBl)+118.03 ゛({EXP(‑3.466*TEl)‑EXP(‑3.466*TBl)) ＋6*(EXP(‑,866*TE2)‑EXP(
−.866*TB2)) ＋4*(EXP(‑1.155*TE3) −EXP(‑1.155*TB3)) ＋12.5*(EXP(‑.77*TE4)‑EXP(
−.フ7*TB4)))8022PR
工NT ？工ME−・・;？B,"ACT 工VEREACTORS ＝";R$ ，"PI・ ；PI,"REACTION ？IMEl ・ ;？l,"REAC
T 工ME2 −";T2,"REACTIONTIME3 ・"；T3,.REACT 工ONTIME4 ．";T4
8030PR 工NTll ．−−一一−一一8031PR エNT !s ・>c （i)8032PR:INT
¨S >F2 （7
c ≪=>c I
く21
ぐF ） no
−I
a ＼j・cxr 八ふiNふo ￣ ゛iiII^o ￣ ゛χji^o ￣ ぶ・ゝxvi ￣￣￣￣￣￣￣8033INPUT
・・TYPETHEAPPROPRIATENUMBERI1";B$8034IFB$
−"l"GOTO80708035IFB$
＝ 2"GOTO80808036IFB$="3"GOTO80908037IFB$‑'
・4 ・ GOTO81008038IFB$
・"5 ¨GOTO81108039IFB$
＝・'6・ GOTO81208040
工FBS=" フ GOTO813080411:FB$="8'*GOTO81408042 工FB$ ＝"9"GOTO81508043
］
：FB$ ・"10 ・・GOTO81608050R$
・'・1234' ・
EXIT(8
8052P1=P1 ＋513.785*(TE1‑TB1)+118.O3*((EXP(‑3.466*TE1)‑EXP(‑3.466*TB1)) ＋6*(EXP(‑.866*TE2}
−EXP(‑.866*TB2)) ＋4*(EXP(‑1.155*TE3)‑EXP(‑1.155*TB3))+12.5*{EXP(‑.77*TE4)‑EXP(‑.77*TB4)))8053PR 工NT"PRESSUREOFTHEPRE‑CONTROL −";P18054E
＝SETPO‑PI8055
．E−E*J8056P1=E
＋SETPO8058PR
工NT ・'T工ME・";TB,"ACT 工VEREACTORS ＝・';R$,"Pl−"；P1,"REACT 工ONT 工ME1−";T1,・'耳EACT
工ON？IME2＝";T2,'・REACTIONT 工ME3＝";T3,・・REACT 工ONT 工皿E4"";T4, ・・NUMBEROFCONTROL ＝";NC8059GOTO80308070NCNC 十！8071TB
＝TE18072T1
≪T1‑NC*TP 十TB!T2=T2‑NC*TP 十TB:T3=T3‑NC*TP+TBsT4 −T4‑NC*TP 十TB8073TB1
＝TB1−TA1:TB2・TE2‑ ？A2了TB3‑？E3‑TA3 ≪TB4・TE4‑TA48074TB
・NC*TP8075TE1
・TB‑TA1:TE2 ＝TB‑TA2jTE3"=？B‑TA3: ？E4＝TB‑TA48076PRINTNC,TB,TB1,TE1,TB2,TE2,TB3,TE3,TB4,TE48077GOTO80508080NC=NC
＋18081Tl^Tl‑TP:T2=T2
−TPsT3 ＝T3‑TP!T4 ＝T4‑TP8082TBl
≪TEltTB2 −TE2；TB3・TE3 ≪TB4=TE48083TB
≪NC*TP8084
？El．TB‑TAl・TE2=TB‑TA2sTE3=TB‑TA3:TE4= ？B‑TA48085PR 工NTNC,TB,TB1,TE1,TB2,TE2,TB3,TE3,TB4,TE48086GOTO80508090T2
−T2‑T1!T3 ＝T3‑T!sT4=T4‑Tl8091TBl 爽TElsTB2・TE28TB3‑TE3iTB4 −TE48092TB
＝TB十Tl8093TEl
・TB‑TAl:TE2=TB‑TA2:TE3' ≫TB‑TA3:TE4・TB‑TA4:Tl −08094PR
工NTNC,TB,TB1,TE1 ，？B2 ，TE2,TB3,TE3,TB4,TE48095GOTO80208100T1=T1‑T2:T3
＝？3‑T2!T4 −T4‑T28101TB
↓がTEl:TB2・TE2:TB3 ＝TE3t？B4＝TE48103TB がTB十T28104TE1
＝TB‑TA1jTE2 ＝TB‑TA2!TE3 ＝TB‑?A3iTE4 ＝TB‑TA4sT2 ＝08105PR 工NTNC,TB,TB1,TE1,TB2 ，TE2,TB3,TE3,TB4,TE48106GOTO80208110
？1＝T1‑T35「r2＝T2‑T3814= ？4‑138111TB1"TE1ITB2=TE2:TB3
＝TE3tTB4"=TE48113TB
−TB+T38114TEl‑TB‑TAl:TE2
＝TB‑TA2sTE3 ＝TB‑TA3:TE4 ＝TB‑TA4:T3 ＝0