<研究論文>プロセス・オートメーションにおける専門知識を活用した意思決定支援システムの構築に関するシミュレーション研究 利用統計を見る

門知識を活用した意思決定支援システムの構築に関

するシミュレーション研究

著者

雀 仁壽

著者別名

Choi Insoo

雑誌名

経営論集

巻

36

ページ

39-73

発行年

1991-03-14

URL

http://id.nii.ac.jp/1060/00005720/

Creative Commons : 表示 - 非営利 - 改変禁止 http://creativecommons.org/licenses/by-nc-nd/3.0/deed.ja

プロ セス・ オー

・

ト メ ーショ ンにおけ る

専門知識を活 用し た意思 決定支援 シ ステ ムの

構築 に関 するシ ミュレ ーショ ン研究

崔

仁 壽

言

次

緒

目1

2 3 4 5

現場情報と戦略情報の融合模型

制御専門知識の探索

事例研究

結

言

39

1. 緒

言

工場にお けるオートメ ーション， つまりFA （factoryautomation ） は，

生産 活動 に直接か かわる オート メ ーショ ンと して メカ ニカ ル・ オートメ ー

ション（mechanicalautomation

）と，プロセ ス・オートメーショ ン（proc-essautomation

）があ り，これらは1950 年 ごろ相つ いで登場し た。前者は機

械工業 におけ る自動化を めざす ものであり， 後者 は化学 工業 などの装置工業

に採 用さ れており， 白動制御装置を用 いて自動 運転を行 うものであ る。1

）FA

はこのような機械工業お よび装置工業を対象 として， 生産 システムの

自動化をめざす ものであり，今 日で はOA （omceautomation

） と対比さ れ

る。しかし， 今後を考え るとFA

とOA

の境 界が ますますぼんやりとかすん

で見えること になるように思 われる。 何故な らば,FA

とOA

は以 下のよう

に相互いに相手方 に対して接近してい るからであ る。

生産管理 や経営管理 は， 通常， 制御工 学 の対象か らは除外され， 生産工

学・経営工学 など の対象とさ れてい るが， 生産 システムの目的に適合させる

た めのものであ ることには変 わりがないか ら， 広い意味で は制御にほかなら

ないとFA

側 は考えている。2

）

一方，FA

に対 するOA

の接近 は，工程管理事務 のOA

化 から始 まる。 次

いで， 生産 システムに付随して行 われる事務のOA

化 と， オフィ スで のOA

化 か結合 することになる。 図トは，事務が業務や工 程に次第に定着して， 情

報化する発展を描いており， オフィスの拡張 による生産 システム構成 の変 化

を示 してい る。FA はOA

を取 り込 みながら融合 し,FA

とOA

と は，生産 シ

ステ ムに対 して 新 しい オ ート メ化 の システ ムを実 現す る こと にな るとOA

側 は考えてい る（図2,

図3 参照）

。3

）FA

のメカ ニカ ル・ オ ートメ ーショ ン分野で は以 上のよ うなFA

とOA

の

融合が， 比較的発展 で きて きてい るようであり， また拡張 してき たと思 われ

る。 例えば,FMS

（flexiblemanufacturingsystem

） や,CAD/CAM

（computer-aideddesignandmanufacturing

）を通じて，コスト低減，品質

向 上， 納 期 短 縮 が 達 成 さ れ る よ う に な っ た。 さ ら にCIM

（computer-integratedmanufacturing

）なる新しい段階を迎えよう としてい る。即 ち，

メカニカル・ オートメ ーショ ン分野は， 一面では， 図3 のような融合 の境地

まで至 るよ うに な った と思 われる。 し かし,FA

のプ ロ セ ス・ オ ート メ ー

ション分野 はこうで はない。

装置工業 の大規模 なシ ステムはより小さいサブシステ ムからなり， サブシ

ステムはさらに小さい サブシステ ムからなるというふうに， 全体 として階層

的な構造を もってい る。 し たがって， このような システ ムの制御 もまた同 様

①

②

処 理

工程・業務の流れ

処 理

事務の流れ

寸 示靉 号

図1

事務の拡張と情報化

図2FA

とOA

は一定 の間隔を持つ

図3FA

とOA

は次第に融合する

P.O. における専門知識を活用した意思決定支援システム41

の構造 を も って お り， こ れを階 層 制 御 と い う。 化 学 工 業 会 社 は 複数 個 の工 場

か らなり， 工 場 は複数 個 のプ ロ セ スか ら なり， プ ロ セ スは 複数 個 の単 位装 置

か らな って い る。 単 位装 置 の各 部 の温度 ・圧力 ・流 量 な どを 一 定 値 に保 つ丸

め にはDDC

（directdigitalcontrol

） ま た は ア ナロ グ調 節 器 が用 い ら れ る

が， こ のよ うな 直 接 制 御 は階層 制 御 の最 下 位 レ ベ ルを 構成 す る。 単 位装 置 の

集 まり で あ る一 つ の プ ロ セ ス全 体 とし て の目 的 に適 合 さ せ る た め に は， そ の

上 位 レ ベ ルで 統 括 制 御を 行 な う必 要 が あ る。 さ ら に， プ ロ セ スの集 まりで あ

る一 つ の工 場 全 体 と して 生 産 の 最 適 化 を は か る生 産 管 理 を 考 え ねば な らな

い。 加 え て， 工 場 の集 まりで あ る一 つ の シ ス テ ムを 想 定 し， こ れを 会 社全 体

の立 場 か ら す る 経 営 の最 適 化 を は か る 経営 管 理 を 行 な う 必 要 か お る。 し た

が って， 化 学工 業 会 社全 体 の階 層 制 御 は図4 に示 す よ うな 構 造 を もつ こ と に

な る。4

）

制

御

シ

ス

テ

ム

会 社 レ ベ ル

工 場 レ ベ ル

プ ロ セ ス

レ ベ ル

単 位装置

レベル

経 営 管 理

環 境 ン ス ア ム --

-雀

仏

生 在 産 庫 デ デ い タ タ − −- ミ 一 生 産 管 理 -一 - -運 転 計 画1 い里 転 デ ｜ タ

統

括

制

御

J ゛ -- -目 変 標 更 値 指 但 jk プ ロ ー。 セ ア スI 夕 直 接 制 御(DDC ま た は ア ナ ロ グ 調 節 器) 一 こ 操 作 量 j_リj 御 量 プ ロ セ ス シ ス テ ム 〃

図4

イ

ヒ学工業会社の階層制御

図4 をよ く見れば，プロ セ ス・ オ ート メーションは，い わゆる階層制御 と

言う装置産業の特性 により図3 のような融合の境地まで至 るよ うにな ること

がで きないことが分 かる。

そこで本研究で は， 特に化学工業 のような装置産業を対 象 として， シミュ

レ ーショ ン技法を用 い た生 産意思 決定 過程 の最適化 のた めの統 一的 な アプ

ロ ーチを提唱す ることを目的としてい る。 はじめに，現場 情報と戦略情報 の

統合による新 たな製造業 の経営 を実 現す る意思決定模型について論究 する。

つ ぎに，制御専門知識の内容 およびその活用 に対して説明 する。 そして， 事

例問題 に， 本研究 で提唱するアプローチを適用することにより， その有妨 吐

を示 す。

2. 現場情報と戦略情報の融合模型Spur^

）は管理の階層を大別 して√戦略的管理，作業管理，プロセ ス制御 の3

レベ ルに分けて扱 ってい る。 従来 の システ ムで は，戦略的管理 か ら作業管

理 まで管 理情報が変 換されると， そ れか ら先 は人 間の管理者がさ らに手配を

して機械設備の段取 りを行 い，生 産を 運営 するのが通常の方法だった。 とこ

ろが， ロボットを はじめとする自動化設 備が多数用い られるようになると，

作業管理情報を プロセス制御情報 に変 換して,CPU

（centralprocessunit ）

から直接ロ ボット など の自動設備 の制御をすることになる（図5 参照）。

戦 略 的 管 理

市 場 戦 略 ， 販 売 ， 経 営 管 理

作 業 管 理

開 発

設 計

購 買

ツ ｜ ル デ ー タベ ー ス

CAD

プロ セ ス制 御

マ シ ン ・ プ ロ セ ス 制 御

ロ ボ ッ ト ・ プ ロ セ ス 制 御

ン こζ ュ レ ー ン ョ ノ エ キ ス パ ー ト ・ シ ス テ ム

図5CIM

システムにおける管理の階層

十T刈L[e(t)]

P.O. における専門知識を活用した意思決定支援システム43

本 社 の戦 略的 情 報 を重 視 す る ア メ リカ企業 ， 現場 情 報 を 重 視 す る日本 企 業

と差 異 があ る が6)

本 研 究 で は， こ の現場 情 報 と戦 略 情 報 の融 合 を つ ぎ の よ

う に行 うこ と に よ り図3 あ るい は図5 の水 準 まで に引 き上 げ る こ とを 目 的 と

してい る。

〔ステ ップ1 〕 制 御 専 門 知識 を探 索 する。

〔ステ ップ2 〕 こ の知 識 を活 用 して シ ミュ レ ー ショ ンを 行 う。

〔ステ ップ3 〕

シ ミュレ ー ショ ン結果 を 経営 者 ヘ フ ィ ー ド バ ッ クす る。

〔ステ ップ4 〕 ノ ウハ ウを 創 出 す る。

3. 制御専門知 識の探索7）

プロセスシステ ムのフ ィードバック制御 にはPID （比 例・積分・ 微分）調

節器を用いるのが普通 である。制御偏差をe( ）,調節器出力 を 以:t

）とし，最

初手動で運転して^ ＝0 のとき べO）＝べO）＝Oになったとし， こ のと き自動に

切り換え るものとす ると，u(t） はつ ぎのようになる。

u(t ）

_＝i

_{十収0 ）}

ここに，jら を比例 ゲイ ン，乃 を 積分時間(Integra!time),To

を 微分時 間(derivativetime)

という。手動運転中 には，積分器に手動 出力 と等 しい出力

が生ずるようになっているから 以O) はつ ぎのようになる。

研0 ）

ド

L[u(t) 一衣0)]

e(t)dt

place 変換を と

＝瓦

《1

十

六

PID 調節器 のKp ，Ti，Td の値を決定するための実際的 な方法 はいくっ が，

提案されているが， その中で本研究で はZiegler-Nichols の以 下 のような限

界感度法を採択 している。調節器を比例動作 のみの状態 とし,Kp を少 しずつ

増していって 瓦p＝侃

にな ったと きに はじめてフ ィード バ ックル ープ内 に

一定振幅の振動 が発生 し， その周期 が 几 であったとす る。 このよ うド 亀

と 穏 の値を求 めたならば，次 に調節器 のパ ラメタを次のように設定 する。

上記のu （t） のLaplace 変換を とると，次式 のように変換 される。

P

PI

PID

動作 ⇒ 馬戸O.b八八

動作 ⇒ 馬p=0.45冗七 乃司Pc/1.2

動作 ⇒Kp=0.6K 略Tr=Pc/2,Tj,

ニPcダ^

この方 法 を 限 界 感度 法 （loop-tuningmethod

） と い う。

4. 事例研究4.1

事例 の説明8）

ある水素添 加反応 は4 つ の並列の反 応装置で行 われ，各 反応装置 は異なる

生成物 を牛 産する。 各反応装置に対する個個の圧力 バ ルブを用いて，圧縮装

置により， サージ・ タンクを経て，水素 ガ スが反応装置に供給 される。各反

応装 置を サ ージ・ タンクに結 びっ けて いる圧力 バルブ は， 各反応装置におけ

る圧力を，サージ・ タンクの圧力 と100psia の臨界圧力 のうちの小 さい方に

制限 してい る。 圧縮装置， サージ・ タンク，圧力 バルブお よび反応装置につ

いて の概要図を図 引 こ示す。

各反応装 置で は，他 のものと独立して， 始動，停止，排 出， 洗浄を行うこ

とがで きる。反応装 置が始動さ れると，反 応物の濃度が初 期値の10 ％ に減少

す るまで監視 される。 この時点 で， 反応装 置はバ ッチが完了 し たものと判断

さ れて， 停止 され，排 出， 洗浄， 充填 が行 われる。 そして，以 上のプロセ ス

が繰り返さ れる。 反応装置から排出す る時間 は，平均1 時間 の指数分布に従

う。また，洗浄 および充填に要す る時間 は，平均1 時 間，標準偏差30 分の正

規分布 に従 う。

反応装置が始動される前に，サージ・ タンクの圧力を150psia の計画圧力

圧 力 バ ルブ

図6

例題 の概要図

p.0. における専門知識を活用した意思決定支援システム45

以 上 にし な け れば な らな い。 さ ら に， サ ー ジ・ タ ンク の圧力 が100psia

の臨

界 圧力 を 下 回 った と き に は， と の シ ステ ムの運 転方 針 と して は， サ ージ ・ タ

ンクの圧力 が150psia

の計 画圧 力 に 到達 す るまで，最 後 に始 動 さ れた反 応 装

置 は停止 さ れ るこ と に な る。 そ の他 の運 転 中 の反 応装 置 は， そ の ま ま続 行 さ

れ る。

反 応装 置 釧こお け る反 応 の割 合 は，

鳥 二minimum

（弓，100 ）G

ニ ーns尹ぶi

こ こ に，Pt は サ ー ジ・ タ ンク の圧 力，八 は反 応 装 置 へ の 有 効圧力 ，c, は反 応

装 置 針こお け る反 応物 の濃 度 ， り は反 応 装 置 釧こお け る生 成 物 の反 応 定 数，

そ して 亀 は状 態変 数 で あ り， も し反 応 装 置j が 作動 中 で あ れば,1.0

に等 し

く， その他 の場 合 に は0.0 で あ る。 サ ー ジ ・ タ ン クの圧 力 は以 下 の式 に従 う。

カニ ーC 此P

戸 臥 −豚Σ/i

こ こに， 巧 は反 応 装 置f の容 積 で あ り, 柘 とko は流 れ定 数 で あ る。

各 反応 装 置 には， は じ め反 応 物 の新 し い バ ッチ が充 填 さ れて い て,4

つ の

反 応 装 置 の う ち，まず，反 応装 置1 が 時 刻O で始 動 し，そ し て30 分 間隔 て 順

次 始 動 す る よ うに予 定 さ れて い る も の と す る。4.2

事 例 の シ ミュ レ ー シ ョ ン100

時 間 に わた って， こ の事 例 の化 学 反 応 装 置 の運 転 につ い てOA

とFA

の融 合模 型 の アル ゴ リ ズ ム に従 ってっ ぎ の よ うに シ ミュ レ ー ショ ンを 行 い，

各 反 応装 置 の稼動 率, 作 業 中 の反 応 装 置 の数 ，そ して タ ンク の圧力 を 調 べ た。1

） はじ め て フ ィ ード バ ッ クル ープ 内 に一定 振 幅 の振 動 が発 生 す るよ う に

な る 馬=，

を 求 め る 〔注1 〕。

￣

・

［］￣”

￣｀’

￣ ’゛2

）P 動作 の7ら を計算 する 〔注2 〕

。3

）上記 のKp を 利用して シミュレ ーショ ンを 行う。4.3

結果 および分析

瓦ん の値が1.2 になっ たとき， はじ めてフィードバ ックループ内に一定 振

表I

各 反 応 装 置 の 休 止 時 間

回

反 応 装 置1

反 応 装 置2

反 応 装 置3

反 応 装 置4

排

出

時

間

詰}巾

排

出

時

間

詰}回

排

出

時

間

鶏

日

回

排

出

時

間

難} ≒間

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

0.1

3.4

0.1

0.2

0.3

3.3

1.6

0.2

1.1

0.2

1.3

0.1

1.3

1.1

1.3

0.5

0.8

0.2

0.2

0.3

0.3

2.8

1.2

0.9

0.2

2.4

1.9

1.9

0.2

0.7

1.4

1.8

0.1

3

1.7

2.1

1.14

1.955

1.135

1.0125

0.945

2.0 ニ150.391.5251.0850.681.2751.1251.6951.12750.42750.9851.1851.21.13250.73250.52751.551.790.7750.281.1151.2050.6351.321.07750.720.49250.521.01750.310.705

1.9

0.3

0.6

1.3

2.8

0.3

2.1

0.3

0.1

0.7

0.4

0.3

1.4

1.2

0.9

0.9

0.2

1.8

0.1

0.3

3

1.4

1.415

0.85

0.49

0.8375

0.545

0.625

0.795

1.3225

0.98

0.695

0.325

0.795

1.285

0.3275

1.4975

1.75

1.73

0.16

0.8375

0.915

1.045

1.015

0.5

0.2

0.3

0.1

0.3

1.9

0.6

0.6

0 ．50.40.10.80.80.20.31.50.20.80.61.10.510.81.80.20.5

1.515

0.41

0.99

2.3

1.055

0.4125

1.32

0.645

1.145

0.825

1

0.27

1.905

1.295

1.29

1.44

1.2675

1.025

1.84

L815

0.7625

0.835

1.2225

1.595

1.3625

1.6475

2.6

0.6

0.3

1.2

2.5

0.1

3

0.8

0.1

0.1

1.6

0.9

0.4

1.5

0.9

0.6

0.4

1

0.9

0.835

0.975

0.095

0.375

1.25

0.625

2.085

0.9625

1.535

0.725

0.585

1.2625

1.4975

0.605

1.52

1.43

1.3375

0,475

1.36

反応装置

反応装置

反応装置

反応装置

1 2 3 4 P.O.( こお け る 専 門 知 識 を 活 用 し た意 思 決定 支 援 シ ステ ム47

表2

各 反 応 装 置 の 稼 動 率 （%)

頷

背

高

ふ6 諺

適 用 し な い 時 の稗 動 率23.921.358.553.351.843.659.551.6

作動中の反応装置の数

停止した反応装置の数

表3

作動中の反応装置

本模型を適用する時

2.12464

0

本模型を適用しない時

1.69835

0.01296

幅の振動が発生した。 したがってP 動作 のjら は0.6 になる。Kp ニ0.6 を利

用 してシ ミュレ ーションを実施 した結果を まとめると以 下のようになる。100

時間 にわたって， 各反応装置 の反応中お よび休 止中 の状態を時刻別 に

まとめて みた結果 は図7 であ る。図7 で， 黒い部分 は反応装置が反応の中で

あることを， 白い部分は排出お よび洗浄・充 填 のため反応装置が休止の中で

あることを示 している。 各反応装 置の休止時 間をまと めて みたことが表1 で

あ る〔注3 〕

。

図7 と表1 を参照 して各反応装 置の稼動率， 作動中 の反応装置の数を計算

した結果 が各各表2,

表3 に示 してい る。

始めから20 時間 まで の圧力 を表4 に まとめ る。 表4 のフィ ードバック圧

力 値を5 時間ずつ4 グル ープに分け， こ れら のグループが互いに同質か異質

かを検証した分散分析表 が表5 である。 表5 によ ると， 各 グル ープが同質で

あることが分かる。即 ち， シミュレ ーショ ン時間に わたって タンクの圧力 が

一定されるように （約1005psia ） 維持 することがP 動作のみで も十分にで

きることが分かる。

表2 ∼表5 からみるように各反応装 置の稼動率， 作動中 の反応装置の数，

そして タンクの圧力 が本模型 のアプロ ーチを採択 した時採択しない時のこと

より著し く優秀な成績をあげ ることを示 してい る。

表4

フィードバック圧力値

グ ル ー プ1

グ ル ー プ2

グ ル ー プ3

グ ル ー プ4

時

刻

圧

力

時

刻

圧

力

時

刻

圧

力

時

刻

圧

力

0 ．20.40.60

．81.01.21.41.61.82

．02.22.42.62.83.03.23.43.63.84.04.24.44.64.85.0

1273.8

791.8

1107.4

911.8

1003.8

1038.3

998.6

1072.6

1067.1

1063.5

1048.5

1025.8

1016.3

1002.9

999.4

984.8

981.6

978.6

976.2

974.1

972.3

970.8

962.3

961.0

961.8

5.2

5.4

5.6

5.8

6.0

6.2

6.4

6.6

6.8

7.0

7.2

7.4

7.6

7.8

8.0

8.2

8.4

8.6

8.8

9.0

9.2

9.4

9.6

9.8

10.0

1017.5

974.7

990.7

973.5

977.7

970.3

970.9

1011.5

100L3

995.9

947.0

973.0

956.0

1045.5

1045.4

1112.9

1031.2

1050.0

1012.9

1018.9

999.2

995.5

989.0

979.9

1012.7

10.2

10.4

10.6

10.8

11.0

−−11.211.411.611.812.012.212.412.612.813.013.213.413.613.814.014.214.414.614.815,0

975.5

1025.6

977.4

1019.4

1010.3

1020.3

997.8

998.0

1007.8

997.4

984.0

979.2

1043.4

1045.7

1019.1

1012.2

1004.2

998.6

1027.2

986.4

1052.8

978.3

1029.5

986.8

1002.3

15.2

15.4

15.6

15.8

16.0

16.2

16.4

16.6

16.8

17.0

17.2

17.4

17.6

17.8

18.0

18.2

18.4

18.6

18.8

19.0

19.2

19.4

19.6

19.8

20.0

984.5

1021.9

1003.0

994.7

1069.1

1049.8

1037.7

1025.0

1012.0

1003.4

997.6

988.9

984.1

981.4

978.2

976.0

973.8

972.1

1016.5

1041.5

1010.6

1011.8

999.7

1026.6

983.9

表5

分 散 分 析 表

要

級

級

因

間

内

自 乗 合

一350.1222.431.5

自 由 CO< ￡>q>

度

自 乗 平 均

一116.72,317

F

-0.05

p.o. にお ける 専 門 知 識を 活 用 し た 意 思 決 定 支 援 シ ステ ム49

図7

各反応装置の反応中および休止中の状態5.

結

言

本研究で は， プ ロセ ス・ オートメ ーショ ンにおける生 産意思決定過程の最

適化のた めの統一 的 な アプ ロ ーチを提唱 し， そして 事例 問題 のシ ミュ レ ー

ションを通じてその アプ ローチの有効 吐を示した。

本研究 のアプロ ーチを採択する時 の期待効果を以 下 にまとめ る。1

） メカニカル・ オート メーションのようにプロ セ ス・ オート メーション

も図3 のような融合の境地 まで至るようにな ることがで きる。2

）実時間 プロセ ス情報の経営 への直接的な利用が可能 になる。

企業内 技術 が進歩 す るに応 じ，多 くの人 びとを指 揮 す る経 営 者に とって

は，自分 の知識 が， 部 下 の知識を下回 ることの認識を して い るか もし らな

い。9

） 企業 の意思決定支援 システムはこのような認識を 持 ってい る経営者を

員剣に手伝 わなけ ればな らない。 これからの工場管理 は， 工場管理プ ラス制

御となるか ら5） 制御面で も自身を持 っている経営者 にな ることが もっと も

必要だと思 われる。 本研究で提唱 したアプロ ーチはこのような面で大きな役

割をす ると期待 される。

C注1 〕 一 定 の 周 期0.2 時 間 ご と に フ ィ ー ド バ ッ ク 制 御 を 実 施 し た。 本 シ ミ ュ レ ー

ショ ンに お け る 使 用 さ れ た 時 間 の 軍 位 は時 間 （hr ） で あ る。

〔注2 〕P

動 作 の み で も十 分 な 制 御 が で き る か ら， 本 研 究 で は 複 雑 なPID

動 作 よ り 簡

単 なP 動 作 を 用 い た。 即 ち・ 馬 ニQ.bK

歿

の公 式 を 用 い た・

〔注3 〕N88-BASIC

（86 ）（Ver6.0 ） のRND

関 数 を 実 行 さ せ て 始 め か ら206 個 ま で の

乱 数 を 得 た。 各 反 応 装 置 か ら の 排 出 時 間 を 計 算 す る の に 奇 数 番 目 の 乱 数 を ，

洗 浄 お よ び充 填 時 間 を 計 算 す る の に 偶 数 番 目 の 乱 数 を 使 用 し た。

参 考 文 献1

） 涌 田 宏 昭， 高 桑 宗 右 工 門 ： 情 報 ・ 知 識 イ ミ ダ ス， 集 英 社,1990,p.201.

2 ） 松 原 正 一 ： プ ロ セ ス制 御， 集 賢 堂 ，1983,p.178.3

） 涌 田 宏 昭 ： 経 営 情 報 科 学 總 論 ， 中 央 経 済 社,1989,pp.70

−72.4

） 上 掲 書 （2 ），p.177.5

） 和 田 龍 児:CIM/MAP

戦 略， オ ー ム 社, ‥1990，pp.30 −34.6

） 上 掲 書 （5 ）,p.14.

△

＼7

） 上 掲 書 （2 ）,pp.80 −114.8

） 高 桑 宗 右 工 門:FA

・ 生 産 シ ス テ ム の シ ミ ュ レ ー シ ョ ン， コ ロ ナ 社,1987,pp.229

−259.9

） 北 原 貞 輔 ： 経 営 進 化 論 ， 有 斐 閣,1990,p.147.

5001 5002 5003 5004 5010 5011 5012 5013 5014 5015 5016 5017 5018 50205021 50225030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5050 5052 5053 5054 5055 5056 5058 5059 5070 5071 5072 5074 5075 5080 5082 5083 5085 5086 5090 5091 5092 5093 5100 5101 5102 5103 5110 5111 5112 5H3 5120 5121 5122 5123 5140 5180 5181 5182 5183 TP=.2 KP=.6 SETPO=1000 GOTO5180 R$="W"

工NPUT ”PRESENTT 工ME=";TB1

工NPUT ”PRESENTPRESSURE ＝";P1 工NPUT ”NUMBEROFCONTROLS=";NC 工NPUT ”TA1=";TA1INPUT"TA2= ・';TA2 工NPUT ”TA3=";TA3INPUT ”TA4="; ？A4GOTO5030PR 工NT"MA 工NTENANCEFORREACTORS:1" P1=P1 ＋513.785* (TB2-TB1) TB,"PRESSUREOFTHES PRINT ”TIME=";TB,"PRESSUREOFTHPRINT ¨ ．− −− −− − −− −− − −− −− −− −− − −− −− −13T 、lm ，Ia-^ ∼〃 ／1 ＼i −ヽ〃 ／り χ ■o1/ つ ゝT3 り

PR 工NT"￨S ・>C （1 ）,C°>C（2),R1( PR 工NT ¨ −一一一一一一一一一一一一一一一一一一− 4) URGE R INPUT"TYPETHEAPPROPR 工ATENUMBER11 工FBS ＝¨a¨GOTO5070 IF FFF T︷T ｀ 工 工F BS ＝"2"GOTO5080B §="3"GOTO5090BS ＝・'4・'GOTO5100B$ ＝・'5"GOTO5110 B$ ・"6 ・・GOTO 5120 TANK=" 3（5 ）,R4- 一一一一--¨;BS 】:FB$="7"GOTO 工FB$ ＝"8・'GOTO5140PR 工NT ”MA工ntenanceFORREACTORSI □P1 ＝P1＋513.785*(TB2-TB1 ）PR 工NT ”PRESSUREOFTHEPRE −CONTROL=";P1 E ＝SETPO −PIE=E*KPP1=E 十SETPOPR

工NT' ■TIME= ゛；TB, ¨Pl ＝";Pi, ¨NOGOTO5030NC ＝NC ＋1TB2=NC*TPTB=TB2 PR 工NTNC ，TB,TB1,TB2GOTO5050NC=NC ＋lsTBl=TB2TB2=NC*TPTB=TB2 PR 工NTNC ，TBGOTO5050TBl TB=TA1 ：TB1=TB2TB2 ＝TA1 PR 工NTNC,GOTO5020 TB2 TB,TB1,TB2 PI ∼ 一一 一 一(6), OFCONTROLS=";NC TB=TA2:TB1 ＝TB2TB2 ＝TA2PRINTNC, ？B,TB1,TB2GOTO5020TB=TA3:TB1 ＝TB2TB2 −TA3PRINTNC,TB ，TB1,TB2GOTO5020TB ≫=TA4:TB1＝TB2 「rB2=TA4PR 工NTNC,TB,TB1,TB2GOTO5020GOTO5180INPUT"WHATKINDOFREACT0RS7=" ；R$ 工FR$ −'l¨GOTO5200IFR$="2"GOTO5400IFR$= ¨3"GOTO5600 E -X -工T 一 一一(8)︲ l l −

5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 51945195 5196 5197 5200 5201 5202 5203 ＰFFFFFFFFFFFFFSITLIMUMl-ll-ll-ll-IMM エTHMCi

P.O. におけ る専門知識 を活用 した意思決定支援 システム53

R$ ＝"4"GOTO5800R$="12"GOTO6000R$= ”13"GOTO6200R$ ＝"14"GOTO6400R$="23 ・'GOTO6600R$ ＝"24・・GOTO6800RS ＝自34'・GOTO7000R$="123 ・'GOTO7200R$= ¨124"GOTO7400R$= ¨134 ¨GOTO7600RS ・"234'・GOTO7800R$= ¨1234 ’・GOTO8000R$ ＝"W"GOTO5010R$=' ・o‥GOTO8999 ＝“1 ” INPUT"TB1=";TE1 工NPUT"NC ＝^'；NC 工NPUT"T1= ¨;T1 5204INPUT"P1=" ；P15205 工NPUT"TA1=";TA15206 工NPUT"TA2 ＝";TA25207INPUT"TA3=" ；TA35208

工NPU ？"TA4 ＝";TA45209GOTO52305220G1=TE1

−TB15221Pl

＝Pl+513.785*Gl ＋118.03*(EXP( −3.466*TEl)-EXP( −3.466*TBl))5222PR]:NT"TIME="

；TB,"ACTIVEREACTOR −";R$, ¨Pl= “；P1, ¨REACTI:ONTIME1 ＝¨；Tl5230PR 工NT 自≒ −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−一一−一一− 。115231PR 工NT"IS=>C(1),C=>C(2),R2(3),R3(4),R4(5),F(6),R2 ＋C(7),EX 工T(8)￨"5232PR 工NT ¨S ＝＞r3(9) −−――−−− ―−−−――−− ―――−−"_{■−− ―−− ―−−−−―――・-−−・-−−――−・-・-・-I. ¨5233INPUT"TYPETHEAPPROPR} 工ATENUMBERt1' ・;B$ 5233INPUT"TYPETH 5234IFB$ ＝"l"GOTO5235IFB$="2"GOTO 5236 工FB$= ¨3”GOTO5237 工FB$= ¨ ”GOTO5238 工FB$="5 ”GOTO5239IFB$="6 ・GOTO5240 工FB$= ”7’UOTO5241:IFB$="8'"GOTO5242 工FB$="9"GOTO5250R$ ＝"l" 5270 5280 5290 5300 5310 5320 5330 5340 5350 5251G1=TE1 −TB15252Pl=Pl ＋513.785*Gl ＋118.03*(EXP(-3.466*TEl) −EXP( −3.466*TBl))5253PR 工NT"PRESSUREOFTHEPRE-CONTROL=";P15254E=SETPO −PI5255E=E*KP5256P1=E 十SETPO5258PR

工NT ・'TIME=・・；TB, ・'ACT工VEREACTOR ＝・';R$,"P1 ・"；P1 ，"REACT 工ONTIME1 ＝";T1,"NO.0FCONTROL

＝";NC5259GOTO52305270NC=NC ＋15271TB ＝TE15272T1=T1 −NC*TP 十TB5273TB1 ＝TE1 −TA15274TB=NC*TP5275TE1=TB −TA15276PR 工NTNC,TB,TB1 ・,TE15277GOTO52505280NC=NC ＋15281T1=T1-TP5282TB1=TE15283TB ＝NC*TP5284TE1=TB −TA15285PR 工N「rNC,TB,TB1,TE15286GOTO52505290T1=T1 −TA2 ＋TB5291TB1=TE1

5292 5293 5294 5295 5300 5301 5303 5304 5305 5306 5310 5311 5313 5314 5315 5316 5320 5321 5324 53255326 5330 5331 5332 5333 5334 5335 5340 5350 5351 5353 5354 5355 5356 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5420 5421 5422 5423 5430 5431 5432 5433 5434 5435 5436 5437 5438 5439 5440 54415442 5443 5450 5451 5452 5453 5454 TE1=TB-TA1 PRINTNC ，TB ，TBl ，TElGOTO5220ri=Tl −TA3 ＋TBTB1=TE1TB=TA3TE1=TB −TA1PRINTNC,TB,TB1,TE1GOTO5220T1=T1 −TA4 ＋TBTB1=TE1TB= ？A4TE1=TB-TA1PRINTNC,TB ，TB1,TE1GOTO5220TB1=TE1TB=TB 十TlTE1=TB −TA1:T1=OPRINTNC,TB,TB1,TE1GOTO5220T1=T1 −TA2 ＋TBTB1=TE1TB=TA2TE1=TB −TA1PRINTNC,TB,TB1,TE1GOTO5250GOTO5180T1 ＝T1-TA3+TB1 ？B1 ＝TE1-TA1TB −TA3TE1=TB-TA1PRINTNC,TB,TB1,TE1GOTO5220RS ＝'2"INPUT ”？B2=";TE2INPUT"NC=";NC 工NPUT" ？2=";T2INPUT"P1=";P1 工NPUT"TA1=';TA1INPUT ・'TA2=";TA2INPUT"TA3=";TA3

工NPU ？" ？A4= ”；TA4GOTO5430RS="2'G2=TE2

−TB2Pl=Pl

＋513.785*G2 ＋118.03*6*(EXP( −.866 ゛TE2)-EXP{-.856*TB2))PR

工NT" ？:IME ＝";TB,"ACT:rvEREACTOR=";R$ パP1 ＝";P1,"REACT 工ONT 工ME2 ＝・';T2PRINT

¨ ．−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− 一一−−_●¨ PR 工NT ・■ls＝> PR 工NTINPUTs= ＞ 1 く ぐ4CR ,C ’>C（2 ），R1（3) ，R3(4 ）,R4(5 ）,),S ＝>R3(10) ”TYPETHEAPPROPR 工ATENUMBER11 ”； F(6) 一一 一 一 ,R3 ＋C(7 一 一 一一 一一 ）,EXIT(8) B$ IF5S='1"GOTO5470 IFB$="2"GOTO5480 IFB$ ＝"3"GOTO5490 工FBS ＝"4¨GOTO5500IFB$ ＝"5"GOTO ・5510 工FB$="6' ・GOTO5520IFBS="7"GOTO5530IF 吋 ＝・'8"GOTO5540IFBS= ・・9"GOTO5550IFBS ・"10 ・'GOTO5560R$="211G2 −TE2 −TB2Pl=Pl

＋513.785*G2 ＋118.03 ゛(EXP( −3.456*TE2) −EXP(-3PR

工NT"PRESSUREOFTHEPRE-CONTROL-";PIE=SETPO −PI 466*TB2) ） II ・ ｜ ・l

P 。o.に お け る専 門 知 識 を 活 用 し た意 思 決 定 支 援 シ ス テ ム 5455E=E*f 5456P1=E 十SETPO5458PR 工NT"T 工ME＝・・;TB,"ACTIVEFC0NTROL=";NC5459GOTO54305470NC=NC ＋15471TB=TE25472T2=T2-NC*TP+TB 5473 5474 5475 5476 5477 5480 5481 5482 5483 5484 5485 5486 5490 5491 5492 5493 5494 5495 5500 5501 5503 5504 5505 5505 55105511 5513 5514 55155516 5520 5521 5524 5525 5526 5530 5531 5532 5533 5534 5535 553S 5540 55505551 5553 5554 5555 5556 5560 5561 55635564 5565 5566 5600 5601 5602 5603 TB2=TE2-TA2 TB=NC*TP TE2 ＝TB-TA2PRINTNC,TB,TB2,TE2GOTO5450NC=NC ＋1T2=T2-TPTB2=TE2TB=NC*TPTE2=TB −TA2PR 工NT’NC,TB,TB2,TE2GOTO5450T2=T2 −TA1+TBTB2=TE2TB ＝TA1TE2=TB-TA2PR 工NTNC,TB,TB2,TE2GOTO5420T2=T2 −TA3 十TBTB2 ＝TE2TB=TA3TE2 ＝TB−TA2PR:INTNC,TB,TB2,TE2GOTO5420T2=T2-TA4 十TBTB2 ＝TE2TB=TA4TE2 ＝TB-TA2PRINTNC ，TB,TB2,TE2GOTO5420 「rB2＝TE2TB ＝TB十T2TE2=TB −TA2:T2=0 PRINTNC GOTO542 ／TB ，TB2,TE20 T2 ＝T2−TA3 ＋TBTB2 べTE2NC=NC+1TB ＝TA3rE2=TB −TA2PRINTNC,TB,TB2,TE2GOTO5450GOTO5180T2=T2 −TA4 ＋TE2TB2=TE2 −TA2TB=TA4TE2=TB −TA2PRINTNC,TB,TB2,TE2GOTO5420T2='TB2=TE2-TA2TB=TA3TE2=TB −TA2 PRINTNC,TB GOTO5420 R$='3 ・・ INPUT INPUT INPUT TB2,TE2 "TB3=" ；TE3"NC=";NC “T3=";T3 REACTOR=";R$,"Pl=" ；P1,"REACTION 55 TIME2=" T2 ，".NO ○

5604INPUT ・・P1＝";P15605INPUT"TA1= ”;TA15606INPUT"TA2 ＝・・;TA25507 工NPUT"TA3=";TA35508INPUT"TA4= ・'；TA45609GOTO56305620RS="3 ・'5621G3=TE3-TB35622P1=P1+513.785*G3

十↓18.03 ゛4*(EXP( −1.155*TE3) −EXP(-1.155 ゛TB3))5623PRINT'

・TIME= ・・；TB,'・ACTIVEREACTOR ＝"?R$,"Pl ＝";PI,"REACTIONT 工ME3 ＝・・;T3

5530PR 工NT ≒ −−−−−−−−−−−−−−一一−−−−−，−−−−一一，- ，-- 一一一一。。。一一−-5634 _IFBS="1"GOTO IFBS="2"GOTO 5635IFBS="2"GOTO 5636IFBS ＝'・3・・GOTO5537IFB$ ．"4'・GOTO 5670 5580 5690 5700 5694PR 工NTNC,TB,TB3 ，TE35695GOTO56205700T3=T3-TA2 十TB5701TB3=TE35703TB=TA25704TE3=TB-TA35705PRINTNC,TB,TB3,TE35705GOTO56205710T3 −T3-TA4 ＋TB5711TB3=TE35713TB ＝TA45714TE3 ＝TB-TA35715PRINTNC,TB,TB3 ，TE35716GOTO56205720 「rB3=「rE35721TB=TB 十T35724TE3= 「rB-TA3:T3=0 一一 一 l・ h ・ 1 9 ・ 5631PRINT"IS ＝>C(1 ）,C=>C(2),Rl （3 ）,R2(4),R4 （5 ）,F（6),EX 工T（8 ）5632PR 工NT ”S °>WC:R2 （ フ ）−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−．5633INPUT ”TYPETHEAPPROPR 工ATENUMBERI1 ”;B$ 5638IFBS=' ・5・・GOTO57105639IFB$="6"GOTO57205640IFB$= ¨プGOTO57305641IFBS="8 ・IGOTO ・57405650R$= ・・3"5652Pl

・Pl ＋513.785*{TE3-TB3) ＋118.03*4*(EXP(-1.155*TE3) −EXP( −1.155*TB3))5653PR

工NT"PRESSUREOFTHEPRE −CONTROL=";P15554E=SETPO

−PI5655E=E*KP5656Pl=E 十SETPO5658PRINT

¨m工ME=" ；TB,"ACTIVEREACTOR=";R$,"P1=";P1,"REACT 工ONTIME3=";T3,"NUMBEROFCONTROL

＝'■;NC5659GOTO56305670NC=NC ＋15571TB=TE35672T3=T3 −NC*TP+TB5573TB3=TE3-TA35674TB=NC*TP5675TE3=TB −TA35676PRINTNC,TB,TB3,TE35677GOTO56505680NC −NC＋15681T3=T3-TP5682TB3=TE35683TB 吋5684TE3 ＝TB-TA35685PRINTNC,TB,TB3,TE35686GOTO56505690T3=T3-TA1 十TB5691TB3=TE35692TB^TAl5693TE3=TB −TA3

5725PR 工NTNC5726GOTO5625730TB=TE3r OTB,TB3,TE3 P.O.( こお け る 専 門 知識 を 活 用 し た意 思 決 定 支 援 シ ス テ ム57 5731T3 ＝t3-TA2 十TB5732TB3=TB −TA35733TB ＝TA25734TE3=TB −TA35735PRINTNC,TB,TB3,TE35736GOTO56205740GOTO5180"5800R$= ¨4"5801INPUT"TB4=" ；TE45802 工NPUT ■'NC=";NC5803INPUT ¨T4=" ；T45804INPUT ■'P1=":P15805 工NPUT"TA1 ＝";TA15806 工NPUT"TA2=";TA25807 工NPUT ”TA3=";TA35808INPUT"TA4 ＝";TA45809GOTO58305820R$="4"5821G4=TE4-TB45822Pl=Pl

＋513.785*G4 ＋118.03 ゛12.5*{EXP( −.77 ゛TE4) −EXP(-.77 ゛TB4))5823PR

工NT"T 工ME=' ・；TB,"ACT 工VEREACTOR= ・・;R$,'P1 ＝・・;P1, ‘・REACTIONT 工ME4= ”；T45830PR

工NT ”．−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−一一一一．”5831PRINT"￨S=>C(l),C ＝>C(2),Rl(3),R2(4),R3(5),F(6),EXrT(8) ，S=>R34( フ)l ・・ 5832PRINT" −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−5833 工NPUT"TYPETHEAPPROPR 工ATENUMBER 川 ・；B$5834 工FBS="1 ¨GOTO58705835 工FB$ ＝"2"GOTO58805836 工FB$ ＝'・3'・GOTO58905837 工FB$ ＝"4"GOTO59005838 工FBS ＝・'5・・GOTO591058391 工FB$= ¨6 ¨GOTO5920 5840 5841 5850 工FBS ＝¨7"GOTO5930 工FB$ ＝"8"GOTO5940R$="4 ・・G4=tE4 −TB4 ・ I 5851G4=tE4 −TB45852Pl ＝Pl＋513.785 ゛G4＋118.03*12.5 ゛(EXP(-,77*TE4)-EXP( −.77*TB4))5853PRINT"PRESSUREOFTHEPRE-CONTROr.=";P15854E ＝SETPO-PI5855E=E*KP5856P1=E 十SETPO5858PR

工NT"T 工ME＝"；TB,・'ACTIVEREACTOR=";R$, ・'Pl・";PI,"REACTIONTIME4 ＝"；T4, ”NUMBEROFCONTROL=";NC5859GOTO58305870NC=NC ＋15871TB ＝TE45872 「r4=T4-NC*TP 十TB5873TB4=TE4-TA45874TB=NC*TP5875TE4=TB −TA45876PR 工NTNC,TB ，TB4,TE45877GOTO58505880NC=NC ＋15881T4=T4-TP5882TB4=TE45883TB=NC*TP5884TE4=TB −TA45885PRINTNC,TB,TB4,TE45886GOTO58505890T4 ・T4-TA1 十TB5891TB4=TE45892TB=TA15893TE4=TB −TA45894PRINTNC,TB,TB4,TE45895GOTO5820

5900 ？4=T4 −TA2 ＋TB5901TB4=TE45903TB=TA25904TE4 ＝TB-TA45905PRINTNC,TB,TB4,TE45906GOTO58205910T4 −T4-TA3 十TB5911TB4=TE45913TB=TA35914TE4=TB −TA4 5915PRINTNC 5916GOTO582 5920 「JB4＝？E45921TB −TB 十T4 ,TB,TB4,TE4 0 5924TE4=TB-TA4:T4 ＝O 5925PRINTNC ，TB,TB4, 「rE45926GOTO5820 5930TB=TE4 5931T4=T4-TA3 十T・B5932TB4=TB-TA45933 「rB=TA35934TE4=TB −TA45935PR 工NTNC,TB,TB4,TE45936GOTO58205940GOTO51806000RS ＝"12"6001INPUT"TB1= ・・;TB16002 こINPUT"TB2= ・';TE25003INPUT"NC=";NC6004INPUT"Tl=";T16005INPUT"T2=";T26006INPUT"Pl=" ；P16007INPUT ”TA1=";TA16008INPUT"TA2=";TA26009 工NPUT"TA3 ＝¨;TA36010INPUT"TA4 ＝"；TA46011GOTO60306020R$ −"12"6021P1

＝P1＋513.785*(TE1 −TB1 」＋118.03*((EXP(-3.466*TEl) −EXP(-3.466*TBl)) ＋6*(EXP(-.866

゛TE2)-EXP( −.866 ゛TB2)))6022PRINT"T

工ME＝・';TB,"ACTIVEREACTORS=";R$, ¨P1=';P1, ・・REACT 工ONTIME1 −¨;T1,"REACT

工ONTIME2=";T2 6030PRINT ¨ 。−−−−−−−−−−−−−−−−−−−−。。。−−−。−_ 。 6031PRINT 6032PRINT ll ●＝ミ ∼ ∼ ＝＝ ∼ミ ∽ミミ ミ== ミ ミ ∽＝ミ ミ〃WW ＝ミ= ∼＝ ∽W = ミ ∼∼ミ ∽＝ ＝ミ ＝ ∽ ∼＝ ＝ ∽ ＝ ∼＝ ＝＝ ∽ ＝＝ ●II ・・IS=>C(1),C=>C(2),R3(3),R4(4),Fl(5) ，F2(6),EXIT(8)l ¨"S= ＞R3(7),S= ＞F1(9) ― 一一− −− −− −− − −− − − −− − −− − −− −− − − −− − −− − −− ¨

6033INPUTI ・TYPETHEAPPROPRIATENUMBERIIII ；B$6034IFB$

＝”l¨GOTO60706035IFB$="2"GOTO60806036IFBS ＝¨3¨GOTO60906037:IFBS −'・4・・GOTO61006038IFB$ ・"5"GOTO61106039 工FB$ ＝"6"GOTO61206040IFB$="7"GOTO61306041 工FBS="8' ・GOTO61406042IFB$ ＝"9'・GOTO61506050R$="12"6051P1=P1+513.785*(TE1

−TB1) ＋118.O3*((EXP( −3.466*TEl)-EXP(-3.466*TB1)) ＋6*(EXP(-.856

゛TE2)-EXP( −.866*TB2)))6052PR

工NT ・■PRESSUREOFTHEPRE-CONTROL=";P16053E=SETPO

−PI6054E=E*KP5055P1=E 十SETPO6066PRINT

・・T工ME=" ；TB,"ACT 工VEREACTORS=";R$,"P1 ＝";P1,"REACT 工ONTIME1= ¨;T1,"REACT

工ONTIME2 −";T2,"NO.OFCONTROL= ・';NC5059GOTO60306070NC

P.0. における専門 知識を活用した意 思決定支 援 システ ム59

6072T1 ＝T1−NC*TP 十TB:T2=T2 −NC*TP ＋TB6073TB1=TE1-TA1:TB2=TE2-TA26074TB=NC*TP6075TEl=TB-TAl!TE2 ＝TB-TA26076PRINTNC,TB,TB1,TE1,TB2,TE26077GOTO60506080NC=NC ＋16081T1=T1 −TP;T2=T2-TP6082TB1=TE1:TB2=TE26083TB=NC*TP6084TE1=TB-TA1:TE2=TB −TA26085PR 工NTNC,TB,TBl,TEl,TB2,TE26086GOTO60506090T1=T1 −TA3＋TB:T2=T2 −TA3十TB6091TBX ＝TElμTB2=TE26092TB=TA36093TE1=TB-TA1:TE2=TB −TA26094PRINTNC,TB,TBl,TEl,TB2,TE26095GOTO60206100T1 ＝T1−TA4十TB!T2=T2-TA4 ＋TB6101TB1=TE1:TB2 ＝TE26103TB=TA46104TE1=TB-TA1!TE2 ＝TB−TA26105PR 工NTNC,TB ，TBl,TEl,TB2,TE26106GOTO60206110T2=T2-T16111TB1 ＝TE1:TB2=TE26113TB=TB ＋T16114TE1=TB-TA1:TE2=TB-TA2!T1=O6115PR 工NTNC,TB,TBl,TEl,TB2,TE26116GOTO60206120T1 ＝T1−T25121TB1 ＝TE1:TB2=TE26122TB=TB 十T26124TEl=TB-TAl!TE2=TB −TA2:T2=06125PRINTNC ，TB,TBl,TEl,TB2,TE26126GOTO60206130T1=T1 −TA3十TE1:T2=T2 −TA3十TE26131TB1=TE1-TA1:TB2=TE2-TA26132TB=TA36133TE1 ＝TB−TA1:TE2=TB-TA26134PR 工NTNC,TB,TB1,TE1,TB2,TE26135GOTO60206140GOTO51806150 「r2=T2−Tl:TB＝TEl6151TB1=TE1 −TA1:TB2=TE2-TA26153TB=TB 十Tl6154TE1=TB-TA1:TE2 ＝TB−TA2:T1=O6155PRINTNC,TB,TBl ，TEl,TB2,TE26155GOTO60206200R$ ＝¨13"5201INPUT"TB! ＝";TE！5202INPUT ”TB3=";TE35203INPUT"NC= ゛；NC6204INPUT ¨T1＝";T16205 工NPUT"T3 ＝";T3 6206 工KPUT"P1=";P1c りn ゛?TVT −TTml ・mi ≪1 −1・．m 6207INPUT"TA1= 5208INPUT ’l「rA2="5209 工NPUT"TA3="6210 工NPUT"TA4="6211GOTO62306220R$="13 ・’ ;TA1 μ;TA3;TA4

5221P1=P1 ＋513.785*(TE1 −TB1) ＋118 ，O3*((EXP( −3.466*TE1)-EXP(-3.466*TB1)) ＋4*(EXP(-1.155

゛TE3) −EXP( −1.155*TB3)))6222PRINT"TIME=";TB

，"ACT 工VEREACTORS=" ・;R$,"P1=":P1,"REACT 工ONTIME1 ＝";T1,"REACT

6230PRINT' ≒---6231PRINT"￨S=>C(1),C=>C(2) ，R2(3),R4(4),F1(5),F3(6),EXIT(8)

6232PRINT ¨S ＝＞R4(7) − −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− −−−−−6233

工NPUT ・・TYPETHEAPPROPRIATENUMBER11 ・・；BS6234IFB$=

¨l"GOTO62706235IFB$= ¨2"GOTO62806236IFB$='3 ・・GOTO62906237IFB$ ＝・'4'・GOTO63006238 工FB$="5"GOTO6310 H 1 1 6239IFBS= ・・6・・GOTO63206240IFB$="7"GOTO63306241IFB$ −¨8・‘GOTO63406250R$ −¨13'6251P1=P1

＋513.785*(TE1-TB1) ＋118.O3*((EXP( −3.466*TE1) −EXP( −3.465*TB1)) ＋4*(EXP( −1.155*TE3)-EXP(-1.155*TB3)))6252PRINT"PRESSUREOFTHEPRE

−CONTROL=" ；Pl6253E=SETPO-PI6254E=E*J6255P1=E

＋SETPO6266PR

工NT ・'T工ME='・；TB パACTIVEREACTORS= 一;RS,"P1 ＝'・；Pi ，・'REACTIONT 工ME1-'・;T1,"REACT

工ONT 工ME3＝";T3,"NO.OFCONTROL=";NC6269GOTO52306270NC=NC ＋16271TB ＝TE16272T1 −T1−NC*TP+TB:T3=T3-NC*TP 十TB6273TB1 ＝TE1-TA1:TB3=TE3 −TA36274TB ＝NC* ？P5275TE1 ＝TB−TA1!TE3 ＝TB−TA36276PR 工NTNC,TB,TBl,TEl,TB3,TE36277GOTO62506280NC=NC ＋16281T1=T1 −TP!？3=T3 −TP6282TB1=TE1:TB3=TE36283TB ＝NC*TP6284TE1=TB −TA1sTE3=TB −「rA36285PR 工NTNC,TB,TBl,TEl,TB3,TE3 上6286GOTO62506290T1=T1 −TA2 ＋TB!T3=T3-TA2 ＋TB6291TB1 ＝TE1:TB3-TE36292TB=TA26293TE1 ＝TB-TA1:TE3=TB-TA36294PR 工NTNC,TB, 「rBl,TEl,TB3 ，TE36295GOTO62206300T1=T1

−TA4 ＋TB:T3 ＝T3−TA4 ＋TB6301TBl=TElsTB3 −TE36303TB=TA46304TEl ・TB −TAl!TE3=TB-TA36305PRINTNC,TB,TBl,TEl,TB3,TE36306GOTO62206310t3=t3-T16311TB1=TE1:TB3=TE36313TB=TB ＋T16314TEl=TB −TA1!TE3=TB −TA3jT1=O6315PRINTNC,TB,TBl,TEl,TB3 ，TE36316GOTO62206320 「n=TX −T36321TB1=TE1:TB3=TE3 ・6322TB ＝TB＋T36324TB1 ＝TB-TA1!TE3=TB-TA3!T3=06325PRINTNC ，TB,TB1,TE1 ，TB3,TE36326GOTO62206330T1

＝T1-TA4 十TE1: ？3＝T3-TA4 十TE36331TB1=TE1

−TA1:TB3=TE3 −TA36333TB=TA46334TE1=TB-TA1:TE3=TB-TA36335PRINTNC,TB

P。0.に お け る 専門 知 識 を 活 用 し た 意 思 決 定 支 援 シ ス テ ム 肌 6340GOTO5180 6400RS="14" 6401 工NPUT"TB1 ．";TE16402 工NPUT"TB4= ・';TE46403:INPUT"NC= ¨;NC6404 工NPUT"T1=";T16405INPUT ¨・I4=";T46406 工NPUT ”P1 ＝";P16407INPUT"TA1=";TA16408INPUT ”TA2=";TA26409INPUT"TA3=";TA3 ト6410INPUT"TA4 ＝";TA46411GOTO64306420R$="14"6421P1=P1+513.785*(TEl

−TBl) 十118.03*((EXP(-3.466 ゛TE1)-EXP(-3.466*TB1)) ＋12.5*(EXP(-.77*TE4)-EXP(

−.77*TB4))) ＼6422PRINT"T

工ME=" ；TB,"ACTIVEREACTORS ＝¨;R$,"Pl ＝¨；Pl ，"REACTIONTIME1=";T1 ，"REACT

工ONTIME4=";T46430PRINTII

．−−−−一一−−−−−−，−−−−−−−−−−−−−−−−−−−−−−−−−． 一一一 一一一一一一一一一一一 ．116431PRINT ■

・IS=>C(1),C=>C(2),R2(3),R3(4),Fl(5),F4(6),EXIT(8) い6432PR:INT"S=>F4(7),S

＝>R2(9) − − ¨6433:INPUT

・'TYPETHEAPPROPR 工ATENUMBER 川 ”;BS6434IFB$="l"GOTO64706435IFB$

−"2"GOTO64806436 工FB$="3"GOTO64906437IFB$ ＝"4"GOTO6500 6438 工F6439 工F6440 工F6441 工F B$="5"GOTO B$=" B$=" B$ ＝" 5"GOTO6510 6"GOTO6520 7" −GOTO6530 6441 工FB$ ＝"8'・6442 工FB$="9 ・'5450R$ ．'14 ・ GOTO6540 GOTO6550

6451P1 ＝P1＋513.785*(TE1 −TB1)＋118.O3*((EXP( −3.466 ゛TE1)−EXP(−3.466*TB1)) 十12.5*(EXP( −.77゛TE4)-EXP(-.77*TB4)))6452PRINT"PRESSUREOFTHEPRE

−CONTROL=";P16453E=SETPO-PI6454E=E*KP6455P1=E 十SETPO6466PRINT"TIME="

；TB,"ACTIVEREACTORS=" ・;RS，"P1＝'・;P1,"REACT 工ONTIME1=";T1, ・・REACTIONTIME4 ＝";T4 ，"NO.OFCONTROL=";NC5469GOTO64306470NC=NC ＋16471TB ＝TE16472T1=T1 −NC*TP 十TB；T4=T4-NC*TP 十TB6473TB1 ＝TE1-TA1:TB4=TE4-TA46474TB=NC*TP6475TE1 ＝TB-TA1:TE4=TB −TA46476PRINTNC ，TB,TBl,TEl,TB4,TE46477GOTO64506480NC=NC ＋16481Tl= 「rX−TP:T4 ＝T4−TP6482TBl ≪TEl8TB4 ＝TE46483TB=NC*TP6484TE1=TB-TA1:TE4=TB-TA46485PR 工NTNC,TB,TB1 ，TE1,TB4,TE45486GOTO64505490T1

＝T1-TA2 十TBiT4 べ6491TBl=TEl!TB4=TE46492TB=TA26493TE1=TB

−TA1:TE4 ＝TB−TA46494PRINTNC,TB,TBl,TEl,TB4,TE46495GOTO64206500Tl=

「ri−TA3＋TB；T4=T4 −TA3＋TB6501TB1=TE1:TB4

＝TE46503TB=TA36504TE1=TB-TA1:TE4=TB-TA46505PRINTNC ，TB,TBl,TEl ，TB4,TE4

6506GOTO6420 6510T4=T4 −T1651XTB1=TE1:TB4 ＝TE46513TB=TB 十Tl6514TE1=TB −TA1!TE4=TB −「」?A4:T1＝O6515PR 工NTNC,TB,TBl,TEl,TB4,TE46516GOTO64206520T1=T1-T46521TB1=TE1:TB4=TE46522TB=TB 十T46524TE1=TB-TA1:TE4=TB −TA4:T4=0 6525PR 工NTNC,6526GOTO6420TB ，TB1 ，TE1,TB4,TE4 6530Tl=Ti-T4!TB ＝TEl6531TB1=TE1 −TA1:TB4 ＝TE4-TA46532TB=TB ＋T46534TE1 ＝TB-TA1iTE4 ＝TB-TA4:T4=06535PR 工NTNC,TB,TBl,TEl,TB4,TE46536GOTO64206540GOTO51806550T1=T1

−TA2 ＋TE1:T4=T4 −TA2 ＋TE46551TB1=TE1-TA1:TB4=TE4

−TA46552TB=TA26553TE1=TB-TA1:TE4=TB-TA46554PRINTNC,TB,TB 】,TEl,TB4, ？E46555GOTO64206600RS ＝¨23'・5601 工NPUT"TB2=" ；TE26602INPUT"TB3=";TE36603INPUT"NC=" ；NC5604INPUT"T2=";T26605INPUT ¨T3＝";T36606INPUT"Pl=" ；P16607INPUT"TA1=" ；TAI6608INPUT"TA2 ＝'・;TA26609INPUT"TA3=";TA3fi6lOINPUT"TA4=" ‘:TA4w7w=-・---=-- ・ ・ ●6511GOTO66306620R$= ¨23・・ 上6621Pl=Pl

＋513.785*(TE2 −TB2)+118.03*(6*(EXP(-.866*TK2)-EXP(-.866*TB2)) ＋4*(EXP(-1.155*TE3)-EXP(-1.155*TB3)))6622PRINT'

・T工ME=";TB,"ACT 工VEREACTORS ＝";R$, ¨Pl=";P1,"REACTIONT 工ME2・";T2, ・・REACTIONTIME3

＝";T3 6630PRINT ’I．−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−。一一一---- 。 6666PRINT TIONTIME3= 6669GOTO6 = ＝ l ^ 66 フONC=NC ＋1 3TO ・-n ,"NO.OFCONTROL=";NC 一 一 一一 一 一 一 一 一 一一 一 9 n ︲ − 6S31PR エNT"￨S=>C(l),C ＝>C(2),Rl{3),R4(4),r2(5),F3(6),EX エT(8)6532PR 工NT ¨S=>WC;R1(7),S ＝>F2{9) 一一−−−−−一一−−6533INPUT ・'TYPETHEAPPROPR 工ATENUMBER 目";B$ 5534IFB$="l"GOTO6670 6535IFB$ ＝"2'・GOTO66806536 工FB$ ．"3"GOTO66906537 工FBS="4 ・・GOTO67006638IFBS="5 ¨GOTO67106539 工FB$="6"GOTO67206640 工FB$=" プGOTO67306541 工FBS= ・・8"GOTO67406642 工FB$="9"GOTO67506650R$="23"6651Pl

＝Pl+513.785*(TE2-TB2) ＋H8.03*(6*(EXP(-.866*TE2)-EXP(-.866*TB2)) ＋4*(EXP(-1.155*TE3)

−EXP(-1.155*TB3)))6552PR

工NT"PRESSUREOFTHEPRE-CONTROL=";P16553E ＝SETPO-PI6654E=E*KP6555P1=E

＋SETPO

P ．0 にお け る専 門 知 識 を 活 用 し た 意 思 決 定 支 援 シ ステ ム 63 5671TB=TE26672T2=T2 −NC*TP 十「rB:T3=T3 −NC*TP ＋TB6673TB2=TE2 −TA2:TB3=TE3 −TA36674TB=NC*TP6675TE2=TB-TA2:TE3=15576PR 工NTNC,TB,TB2,TE2,TB3,TE36677GOTO66506680NC ＝Ne＋l6681T2=T2-TP:T3 ・T3-TP6682TB2=TE2 μ6683TB=NC*TP6684TE2=TB −TA2:TE3=TB-TA36685PRINTNC,TB,TB2,TE2,TB3,TE36686GOTO66506690T2

＝T2−TA1 ＋TB:T3 ＝T3−TA1 ＋TB6691TB2=TE2!TB3=TE36692TB=TA16693TE2

＝TB−TA2:TE3=TB −TA36694PRINTNC,TB,TB2,TE2 ，TB3,TE36695GOTO66206700T2=T2-TA4 ＋TB:T3 ＝T3-TA4 ＋TB6701TB2=TE2:TB3=TE3 ゛6703TB=TA45704TE2=TB −TA2!TE3 ＝TB−TA35705PR 工NTNC, ？B,TB2 ，TE2,TB3 ，TE36706GOTO66206710T3=T3 −T26711TB2=TE2:TB3=TE35713TB ＝TB十T26714TE2=TB −TA2:TE3=TB −TA3!T2=06715PR 工NTNC, ？B,TB2,TE2,TB3,TE36716GOTO66206720T2 ＝T2−T36721TB2=TE2:TB3=TE36722TB=TB 十T36724TE2=TB −TA2:TE3=TB −「rA3:T3=06725PR 工NT>3C,TB,TE2,TE2,TB3,TE36726GOTO66206730T2 ＝T2−TA1 ＋TE2:T3=T3-TA1+TE36731TB2

＝TE2 −TA2:TB3 ＝TE3-TA36732TB=TA16733TE2

＝TB−TA2:TE3=TB −TA36734PR:INTNC,TB,TB2,TE2,TB3 ，？E36735GOTO66206740GOTO51806750T3=T3-T2:TB=TE26751TB2=TE2 −TA2:TB3=TE3-TA36753TB ＝TB＋T26754TE2 ＝TB-TA2:TE3=TB-TA3:T2=06755PR:INTNC,TB ，TB2,TE2,TB3fTE36756GOTO66206800 良$＝¨24'・6801INPUT"TB2=";TE26802INPUT"TB4=";TE46803INPUT"NC ＝"；NC6804INPUT ・'T2＝";T26805 工NPUT"T4=";T46806INPUT ¨P1=' ；P16807INPUT"TA1= ・・;TA16808 工NPUT"TA2= ・・；TA26809

工NPUT' ゛「rA3= ”;TA36810rNPUT"TA4='

・;TA46811GOTO68306820R$ ＝¨24'6821Pl

・Pl ＋513.785*(TE2-TB2) ＋118.03 ゛(6*(EXP( −.866 ゛TE2) −EXP(-.866 ゛TB2)) ＋12.5*(EXP(-.77*TE4)-EXP(

−.77 ゛TB4)))6822PRINT'

TIONT 工ME4=";T46830PR 工NT ¨ 。−−−−−−−−−−−−−−−−−−−−−−−−−−−−−。一一一一一一一一一一一。一一一一。。−−。−−− 6831PR 工NT ・'￨S= ＞C6832PR 工NTllS=>R6833INPUT"TYPE (1),C ＝>C(2) ，R1(3) ，R3(4) ，F2(5),F4(6),EXI ？(8)1(7),S=>F2(9)THEAPPROPRIATENUMBER!I ”;B$ I I S I l l 6834IFB$="l"GOTO6870 6835IFB$=' ・2'・GOTO68806836IFB$="3' ・GOTO68906837IFB$="4 ・■GOTO69006838IFBS= ¨5"GOTO69106839IFBS=' ・6・・GOTO69206840 工FB$='7 ¨GOTO69306841 工FB$ ＝・・8"GOTO69406842IFB$=' ・9・GOTO69506850R$ ＝'・24'・6851Pl

＝Pl＋513.785*(TE2-TB2) ＋118.03*(6*(EXP(-.866*TE2)-EXP(- ，866*TB2)) ＋12.5*(EXP(-.77*TE4)-EXP(-.77

゛TB4)))6852PR

工NT"PRESSUREOFTHEPRE-CONTROL ＝¨;P16854E=SETPO

−PI6855E ＝E*KP6856P1=E

十SETPO6858PR

工NT ・'TIME=" ；TB,"'ACT 工VEREACTORS=";RS,"P1 ＝";P:1,"REACTIONTIME2=' ・；T2,'・REACT

工ONTIME4=";T4,"NUMBEROFCONTROL=";NC6859GOTO68306870NC=NC ＋16871TB ・TE26872T2=T2-NC*TP 十TB:T4=T4 −NC*TP ＋TB6873TB2 ＝TE2-TA2:TB4=TE4-TA46874TB=NC*TP6875TE2=TB-TA2:TE4=TB-TA46876PR 工NTNC,TB ，TB2,TE2,TB4, ？E46877GOTO58506880NC=NC ＋16881T2=T2-TP:T4=T4-TP6882TB2 ＝TE2:TB4=TE46883TB=NC*TP6384TE2 −TB−TA2:TE4=TB −TA46885PR 工NTNC,TB,TB2 ，TE2,TB4,TE416886GOTO68506890T2=T2

−TA1 ＋TB:T4=T4-TA1 十TB6891TB2=TE2:TB4=TE46892

「rB=TAl6893TE2

＝TB-TA2sTE4 ＝TB−TA45894PRINTNC,TB

，TB2 ，TE2,TB4,TE46895GOTO68206900T2=T2

−TA3 ＋TBjT4=T4-TA3 ＋TB5901TB2=TE2:TB4

−TE45903TB=TA36904TE2=TB −TA2iTE4=TB-TA46905PR 工NTNC,TB,TB2,TE2,TB4,TE46906GOTO68206910T4=T4-T26911TB2=TE2:TB4=TE45913TB ＝TB十T26914'TE2=TB −TA2;TE4=TB −TA4:T2=0 6916 PRINTNC,TB,TB2,TE2,TB4,TE4 GOTO6820 6920T2 ＝T2-T45921TB2 ＝TE2:TB4=TE45922TB ＝TB＋T46924TE2=TB-TA2!TE4 ＝TB，TA4:T4=06925PRINTNC,TB,TB2,TE2, ？B4,TE45926GOTO68206930T2 ＝T2−TA1十TE2:T4=T4-TA1 十TE46931TB2=TE2 −TA2!TB4=TE4 −TA46932TB=TA15933TE2=TB-TA2:TE4=TB-？A4

6934 6935 P.O.I こお け る 専 門 知識 を 活 用 し た 意 思 決 定 支 援 シ ス テ ム65 PR 工NTNC,TB,TB2,TE2,TB4,TE4GOTO6820 6940GOTO5180 6950T4'=T4-T2:TB ＝TE26951TB2

＝TE2-TA2:TB4 ＝TE4 ，TA46953TB

＝TB ＋T26954TE2=TB-TA2:TE4=TB-TA4:T2=05955PR 工NTNC ，TB,TB2,TE2,TB4,TE46956GOTO68207000R$ ＝"34 ・'7001 工NPUT ”TB3=";TE37002 工NPUT"TB4 ＝";TE47003INPUT ”NC= ¨;NC7004INPUT"T3=" ；T37005INPUT"T4=' ・；T47006 工NPUT'P1 ．¨;P17007 工NPUT"TA1 −・';TA17008 工NPUT"TA2= ・・;TA27009INPUT"TA3 ＝";TA37010INPUT'TA4 ＝・;TA47011GOTO70307020R$="34'7021P1=P1

十513.785*(TE3-TB3) ＋118.03*{4*(EXP( −X.155*TE3)-EXP(-1.155*TB3))+12 ，5*{EXP(-.77*TE4)

−EXP( −.11* 「rB4 」))7022PR

工NT"TIME=";TB,"ACTIVEREACTORS ・";R$,"Pl= ・';P1 ，"REACT 工ONTIME3= ・';？3,"REACTIONTIME4=";T47030PRINTII

．−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−一一II7031PRINT"￨S ＝>C(1),C −>C(2),R:1(3) ，R2(4),F3{5),F4(6),EX エT(8) い ー−−− −−−−−− ‥ − ‥- 一 一 7032PRINTllS=>F (1),C −>C(2) ，R1(3) ，R2(4),F3{5) ，F4(6),EXIT(8)I3 （7) −" 7033INPUT"TYPETHEAPPROPRIATENUMBERtJ ”；B$7034IFBS ＝”1"GOTO70707035IFB$ ＝・'2・・GOTO70807036IFBS="3' ・GOTO70907037IFB$ −"4"GOTO71007038 工FB$="5"GOTO71107039IFBS ・・'6・'GOTO71207040IFB$ −"7‥GOTO71307041IFB$ ・"8・’GOTO71407050R$= ・'34・l 7050R$= ・・34・・7052Pl=Pl+513.785*(TE3-TB3)

＋118.03*(4*{EXP( −1.155*TE3) −EXP(-1.155*TB3))+12.5*(EXP(-.77*TE4)

−EXP(-.77*TB4)))7053PR

工NT"PRESSUREOFTHEPRE-CONTROL=";P17054E=SETPO-PI7055E=E ★KP'7056P1=>E

十SETPO7058PRINTI

・m工ME・"；TB, ・■ACTIVEREACTORS=" ；R$ ，"Pl=";PI,"REACTIONTIME3 ＝・・;T3, ・・REACTIONT

工ME4＝・;T4,"NUMBEROFCONTROL=";NC7059GOTO70307070NC=NC ＋17071TB ・TE37072T3=T3-NC*TP ＋TBjT4 ＝T4-NC*TP 十TB7073TB3=TE3-TA3:TB4=TE4-TA47074TB ＝NC*TP7075TE3=TB-TA3!TE4 ＝TB-TA47076PR 工NTNC,TB,TB3, ？E3,TB4,TE47077GOTO70507080NC=NC ＋17081T3 ＝T3−TP:T4 ＝T4-TP7082TB3=TE3:TB4=TE47083TB=NC*TP7084TE3 ＝TB-TA3!TE4=TB-TA47085PR 工NTNC,TB ，TB3,TE3, ？B4 ，TE47086GOTO70507090T3

・T3-TA1 ＋TB;T4 ・T4-TA1 十TB7091TB3=TE3!TB4=TE47092TB

7094PRINTNC,TB,TB3,TE3,TB4 ，TE47095GOTO70207100T3=T3 −TA2+TB:T4=T4 −TA2+TB7101TB3=TE3:TB4=TE47103TB ＝TA27104TE3=TB-TA3:TE4=TB-TA47105PRINTNC ，TB，TB3,TE3,TB4,TE47106GOTO.70207110T4=T4-T37111TB3=TE3iTB4 ＝TE47113TB ＝TB十T37114TE3 ・TB −TA3!TE4 ＝TB-TA4:T3=0 7115PR 工NTNC 7116GOTO7 NC,TB,TB3,TE3,TB4,TE4 020 7120T3=T3 −T47121TB3 −TE3:TB4=TE47122TB=TB ＋T47124TE3=TB-TA3:TE4=TB-TA4:T4=07125PR 工NTNC,TB,TB3,TE3,TB4,TE47126GOTO70207130T4=T4-T3:TB=TE37131TB3=TE3 −TA3!TB4=TE4-TA47133TB=TB 十T37134TE3=TB-TA3 ；TE4=TB −TA48T3 ＝07135PR 工NTNC,TB,TB3 ，TE3,TB4,TE47136GOTO70207140GOTO51807200RS="123' ・7201INPUT"TB1=" ；TE17202INPUT"TB2= ¨；TE2 7203 7204 INPUT"TB3=";TE3 INPUT"NC=";NC INPUT ”T1= ”;T1 7205INPUT ”T1= ”;T17205INPUT"T2 ＝";T27207INPUT"T3=";T37208INPUT"P1 ．" ；P1T

りnoTMOTTm ・IP−1 ―It.m

7209INPUT ”TA1=

7210INPUT"TA2="; ？A272HINPUT

・'TA3=";TA37212INPUT"TA4

−'・;TA47213GOTO72307220R$='

・123"7221P1

＝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( −l,i55*TB3) 〉)7222PR

工NT"T 工ME＝";TB,"ACTIVEREACTORS −";R$,"Pl −・';P1,"REACTIONTIME1 ・‘・;T1,"REACT

工ONT 工ME2＝・';T2,"REACT 工ONTIME3 ＝";T3

7230PRINTII ．--- ．---. ．.．．．．-． 7231PR:INT" ’IS＝>C7232PRINT ・lS=>F 7234 7235 7236 7237 7238 7239 7240 7241 7242 7254 7255 7256 7258 FFFFFFFFb< ／ ＞IIT4MMl-t)-lMl-lR B$ ．"l・'GOTO7270BS −"2"GOTO7280 B$="3" ’GOTO7290B$="4"GOTO7300B$ −¨5"GOTO7310B$ ・¨6 ’GOTO7320B$="7 ¨GOTO ・7330B$ ＝・8・'GOTO7340B$ ・"9 ・'GOTO7350="123" -○ 討 ︲ ・ ︲ ︲ -3.466*TE1 3) −EXP(-l ・PI (1) ，C・>C(2),R4(3),F1(4),F2{5),F3(6),EXIT く8)3(7),S ＝>R4(9) 7233INPUT"TYPETHEAPPROPRIATENUMBER1111 ；B$ 7250RS= ・123・・ ・．7251P1=P1 ＋513.785*(TE1-TB1) ＋118.O3*((EXP{.866*TE2)-EXP(

−.866*TB2)) ＋4*(EXP(-1.155 ゛TE7253PRINT"PRESSUREOFTHEPRE-CONTROL*";-EXP(-3.466*TB1)) ＋6*(EXP(-55*TB3)))

E=SETPO −PIE

＝E*KPP1

＝E ＋SETPOPRINT

T 工OH725972707271727272737274727572767277728072817282728372847285728672907291729272937294729573007301730373047305730673107311731373147315731673207321732273247325732673307331733273347335733673407350735173527353735473557400740174027403740474057406740774087409741074117412T 工ME2= ¨;T2GOTO7230NC=NC ＋1TB=TE1

P ．0 にお け る 専 門 知 識 を 活 用 し た 意 思 決 定 支 援 シ ステ ム

"REACTIONTIME3=";T3,"NUMBER OFCONTROL ＝";NC

Tl= ？l-NC*TP ＋TBsT2 ＝T2-NC*TP ＋TB!T3=T3-NC*TP+TBTB1

−TE1-TA1:TB2=TE2 −TA2:TB3=TE3 −TA3TB=NC*TPTE1

・TB-TA1:TE2 −TB-TA2:TE3 ≫TB-TA3PRINTNC

，TB,TB1,TK1,TB2,TE2 ，TB3 ，？E3GOTO7250NC ＝NC＋1T1 ＝T1−TP!T2=T2 −TP!T3 ＝T3-TPTB1=TE1:TB2=TE2:TB3 ＝TE3TB=NC*TP ， 「rBl=TB-TAl!TE2=TB-TA2 客TE3＝TB-TA3PRINTNC,TB,TB1,TE1,TB2,TE り,TB3, ？E3GOTO7250T1

−T1-TA4 ＋TB:T2 ・T2 −TA4 ＋TB:T3=T3-TA4 十TBTB1=TE1sTB2=TE2:TB3

＝TE3TB=TA4TE1=TB-TA1:TE2 ＝TB-TA2:TE3=TB −TA3PRINTNC,TB,TB1,TE1,TB2,TE2,TB3,TE3GOTO7220T2=T2-T1:T3=T3 −T1TBl ＝TEl!TB2 ＝TE2!TB3=TE3TB=TB ＋T1TEl ＝TB-TAl:TE2=TB-TA2:TE3=TB-TA3tTl=0PRINTNC,TB,TBl,TEX,TB2, ？E2,TB3,TE3GOTO-7220T1=T1-T2:T3=T3-T2TB1=TE1!TB2=TE2:T 日3=TE3TB ＝TB十T2

「rEl=≫TB-TAl!TE2=TB −TA2:TE3=TB-TA3;T2 ＝0PRINTNC,TB,TBl,TEl,TB2,TE2,TB3,TE3。1GOTO7220T1=T:1-T3:T2

＝T2-T3TB1=TE1!TB2=TE2:TB3 ＝「rE3TB ＝TB＋T3TE1=TB-TA1:TE2 ＝TB-TA2:TE5i=TB-TAi ：？1＝ftPRINTNC,TB,TBl,TEl,TB2,TE2,TB3, ？E3GOTO7220T1 ・T1-T3:T2=T2-T3:TB ＝TE1TB1=TE1

−TA1:TB2=TE2-T 八2:TB3=TE3 −TA3TB=TB

十T3TE1=TB

−TA1:TE2=TB −TA2:TE3=TB −TA3tT3 ＝0PRINTNC,TB,TB1,TE1,

「rB2,TE2,TB3,TE3GOTO7220GOTO5180T1

≪T1−TA4 ＋TE1:T2=T2 −TA4 十TB2:T3=T3 −TA4 十TE3TB1=TE1

−TA1:TB2=TE2-TA2:TB3=TE3-TA3TB ＝TA4TE1 ＝TB-TA1:TE2=TB −TA2:TE3=TB-TA3PR 工NTNC,TB,TBl ，TEl,？B2,TE2, ？B3,TE3GOTO7220R$="124 ・' 工NPUT"TB1=";TE1INPUT"TB2 ．";TE ・2INPUT ”TB4＝";TE4INPUT"KC ＝";NCINPUT"T1=";T1 INPUT INPUT INPUT工NPUTINPUT 工NPUTINPUT ¨T2＝";T2"T4=";T4 ”P1=";P1 ”TA1＝";TA1 ”TA2＝"；TA2"TA3 −"；TA3 ”TA4=";TA4 67

7413GOTO7430

7420R$='24 ・17421P1=P1

＋513.785*(TE1-TB1 」＋118.03*((EXP(-3.466*TE1)-EXP(-3.466*TB1)) ＋6*(EXP(-.856*TE2)

−EXP( −.865*TB2)) ＋12.5*(EXP( −.77*TE4) −EXP(-.77*TB4)))7422PRINT

・T工ME=" ；TB,"ACT 工VEREACTORS ・";R$,"P1=";P1,"REACT 工ONTIME1=";T1,"REACTIONTIME2

＝";T2,"REACT 工ONT 工ME4＝";T4 ト

7430PRINT ¨ 。−−−−−−−−−−−−−−−−−−−−−−−−−−−。。−。。−。。-- 。−一一。- 。− 7431PRINT' ・￨S=>C7432PRINTl ・S=>F 7433 7434 7435 7436 7437 7438 7439 7440 7441 7450 工NPUT"TYPE_{T FFFFFFFF} ｀T −IT 一 → ←T 一T ←T ← (1 ）4 （7THE B$・"l"GOTOB$ ＝¨2"GOTOB$="3"GOTO ）−−− −−−−−− −−−−− −−−−− ’−−−−−’----APPROPRIATENUMBER11";B$747074807490 B$・¨4"GOTO7500B$ ＝¨5"GOTO7510B$ ＝'6"GOTO7520B$="7"GOTO7530B$="8"GOTO7540 R$="124 ・’ ︲ μU ・1I ，C=>C(2),R3(3),F1(4),F2(5 〉,F4(6),EXIT(8) W

7451P1=P1 ＋513.785*(TE1 −TB1)+118.O3*((EXP(-3.466*TE1) −EXP(-3.466*TB1)) ＋6*(EXP(-.856*TE2)-EXP(-.865*TB2))

＋12.5*(EXP(-.77*TE4)-EXP( −.77*TB4)))7453PRINT"PRESSUREOFTHEPRE-CONTROL=";P17454E=SETPO-PI7455E=E*KP7456P1=E

＋SE ？PO7458PR

工NT"TIME=";TB ，"ACT工VEREACTORS ＝¨;R$,¨P1=",'PI,"REACTIONTIME1 ＝";T1 バREACTIONTIME2=";T2,"REACTIONTIME4=";T4,"NUMBEROFCONTROL ＝"；NC7459GOTO7430 ・7470NC ＝NC＋17471TB=TE17472T1=T1-NC*TP 十TB:T2=T2-NC*TP 十TBzT4＝T4-NC*TP ＋TB7473TB1=TE1-TA1:TB2=TE2 −TA2:TB4=TE4-TA47474TB=NC*TP7475TE1= 「rB−TAl!TE2 ＝TB−TA2:TE4=TB-TA47476PRINTNC,TB,TBl,TEl,TB2,TE2,TB4,TE47477GOTO74507480NC=NC ＋l7481T1 −T1-TP:T2=T2 −TP:T4=T4-TP7482TB1 ＝TE1:TB2=TE2:TB4=TE47483TB-NC*TP7484TE1=TB-TA1:TE2=TB −TA2:TE4=TB-TA47485PR 工NTNC,TB, ？Bl,TEl,TB2,TE2,TB4,TE47486GOTO74507490T1 ・T1-TA3 十TB!T2=T2-TA3 ＋TB:T4・T4-TA3 十TB7491TB1

＝TE18TB2 ＝TE2iTB4=TE47492TB=TA37493TE1=TB

−TA1:TE2=TB-TA2:TE4=TB-TA47494PRINTNC,TB,TB1,TE1,TB2,TE2,TB4,TE47495GOTO74207500T2=T2 −T1:T4= ？4-T17501TB1

＝TE1:TB2=TE2:TB4=TE47503TB ＝TB＋T17504TE1

＝TB-TA1:TE3 ＝TB-TA3:TE4=TB −TA4:T1=O7505PRINTNC,TB,TBl,TEl,TB2 ，TE2,TB4,TE47506GOTO74207510T1=T1-T2!T4 −T4-T27511TBl=TEl:TB2 ＝TE2tTB4 ＝TE47513TB=TB 十T27514TE1=TB-TA1:TE2=TB −TA2:TE4=TB-TA4:T2=O7515PRINTNC,TB,TB1,TE1,TB2,TE2,TB4,TE47516GOTO74207520T1=T1 −T4!T2 ＝T2-T47521TB1=TE1:TB2=TE2:TB4=TE47522TB=TB 十T47524TE1 ＝TB-TA1:TE2=TB-TA2:TE4 ＝TB-TA4:T4=O7525PRINTNC,TB,TB1,TE1,TB2,TE2,TB4,TE47526GOTO7420

P.O. における専門知識を活用した意思決 定支援 システ ム69

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

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