ML20141D918
| ML20141D918 | |
| Person / Time | |
|---|---|
| Issue date: | 12/31/1985 |
| From: | NRC OFFICE OF INSPECTION & ENFORCEMENT (IE) |
| To: | |
| References | |
| NUREG-1167, NUDOCS 8601070496 | |
| Download: ML20141D918 (158) | |
Text
-
a-- a; ~;.. .: u.cs.
~ - -
_ . ._. ......_...s-.. .-
-r e. : _ . ~ , c a .
~
. i l
l l
l 1
1
- i TPDWR2:
Thermal Power Determination '
for Westinghouse Reactors, Version 2
- ! User's Guide ,
\
1
- l U.S. Nuclear Regulatory t
Commission .
Office of Inspection and Enforcement !
G. M. Kaczynski, R. W. Woodruff I \
l
,p* "a uq 4
I 8601070496 NUREG 851'4 1
'y
, , , , v. -,w , - - - - , , , , , - - - - , , - - - - - , , - - , - - - -
w-mm------- - - . - - , , - - - ,- - . - - - - , , - . , - - - ., ,.n, .,-._,..w_--,---,--- - -,- v--- - - . , -
=q=w -,. -- - . ~ - . . . . .
NOTICE Availability of Reference Materials Cited in NRC Publications
, Most documents cited in NRC publications will be available from one of the following sources: ;
, 1. The NRC Public Document Room,1717 H Street, N.W., l Washington, DC 20555
- 2. The Superintendent of Documents, U.S. Government Printing Office, Post Office Box 37082, 4 Washington, DC 20013-7082 j 3.. The National Technical Information Service, Springfield, VA 22161 l Although the listing that follows represents the majority of documents cited in NRC publications,
! it is not intended to be exhaustive.
Referenced documents available for inspection and copying for a fee from the NRC Public Docu-l ment Room include NRC correspondence and internal NRC memoranda; NRC Office of Inspection and Enforcement bulletins, circulars, information notices, inspection and investigation notices; Licensee Event Reports; vendor reports and correspondence; Commission papers; and applicant and licensee documents and correspondence.
The following documents in the NUREG series are available for purchase from the GPO Sales -
l Program: formal NRC staff and contractor reports, NRC-sponsored conference proceedings, and
, NRC booklets and brochures. Also available are Regulatory Guides, NRC regulations in the Code of Federal Regulations, and Nuclear Regulatory Commission Issuances.
Documents available from the National Technical Information Service include NUREG series reports and technical reports prepared by other federal agencies and reports prepared by the Atomic Energy Commission, forerunner agency to the Nuclear Regulatory Commission.
Documents available from public and special technical. libraries include all open literature items,
, such as books, joumal and periodical articles, and transactions. Federal Register notices, federal and state legislation, and congressional reports can usually be obtained from these libraries.
Documents such as theses, dissertations, foreign reports and translations, and non-NRC conference l proceedings are available for purchase from the organization sponsoring the publication cited.
Single copies of NRC draft reports are available free, to the extent of supply, upon written request to the Division of Technical Information and Document Control, U.S. Nuclear Regulatory Com-mission, Washington, DC 20555.
Copies of industry codes and standards used in a substantive manner in the NRC regulatory process are maintained at the NRC Library, 7920 Norfolk Avenue, Bethesda, Maryland, and are available there for reference use by the public. Codes and standards are usually copyrighted and may be '
purchased from the originating organization. or, if they are American National Standards, from the American National Standards institute,1430 Broadway, New York, NY 10018.
_ _ _ _ _ . _ _ . _ . _ - _ _ . _ _ _ _ . _ _ _ _ _ . _ _ . _ ~ . _ _ _ . , _ _ , . . _ . _ . _ _ _ .
i NUREG-1167 2
TPDWR2:
1 Thermal Power Determination for ~ Vestinghouse Reactors, Version 2 User's Guide I
i Manuscript Completed: October 1985 l Date Published: December 1985 G. M. Kaczynski, R. W. Woodruff Division of Emergency Preparedness and Engineering Response Office of Inspection and Enforcement U.S. Nuclear Regulatory Commission Washington, D.C. 20555 f.
l l
- 1,
'...../
.i i i l e
1 1
l l
4 1
ABSTRACT TPDWR2 is a computer program which was developed to determine the amount of
, thermal power generated by any Westinghouse nuclear power plant. From system conditions, TPDWR2 calculates enthalpies of water and steam and the power transferred to or from various components in the reactor _ coolant system and to or from the chemical and volume control system. From these results and assum-
, ing that the reactor core is operating at constant power and is at thermal d
equilibrium, TPDWR2 calculates the thermal power generated by the reactor core.
TPDWR2 runs on the IBM PC and XT computers when IBM Personal Computer DOS, Version 2.00 or 2.10, and IBM Personal Computer Basic, Version D2.00 or D2.10,
-are stored on the same diskette with TPDWR2.
f J
NUREG-1167 111
y - . . -
TABLE OF CONTENTS Pa5Le _
ABSTRACT......................................................... iii 1 INTR 000CTION..................................... .......... 1 2 HEAT BALANCE..................................... .......... 3
'3 ENTHALPY AND SPECIFIC V0LUME............................ ... 5
-4 ORIENTATION DISPLAYS........................................ 7 5 MASTER MENU................................................. 7 5.1 Analysis............................................... 9 5.2 Blank Data Sheet...................................
5.3 Calculator.........................................
... 9
.. 9 5.4 Change Dockets......................................... . 9 5.5 Parameters & Data....................... 9 5.6 Preface................................................ ..... 10
- 5. 7 5.8 Printer...........'.....................................
Reports........................................
.. ....... 10
....... 10 5.9 Steam Tab 1es.............................. 10 5.10 Termination............................................ ............. 10 6 SUBORDINATE MENUS........................................... 10 6.1 Analysis Menu.......................................... 11 6.2 Parameters & Data Menu.................... 11 6.3 Reports Menu........................................... ....... ..... 13 6.4 Steam Tables Menu................................
, . . ..... 13 7 CONTINGENT MENUS............................................
14 7.1 Data Handling Menu..................................... 14 7.2 Parameter Handling Menu................................ 14 8 M000LES..................................................... 14 8.1 Autostart Module....................................... 14 8.2 Command Start Modu 1e................................... 15 8.3 ' Master Program Modu 1e.................................. 15 8.4 Introduction Module.................................... 15' 8.5 Parameters & Data Modu 1e............................... 16 8.6 Parameters Handling Modu 1e............................. 16 8.7 ' Data Handling Modu 1e................................... 16 8.8 Analysis Modu 1e........................................ 17 8.9 D i sp l ay Modul e . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 21 8.10 Steam Tables Module.................................... 21 8.11 Reports Modu 1e......................................... 22 8.12 Termination Modu 1e..................................... 22 v-J
, . =. .
s- <m'.
TABLE OF CONTENTS (Continued)
P, age 9 OPERATING PROCEDURE........................................ 23
- 10 INSTALLATION PROCEDURE..................................... 23 APPENDICES A BATCH ROUTINES 8 TPDWR2. BAS C INTRO.8AS D PRM& DATA.8AS E PRM.8AS I
F DATA.8AS G ANALYSIS H DISPLAY.8AS I TABLES. BAS J REPORTS.8AS X END.8AS L PROGRAM PERFORMANCE TESTS O
vi
(.
1 I
i l l
l l
! 1 -INTRODUCTION Licenses for nuclear power plants restrict the maximum thermal power at which
- reactors may be operated. Technical Specifications appended to licenses set i forth additional restrictions on thermal power for certain operating conditions.
i These rest'rictions ensure that fuel cladding will not fafi if the fuel rods generate more heat than can be effectively dissipated by the coolant flow. To ensure that license requirements are met, licensees periodically determine ther-mal power by performing a heat balance. The result obtained from the heat bal-ance is used in calibrating the neutron flux measuring instruments tt.at provide 4
input for control of reactor power level. The computer program, TPDWR2 (Ther-mal Power Determination for Westinghouse Reactors, Version 2), described in .
this report, was developed to provide reactor inspectors with the capability to
- independently perform a heat balance for any Westinghouse reactor whenever the reactor and its primary cooling system are at or near thermal equilibrium.
To perform a heat balance, the heat sources in the primary cooling system are equated to the heat sinks. The principal heat source is the reactor core, and
' the principal heat sinks are the steam generators. To calculate the heat _trans-fer rate'in each steam generator, the pressure at which the steam generator is operating and the temperature and flow rate of feedwater are needed. From these data, TPDWR2 calculates the enthalpfes of steam and feedwater. . The rate of .
heat. transfer in each steam generator is equal-to the enthalpy difference between i.
i feedwater and steam multiplied by the mass flow rate of feedwater. Reactor I
power is then found by sumn.ing the heat transferred by each steam generator and correcting for heat input by pumps, heat loss through thermal insulation, and other effects.
i
- To demonstrate that the reactor is at equilibrium or to provide for small non-j equilibrium corrections, two sets of. data may be taken. . From these data, cor-i rections are made by TPDWR2 for the effects of changes in water levels in steam '
generators and the pressurizer. If the user wishes, the heat balance can be i done with one set of data.
t Before TPDWR2 can be used for the first time, the user must format a new l diskette, copy BASIC.COM from the user's DOS diskette to the newly formatted j
" diskette, and copy the modules from the TPDWR2 application diskette to the newly formatted diskette. A procedure for doing this is given in Section 10.
TPDWR2 consists of the following ten principal modules. The titles in paren-
- theses are the file names used by the computer for accessing the modules as a j result of selection of tasks by the user from various menus.
l' TPDWR2 (TPDWR2. BAS)
Introduction Module (INTRO. BAS) i ' Parameters & Data Module (PRM & DATA. BAS) l
- Parameters Handling Module. (PRM.8AS) i Data Handling Module (DATA. BAS) !
l Analysis Module .
(ANALYSIS. BAS) J
, Display Module (DISPLAY. BAS) I 1 i NUREG-1167 1 1
r Steam Table's Module (TABLES. BAS) !
Reports Module (REPORTS. BAS)
Termination Module (END. BAS) i Before doing the first heat balance for a given plant, values of certain design parameters are needed, for example, power and efficiency of the reactor coolant p pumps. The Parameter Handling Module displays on the screen, in sequence, three short tables for inputting the values of the parameters. For essentially all of the parameters, the module provides default values, which will be adequate for most Westinghouse reactors. The Parameter & Data Module automatically cre- ,
ates a plant-specific parameters file on the TPDWR2 diskette. Values of para- '
meters are stored there by the computer and are retained indefinitely.
i After the plant parameters are stored and before doing a heat balance, certain test data are needed, including feedwater flow and temperature and steam pres-sure. The Data Handling Module displays a data sheet on the screen where the user makes the necessary data entries. The Parameter & Data Module automati-cally creates a test-specific data file for the plant on the TPDWR2 diskette
- and stores these data there. These data are retained on the diskette until t data are entered for the next test. for that plant.
The Analysis Module obtains values of parameters and data from the Parameters &
Data Module and calculates enthalpy and specific volume of subcooled and satur-ated water and saturated steam as necessary. The Analysis Module then calculates
- 4 the distribution of power among the various flow paths in the reactor coolant
- system, calculates reactor power, stores the results on the TPDWR2 diskette
- until a subsequent analysis is performed, and displays the results on command.
! If a printer is connected to the computer, then the Reports Module, on command, prints a tabulation of parameters and data and a report of the analysis. The
! Reports Module also prints, on command, a blank data sheet for the convenience j of the user.
j In preparation for entry of parameters'and data and for performance of a heat balance, the Introduction Module queries the user for the docket number of the j unit to be analyzed, provides information on the status of parameter and data
]- storage files, flags the printer routines if a printer is used, and presents j the master menu. From the master menu, the user can access additional menus to j initiate the computer actions already described. In addition, the user can i independently access the steam tables to find values of enthalpy and specific ,
- volume for subcooled and saturated water and for saturated and superheated steam, o
, The user also can use the computer as a calculator if nonroutine calculations
- are necessary. ;
i The Termination Module will save or delete data'and results, depending on the !
user's needs, and make the computer available for other work.
l Besides the ten principal modules, there are two batch modules in TPDWR2. These are:
I Autostart Module (AUT0 EXEC. BAT)
- Command Start Module (T. BAT) i The Autostart Module automatically starts the program after the diskette is
! latched in the A Drive and power is supplied. If the computer has been powered up and is waiting for a command, the Command Start Module will start the program.
1 NUREG-1167 2 i-
TPDWR2 was written specifically for use with IBM PC and XT computers which have
- IBM Personal Computer DOS, Version 2.00 or 2.10, and IBM Personal Computer Basic, Version D2.00 or D2.10, available. The program functions with or without a printer connected to the computer.
2 HEAT BALANCE The reactor core and reactor coolant pumps are sources of heat in tne primary reactor coolant system. From these sources, heat flows in the primary coolant to the steam generators, which transfer heat from the primary coolant system to i the secondary coolant system. The chemical and volume control system, which is
- connected to the primary coolant system, is also a heat sink. In addition,
, heat flows from coolant, through piping and thermal-insulation, and is lost to l the system that cools the reactor cavity and piping galleries. To form a heat balance equation for the primary coolant system, heat per unit of time generated t
by the heat sources is equated to heat per unit of time entering these sinks.
To determine reactor power, the heat balance equation is solved for reactor power and the terms on the right side of the equation are evaluated.
Heat sink terms for the steam generators are found by writing a heat balance
) equation for the secondary side of each steam generator and solving for the heat per unit of time transferred across the tube walls of the steam generator.
- This quantity is equal to the sum of the heat per unit of time flowing in the steam and blowdown streams less the heat per unit of time flowing in the feed-
- water stream. Heat per unit of time flowing in each stream is equal to the product of enthalpy and mass flow rate for that stream.
Steam produced in the steam generator is saturated, not superheated; therefore, the enthalpy of the steam produced is a function only of the pressure at which
- the steam generator is operating and the quality of the steam. Pressure is monitored by the instrumentation system, and quality can be determined from a moisture carry-over test. Using known values of steam pressure and quality, the enthalpy of the wet steam produced can be determined by obtaining from steam tables the enthalpies of steam and water at saturation. The flow rate for-the wet steam can be found by subtracting the blowdown flows from feedwater flow where these flows are expressed in mass units per unit of time.
Feedwater temperature is measured, and at the nozzle, feedwater pressure must be equal to steam generator pressure. From known temperature and pressure, feedwater enthalpy can be found from steam tables, specifically, the table addressing compressed water and superheated steam. If feedwater flow is ex-pressed in volume units, it can be converted to mass units after obtaining specific volume (the reciprocal of density) from the table for compressed water, i Blowdown flow rates are usually expressed in gallons per minute, and these flow i
rates must be. converted to mass units per unit of time. For surface blowdown, the temperature of the stream is assumed to be essentially at the saturation ;
, temperature. Given steam generator pressure, the temperature and specific vol-ume at saturation can be found from the table for saturated steam and water.
Using the specific volume, the flow rate can be converted to pounds per hour.
, For bottom blowdown, the temperature of the stream is assumed to be midway bet-ween feedwater temperature and saturation temperature. Again, the pressure at the nozzle for this stream is steam generator pressure and the specific volume is determined from the compressed water table. In addition to specific volume, the enthalpy must be found for the blowdown streams.
If steam pressure, feedwater flow rate and temperature, and blowdown flow rates are known, the. power transferred from the primary side of the steam generator to the secondary side can be determined. Likewise, the power lost to the chem-ical and volume control system can be found if pressurizer pressure and letdown and charging flows and temperatures are known.
Thus far, the discussion has tacitly assumed that the flow distributions in the primary coolant system and the secondary sides of the steam generators are at equilibrium. If feedwater flow to a steam generator is in excess of the flow rate necessary to maintain the water level in the steam generator, then excess flow should be determined so that calculated steam flow can be corrected. Excess feedwater flow is determined by calculating the rate of change of water volume on the secondary side of the steam generator from two sets of data taken at different times and multiplying by the density of saturated water. Steam flow is then corrected by subtracting excess feedwater flow. Heat accumulated on the secondary side of the steam generator as a result of excess feedwater flow can be neglected.
Likewise, an excess of charging flow over letdown flow will result in flow to the pressurizer. The heat per unit time accumulated in the pressurizer is equal to the enthalpy of water in the hot leg of the primary cooling system times the mass flow rate which is found-in the same way that excess flow is found for steam generators. If flow is out of the pressurizer, then the enthalpy and density of water in the pressurizer must be determined to find the heat per unit of time flowing into the primary cooling system. Heat accumulated in or returned to the primary coolant system can be neglected; nevertheless, TPDWR2 calculates this quantity when two sets of data are used.
The discussion also has tacitly assumed that the reactor and the primary coolant system are at thermal equilibrium. However, the reactor core may be generating more power than is being removed. The difference is stored in the reactor core and the reactor coolant system. For a 3900-MW reactor, the thermal capacity of the core and primary cooling system is of the order of 2 million 8tu per Fahren-heit degree. If the average temperature of the core and primary cooling system change 0.1F* in 30 min, then the heat stored is 0.2 million 8tu and the rate at which it is stored is roughly 110 Btu per second or 0.1 MW or 0.003% of licensed power. TPDWR2 does not compute a correction for deviation from thermal equilibrium.
TRPDWR2 does compute power lost through the thermal insulation on the reactor vessel, the primary reactor coolant system, and the steam generators. The types of thermal insulation, reflective or nonreflective, must be known as'well as the surface area covered by each type. For nonreflective insulation, the average thickness of the insulation and its thermal conductivity must be known or esti-mated. Typical values might be 4 in, and 0.035 Btu per hour per foot per Fah-renheit degree. For reflective insulation, the heat loss coefficient must be known either from test or from purchase specification. A typical value might range from 50 to 100 Btu per hour per square foot. Total heat losses through the thermal insulation of a 3900-MW system might be as low as 0.3 MW.
The final term to be evaluated in the heat balance equation for the primary coolant system is heat input from the reactor coolant pumps. The heat input can be obtained from the pump name plate. The default value that TPDWR2 assumes for motor losses is 10%. When the default value is used, TPDWR2 multiplies NUREG-1167 4
pump power by 90% and' subtracts the product from the right side of the heat balance equation. For a four-loop, 3900-MW reactor, each reactor' cooling pump motor might require a 6-MW or 8000-hp motor.
3 ENTHALPY AND SPECIFIC VOLUME Depending on the temperature and pressure to which water is subjected in the reactor coolant system, the water can be in either the ifquid or vapor phase or both. The boundary between the two phases is called the saturation line. This line terminates at the triple point and at the critical point. The triple point is at 32.018 F and at 0.08865 pounds per square inch absolute (psia). It is the point where water can exist simultaneously in the solid, liquid, and vapor phases. The critical point is at 705.47"E and 3208.2 psia. At temperatures, above this point, water vapor cannot be condensed at pressures as great as
.15,500 psia.
To do a heat balance for the primary coolant system of a pressurized water reactor, values of enthalpy and specific volume are needed for subcooled (or compressed) water and for saturated water and steam. Internationally accepted values for these properties are given in the "ASME Steam Tables," Fourth Edition, published by the American Society of Mechanical Engineers. Table 1 in the ASME Steam Tables presents values of saturation pressure as a function of temperature from the triple point to the critical point. Table 3 presents values for en-
! thalpy and specific volume for compressed and superheated water from 32 F to 1500 F and from 0.12 psia to 15,500 psia.
Appendix 1 to the ASME Steam Tables presents the equations that were used to calculate the values presented in Steam Tables 1 and 3. In developing these equations, contributors to the ASME Steam Tables found it convenient to express temperature and pressure in dimensionless units. A quantity called the reduced temperature (0) is defined as absolute temperature of the fluid divided by the absolute temperature at the critical point. Likewise, reduced pressure (p) is defined as absolute pressure of the fluid divided by absolute pressure at the critical point. Equations for enthalpy and specific volume are given in Appen-
- dix 1 to the ASME Steam Tables as functions of 6 and p for the rectangular temp-erature pressure field bounded by the following four straight lines
0 = 0.423 0 = 1.66 p = 0.00 p = 4.52 This field is divided into four sub-regions as shown in Figure 1 of this user's guide. For Sub-regions 1 and 4, water is in the liquid phase; and for the other two sub-regions, it is in the vapor phase. Appendix 1 to the ASME Steam Tables provides equations for enthalpy and specific volume for each sub-region. Appen-dix 1 also provides equations for the saturation line and other boundaries bet-ween sub-regions.
TPDWR2 uses the equations for enthalpy and specific volume for Sub-regions 1 and 2. In the direction of increasing p, Sub-region 1 extends far beyond the area of interest for light water reactors. For Sub-region 2, the area of inter-est is at the saturation line. Nevertheless, with two exceptions, TPDWR2 dupli-cates the values for enthalpy and specific volume in the ASME Steam Tables out NUREG-1167 5
-. . . . - . - . . . . . - . - . ~ _ - . - _ . . _ . - _ _ . - .
1 i
f - REDUCED PRESSURE, p PRESSURE, psia in thousands-a TEMPERATURE, degrees F
- 662.00 >
J 32.018 239.41 705.47 1094.0 1472.0
- l. 4.52 14.5 i
j Sub-regions 3 and 4 1
t =
BETA.L
=
i Sub region 1 i -
4 Sub region 2 i
I 1.25 _ 4.0 1.00 _, CRITICAL POINT 3.2 0.75 2.4 BETA.K 1
O.00 0.0 0.42 0.60 1.00 1.33 1,66
- 0.96 t
li REOUCED TEMPERATURE, 0
[
t l'
I !
l' Figure 1: Boundary for Coolant Property Calculations i
NUREG-1167 6 i
to the boundaries of the sub-regions, and TPOWR2 will calculate and display values of the properties in these areas if the user is inclined to do so.
In Sub-region 1 in the vicinity of the point, (0 = 0.5, p = 2.8), TPDWR2 does not exactly reproduce values of enthalpy given in Table 3 of the ASME Steam Tables. However, the error is less than 1 part in 1300. Further, the absolute pressure in this area is roughly 9000 psia, thus this error has no affect on reactor calculations. The area to the left of the line through this point, although part of Sub-region 1, has been excluded from TPDWR2, because larger errors result from the calculation.
Sub-regions 3 and 4 surround the critical point and extend away from it in the direction of increasing E. Because light water reactors are not designed to operate in the critical region, these sub-regions have not been included in TPDWR2.
The saturation line is designated in the ASME Steam Tables as the K-Function or as p, subscript K. In Figure 1 and in Appendix G, ANALYSIS. BAS, of this user's guide, it is identified as BETA.K. The boundary between Sub-regions 2 and 3 is designated in the ASME Steam Tables as the L-Function or as p, sub-script L. In Figure 1 and in Appendix G, it is identified as BETA.L.
The routines for calculating enthalpy and specific volume are in the Steam Tables Module which is documented in Appendix I of this user's guide. These routines have been incorporated directly in the Analysis Module to avoid repeated chaining between these two modules. A significant savings in computing time is accrued.
4 ORIENTATION DISPLAYS The Introduction Module displays on the screen an initial series of orientation messages to , identify the program, to tell the user how to obtain help, and to provide brief instructions for controlling the machine. The module then asks the user whether use of a printer is intended and, if so, it guides the user in preparing the printer for use. Further, the Instruction Module sets the print flag so that subsequent modules select the appropriate display formats for the printer. After the title of the program is displayed, the user can avoid the subsequent preliminary displays by typing "a" without the quotation marks.
The module then queries the user for the docket number of the plant and uses that information to determine whether the plant-specific parameters, data, and results files contain information or are empty. The module sets flags to keep track of the status of these files so that appropriate messages can be displayed for the user. After these preliminaries, the Introduction Module displays the Master Menu. This menu provides the user with the means for loading any of the other modules.
5 MASTER MENU TPDWR2 has eight menus as shown in Figure 2. The Master Menu provides direct access to tasks listed on four subordinate menus, provides indirect access to tasks listed on two contingent menus, and provides the capability to initiate certain other supporting tasks. From any of the subordinate menus, the user can return to the Master Menu.
I
{
. ?
L
^
i t
I A>T. BAT D l l h
. ( )
t o ;
MASTER MENU 1 l I II Jl h I t
I i - I
- t
' L o o u o i
, PARAMETERS & ANALYSIS MENU REPORTS MENU STEAM TABLES !
DATA MENU MENU
- l 4>
4 {
i- !
I * . {
i i
p u y ;
4 r
PARAMETERS DATA MENU end. bas >
! MENU i
f F !
A>' \ !
l
)
\
b i i
i i ;
j A> is the DOS prompt. I I !
l i
l Figure 2: Menu Map 4 g 1 4 NUREG-1167 8 -
t I
,. - . - __,.,-. _..__, ._. - ., . - . . - _ - . - . _ . . . , . . _ . . . , , . . _ - _ _ _ _ . . . . , _ - . _ , , - - , . _ - . - , _ - . , , . - - . . ~ _ . _ . - _ . , - _ - -
When the Master Menu is displayed, there may or may not be values of plant para-meters stored on the TPDWR2 diskette for the docket number which was selected by the user. If values of plant parameters are not stored on the diskette, a banner will be displayed below the Master Menu informing the user of that fact and suggesting that the Parameters & Data task be selected. Nevertheless, the user can select any other task. Those tasks which can run without plant para-meters, will run.
The tasks described in the following sections can be run from the Master Menu.
5.1 Analysis Choice of this task causes the Analysis Module to be loaded in computer memory and the Analysis Menu to be displayed. See Section 6.1 for a description of the tasks which can be performed from that menu.
5.2 Blank Data Sheet Choice of this task causes the Reports Module to be loaded into computer memory and a blank data sheet to be printed. If the printer option was not selected when the computer ran through the introductory portion of the program, then the computer loads the Introduction Module and presents the display in which the user can elect to use or not use a printer. After the printer is selected, the computer displays the Master Module again. If the user again selects Blank Data Sheet, the Reports Module will then print a data sheet for a four-loop PWR, reload the Introduction Module and again display the Master Menu.
5.3 Calculator Choice of this task causes the computer to (1) display the Calculator Procedure across the top of the screen, (2) allow space on the screen in which the user can type the mathematical expression to be evaluated, and (3) leave TPDWR2 so that BASIC is available. The user can then type the mathematicd expression according to the instructions in the Calculator Procedure. Logarithmic and trigonometric functions are available. When the enter key is pressed, the cal-culation is performed and the answer is displayed. When the calculations are completed, the user should return to TPDWR2 by following the instructions at the bottom of the screen, i.e., by pressing the F2 key. The computer will reload the Introduction Module and display the Master Menu.
5.4 Change Dockets Before the user could access the Master Menu, it was necessary to select a docket by docket number. Anytime thereaf ter, when the Master Menu is displayed the user'can change dockets by selecting this task. The computer will prompt for the new number and ask for the user to verify that the number is correct. After verification is received, the computer closes open files associated with the old docket number, opens new files as necessary, and again displays the Master Menu.
5.5 Parameters & Data Choice of this task causes the Parameters & Data Menu to be loaded in computer memory and the Parmeters & Data Menu to be displayed. See Section 6.2 for a description of the tasks which can be performed from that menu.
d 5.6 Preface s Choice of this task causes the computer to return to the first display follow-ing the NRC logo and to display information described in Section 4.
5.7 Printer Choice of'this task causes the computer to return to that orientation display-which asks the user whether the printer will be used and then to return to the Master Menu.
5.8 Reports Choice of this task causes the computer to determine whether the printer is connected to the system and power is on. If the printer is not connected or printer power is off, the computer presents on the screen the display which asks the user to decide whether or not the printer will be used. After the computer receives a response, the Master Menu is displayed,'and the user can again select the reports task. The computer then loads the Reports Module into memory and displays the Reports Menu. See Section 6.3 for a description of the tasks which can be performed from this menu.
5.9 Steam Tables Choice of thi.s task causes the computer to load the Steam Tables Module into memory and to display the Steam Tables Menu. See Section 6.4 for a description of tasks which can be performed from this menV.
5.10 Termination ~
Choice of this task causes the computer (1) to load the Termination Module into memory; (2) to display the status of the parameters, data, and results storage files for the current docket; (3) to present an option to erase certain files for the current docket; (4) to present an option to return to the baginning of TPOWR2 or to exit from it; and (5) in the event that the user elects te exit, to present the option to remain in BASIC or return to DOS.
The options to erase certain current docket files are contingent on which files contain information. If d i three files contain information, the user has the option of deleting the data and results files from memory. If parameters and data files contain information, the user has the option of deleting the data-files. If only the parameters file has informatfor., the user has the option of deleting it.
6 SUBORDINATE MENUS ~
The subordinate menus are accessible from the. Master 'enu and the Master Menu is accessible from any of the subordinate menus. Two of the subordinate menus, i.e., the Analysis and Reports Menus, also provide direct access to the Termi-nation Module which performs the tasks and presents' the options described in Section 5.10. The tasks that can be initiated from th'e subordinate menus are described in the following sections.
NUREG-1167 10 y
6.1 Analysis Menu From this menu, heat balance data can be analyzed or, if the analysis has already l been completed, the results of the analysis can be displayed on the screen.
i If the analysis task is selected, the computer loads the Parameters & Data Module into memory, retrieves the values of the parameters and data from the storage files for the current docket, reloads the Analysis Module, performs the analysis, and again displays the Analysis Menu.
4 If the display task is selected and data have been analyzed, the computer loads the Display Module, recalls the results of the analysis from storage, displays the results, reloads the Analysis Module, and again displays the Analysis Menu.
If the display task is selected and data have not been analyzed, the computer displays a message to that effect on the screen, reloads the Analysis Module, and again displays the Analysis Menu.
6.2 Parameters & Data Menu From this menu, values of plant parameters can be entered or corrected, heat balance data can be entered or corrected, and values of parameters and data can ,
be displayed on the screen.
I 6.2.1 Parameter Entry If the task to enter values of plant parameter is selected, the computer loads the Parameters. Handling Module into memory. If values of plant parameters are already in storage, the contingent Parameter Handling Menu is displayed. Tasks which can be initiated from that menu are described in Section 7.2. If values are not in storage, the computer asks for verification that the nuclear steam supply system was designed by Westinghouse. If the response is no, an appro-priate message is displayed and the Master Menu is again displayed. If the response is yes, three displays are shown on the screen in sequence. In the first display the user is asked to enter the plant name, unit number, number of cooling loops, and licensed power level. In the second and third displays, the user is asked to enter the values of certain reactor coolant system and steam generator parameters.
For each display, highlighted parameter fields are presented to show the user where to make the entry and how many characters can be used for each entry.
The displays for the reactor coolant system and steam generator parameters in-
, clude default values which will be adequate for most plants. Each of these displays presents, on the lowest line of the screen, directions for selecting the default value, entering some other value, or requesting help. The help displays, as appropriate, provide instructions for moving the cursor, descrip-tions of the way in which the Parameters Module calculates the various default values, and other information that the user may need for performing an adequate heat balance.
6.2.2 Parameter Correction If the task to correct values of plant parameters is selected, the Parameters &
- Data Module checks for the presence in storage of values of parameters. .If values are not present,a message to that effect is displayed on the screen and NUREG-1167 11
the Parameters & Data Menu is again displayed. If values of plant parameters are in storage, the computer loads the Parameters Handling Module into memory and shows three displays on the screen in sequence. The first display presents the current plant name and values for unit number, number or reactor coolant loops, and licensed thermal power. The second and third displays show current values for reactor coolant system and steam generator parameters.
For each display, the current value of the parameter is presented in a high-lighted parameter field. The locat.fon of the cursor (ao underscore) is visible and the cursor is blinking. Any value on the display can be changed by moving the cursor to the beginning of the selected parameter field, initiating entry, and typing over the current value. Guidance for doing this is presented in.the instruction line at the bottom of the display. When corrections for a given display are completed, the user can exit to the next display. After the last display is shown, the computer reloads the Parameters & Data Module and again displays the Parameters & Data Menu.
6.2.3 Data Entry If the task to enter heat balance data is selected, the computer loads the Data Handling Module into memory. If data are already in storage, the contingent Data Handling Menu is displayed. / Tasks which can be initiated from that menu are described in Section 7.1. If data are not in storage, the computer asks whether the user will use one cr two sets of data. If liquid levels and secon-dary system flow rates are at equilibrium, the user will find that one set of data is adequate. After the user responds, the computer will display a data sheet with highlighted data fields. The instruction line at the bottom of the screen provides guidance for data entry and for accessing a help display. Data can only be entered in the sequence requested by the computer. After'the first data sheet is completed, the computer will display a second data sheet if the user indicated that two sets of data would be used. When data entry is com-pleted, the computer reloads the Parameters & Data Module and again displays the Parameters & Data Menu.
6.2.4 ' Data Correction If the task to correct heat balance data is selected, the Parameters & Data Module. checks for the presence in storage of data. If data are not present a message to that effect is displayed on the screen and the Parameters & Data Menu is again displayed. .If data are in storage, the computer loads the Data Handling Module into memory and shows on the screen either a single data sheet or two data sheets in sequence depending on whether one or two sets of data were taken. Current values of the data are presented in highlighted data fields.
The location of the cursor (an underscore) is visible and the cursor is blinking.
Any value on the data sheet can be changed by moving the cursor to the beginning of the selected data field, initiating entry, and typing over the current value.
Guidance for doing this is presented in the instruction line at the bottom of th data sheet. When corrections for the first data sheet are completed, the user can exit to the second data sheet, if it exists. The computer then reloads the Parameters & Data Module and again displays the Parameters & Data Menu.
6.2.5 Display of Parameters and Data If the task to display values of parameters and data is selected, the computer recalls these values from storage, if they have been stored, and presents NUREG-1167 1h 3 u .. - - - -. .
sequential displays on the screen. If either values of parameters or data or both are not in storage, appropriate messages are displayed. After the last display is presented, the Parameters & Data Module is again displayed.
6.3 Reports Menu From this menu, reports in tabular form of values of parameters and data and of the results of a' heat balance analysis can be printed. Blank data sheets can also be printed.
6.3.1 Parameters and Data If the task to print a report of parameters and data is selected, the computer loads the Parameters & Data Module in memory, recalls the values of parameters and data from storage, reloads the Reports Module into memory, and prints the report. The report format is adjusted to accommodate units with two, three, or four loops. To maintain 1-inch margins on the report, it is printed in condensed mode, i.e., 17 characters per inch.
6.3.2 Heat Balance If the task to print a report of a heat balance analysis is selected, the com-puter loads the Analysis Module into memory, recalls the results of the heat balance analysis from storage, reloads the Reports Module, and prints the report.
The report format is adjusted to accommodate units with two, three, or four loops.
6.3.3 Blank Data Sheet If the task to print a blank data sheet is selected, the computer prints a data sheet which is appropriate for any Westinghouse reactor.
6.4 Steam Tables Menu From this menu, the enthalpy, specific volume, density, and phase can be deter-mined for water in Sub-regions 1 and 2 as shown in Figure 1 and for saturated water at the boundary between Sub-regions 1 and 2.
6.4.1 Saturated Water at Known Temperature If this task is selected, the computer first queries the user for temperature.
It then calculates the saturation pressure of water, inputs temperature and saturation pressure into the Sub-region 1 equations for enthalpy and specific volume to obtain values for water and into the Sub-region 2 equations for en-thalpy and specific volume to obtain values for steam. The reciprocal of the values for specific volume are calculated to obtain density. The results of the calculations are displayed on the screen, and if the printer has been selec-ted, the results are also printed.
6.4.2 Saturated Water at Known Pressure If this task is selected, the computer first. queries the user for pressure. It then calculates the saturation temperature of water, using an iterative NUREG-1167 13
technique. The Steam Tables Module assumes a value for saturation temperature, and the computer calculates the saturation pressure corresponding to that tem- -
perature. The difference between known pressure and calculated saturation pres-sure is found. From this error, the computer estimates a new value of satura-tion temperature and again calculates the value of saturation pressure. After each iteration, the difference between known and calculated saturation pressures is displayed on the screen. Iteration continues until the difference is accept-ably small, f.e., until the results in the ASME Steam Tables are duplicated.
Calculation then proceeds as in Section 6.4.1.
6.4.3 Unsaturated Water If this task is selected, the computer first queries the user for values of temperature and pressure. The computer then calculates saturation pressure to determine whether the water is in the liquid phase (Sub-region 1) or the vapor phase (Sub region 2). The computer then uses the appropriate equations to deter-mine values of enthalpy, specific volume, and density. These values and the identity of the phase are displayed and, if the printer has been selected, are printed.
7 CONTINGENT MENUS In addition to the tasks described below, the computer, on command, will return to the previous menu, i.e., the Parameters & Data Menu.
7.1 Data Handling Menu When data are stored in the current' docket and when the enter data task is selected from the Parameters & Data Menu, the Data Handling Module displays a contingent menu on the screen. From the contingent data handling menu, the user can (1) write over the existing set or sets of data or (2) if only one set of data is in storage, write a second set of data. Thus the user can take an initial set of data, do a heat balance analysis, review the results, take a second set of data later in time, and do a heat balance analysis with both sets of data to account for nonequilibrium effects.
7.2 Parameter Handling Menu When values of parameters are stored in the current docket and when the enter parameters task is selected from the Parameters & Data Menu, the Parameters Handling Module displays a contingent menu on the screen. From the contingent parameters handling menu, the user can (1) write over the existing values of all the parameters or (2) correct existing values of selected para eters.
8 MODULES Except for the Autostart and Command Start Modules, the software modules are written in BASIC. The Autostart and Command Start Modules are written for DOS.
Each of these modules is described in the following subsections, and the actual program modules are given in Appendices A through K.
8.1 Autostart Module (AUTO EXEC. BAT)
After the TPDWR2 program diskette is inserted in the A Drive and power is con-nected to the computer, the computer automatically loads the Autostart Module NUREG-1167 14
into computer memory and runs the module. Autostart loads TPDWR2.8AS into mem-ory and runs it.
8.2 Command Start Module (T.8AT)
After the computer is booted with DOS and typing "t" (without quotation marks) and pressing the enter key in response to the DOS prompt, the computer will load and run Master Program Module, provided that the TPDWR2 working diskette is in the drive designated by the DOS prompt.
8.3 Master Program Module (TPDWR2. BAS)
The Master Program Module displays an NRC logo and dimensions those variable arrays that are common to two or more modules. The Master Program Module then chains to the Introduction Module.
8.4 Introduction Module (INTRO. BAS)
The Introduction Module displays on the screen an initial series of three orien-
'tation messages to identify the program, to tell the user how to obtain help, and to provide instructions for controlling the machine. The module then asks the user whether use of a printer is intended and, if so, it guides the user in preparing the printer for use. Further, the Introduction Module sets the print flag so that subsequent modules select the appropriate display formats for the printer and the screen. The module then asks the user to identify the docket number of the reactor that will be analyzed. The module checks the parameter, data, and results storage files to determine whether they contain information or are empty. If values are stored, as indicated by the appropriate flags, cautionary notes are displayed on the screen for the user.
After these preliminaries, the Introduction Module displays the Master Menu.
This menu provides the user with the means for loading either the Parameters and Data, Analysis, Steam Tables, Reports, or Termination Modules. The Master Menu will also print a blank data sheet, put the machine in the calculator mode, turn the printer on or off, display the preliminary messages, and change dockets if the user wishes. After the user makes a selection from the menu, the machine executes that task. If the instruction is not compatible with the status of the system, the user will be so informed, and the user will be presented with the appropriate menu so that remedial action can be taken.
When .the user is working in any of the other principal modules, the user can always return to the Master Menu in the Introduction Module. When such a re-quest is executed, the preliminary messages in the Introduction Module are by-passed, and the user is taken directly to the Master Menu.
When the calculator mode is selected, instructions are presented on the screen which guide the user in exiting from TPDWR2, running BASIC as a calculator, and returning to TPRWR2. Re-entering TPDWR2 is accomplished with a single keystroke.
The calculator will evaluate any expression containing constants and/or func-tions preceded by a question mark. For example, the user can determine the l value of expressions like l
l ? 5+50*(1+ sin (3,1416/6))+8*10^3 i NUREG-1167 15 l
l by first typing the line and then pressing RETURN. The following result is then displayed:
8080 To obtain correct results, the user must know the hierarchy of operations, i.e. ,
order of precedence, which BASIC uses. BASIC works from left to right, evalua-ting innermost parentheses first and then proceeds outwards. Arithmetic opera-tions are performed from left to right in the following order:
- 1. Exponentiation (^)
- 2. Multiplication (*) and Division (/)
- 3. Addition (+) and Subtraction (-)
8.5 Parameters & Data Module (PRM & DATA. BAS)
When the user enters the Parameters & Data Module, the module checks to deter-mine whether or not the parameters storage flag is set. If it is not, the values for the parameters for the docket addressed have not been stored and must be entered as a prerequisite to entering data and performing a heat balance. The module displays a note to this effect on the screen and presents the Parameters
& Data Menu. The user can either enter, correct, or display values of parameters and data; return to the Master Menu; or go to the Termination Module.
8.6 Parameters Handling Module (PRM. BAS)
If the user elects to enter values of plant parameters and if values are already stored in the Parameter Storage File, then the user has the option of entering a new value for each parameter, correcting selected parameters, or returning to the Parameters & Data Menu. If the user decides to enter new values for the parameter set, a request is presented on the screen, parameter by parameter, for entry of the necessary values. After each entry is keyed in, the user presses the enter key to advance the cursor to the next' parameter. The module opens the parameters storage files for that docket, if they exist, or creates files on the program diskette. The values are stored on the diskette, and the motfule returns to the Parameters & Data Menu.
8.7 Data Handling Module (DATA. BAS)
If the user elects to enter data, the module first recalls the values of the plant parameters to obtain the number of cooling loops for that reactor. If the values are not in parameters storage files, the module so indicates on the screen and returns the user to the Parameters & Data Menu. Otherwise, the module displays a data sheet on the screen to prompt the user for the test date and time when data were taken. Time must be written in 24-hour format, for example, 1530 for 3:30 p.m. The data sheet also prompts for steam pressure, feedwater flow and temperature, surface and bottom blowdown, and water level in each steam generator. Finally, the data sheet prompts for letdown and charging line flows and temperatures, pressurizer pressure and water level, and reactor inlet temper-ature and average temperature (T ave). Next, the module stores these data in the data storage files.
Feedwater flow data must be presented to the computer in millions of pounds per hour. Where reactor instrumentation presents flow data as a pressure differen-tial measured between pressure taps at an orifice plate or venturi, the user NUREG-1167 16
will need to obtain calibration data to convert the pressure differential to flow in the required units.. In doing this work, if the user needs the specific volume of feedwater, it can be obtained easily from the Steam Tables Module and the calculation can be done in the calculator mode.
Random' access files are used for the parameters and data storage files.
s While keying values for parameters and data into the computer and before pressing the enter key, errors can be corrected by using the left and right arrow keys to reposition the cursor and writing over the entry. After pressing the enter key, the entry is stored in machine memory and cannot be corrected until all entries have been completed and the user has returned to the Parameters & Data Menuc Then, if necessary, the user can select either the parameters or data corrections option.
From the Parameters & Data Menu, the user can display on the screen the values of the parameter and data sets. Printed reports can be obtained from the Reports Module.
8.8 Analysis Module (ANALYSIS. BAS)
From the Analysis Menu, the user can analyze data, display results of the analy-sis on the screen, return to the Master Menu, or terminate the session. If analysis of data is selected, the module first converts clock time for the data set on sets from 24-hour format to decimal format, calculates the time difference between the data sets, if required, and stores the time difference in machine memory for use later in this module. The module next analyzes the performance of the secondary side of the steam generators using the sign convention that flow into the steam generators is negative and flow out is positive.
For Data Set 1 and Steam Generator A, the Analysis Module inputs to the ~ steam tables routine within the module, the values of feedwater temperature and steam pressure. The steam tables routine calculates the enthalpy of feedwater in Btu per hour. The Analysis Module continues by multiplying feedwater enthalpy'by feedwater flow in pounds per hour to determine the heat per unit time delivered to the secondary side of the steam generator by the feedwater. Later, the module
-will determine the heat per unit time removed from the secondary side in the steam and other streams and will take the difference to find the heat per unit time supplied from the primary side by the reactor core and the pumps.
The module informs the user of the current status of the analysis as it pro-gresses. When analysis starts, the module displays " Data Set 1" on the screen and then adds on the line below " Steam Generator A" followed by "Feedwater"~and "enthalpy" to indicate that this quantity has been computed.
Next, the module calculates the heat per unit time lost in the stream from the surface blowdown line. At the beginning of this calculation, the display on the screen advances one line and adds the words " Surface Blowdown." Because water near the water-steam interface in the steam generator is at the satura-tion temperature, the Analysis Module inputs steam pressure to that steam tables routine which calculates the saturation temperature. The Analysis Module then l returns to the steam tables routine to obtain values of enthalpy and density ,
for these conditions. After values of enthalpy and density are returned, the Analysis Module converts the flow rate of surface blowdown to pounds per hour NUREG-1167 17
and calculates the heat per unit time leaving the secondary side of the steam generator via this stream in Btu per hour.
At this point, the screen display is:
Data Set 1 Steam Generator A Feedwater Enthalpy Surface Blowdown Enthalpy Density For bottom blowdown, the module assumes that, the water temperature is midway between the feedwater temperature and. saturation temperature. Using this value and the steam pressure, the module determines the enthalpy, density, and heat per unit of time in the bottom blowdown' stream. -
Using the saturation temperature, the steam pressure, and the steam tables routine, the Analysis Module obtains the enthalpies of dry steam and water (moisture carry-over). However, the calculation of the heat per unit of time in the steam stream cannot be calculated at this point.because the steam flow is unknown. Later, steam flow will be calculated from feedwater and. blowdown flows, steam generator water levels and the time difference between data sets, if two sets of data are used. The display on the screen now reads as follows:
Data Set 1 Steam Generator A Feedwater Enthalpy Surface Blowdown Enthalpy Density Bottom Blowdown Enthalpy Density Steam Enthalpy ,
Moisture Enthalpy The module repeats this routine for Steam Generator B and for the remaining steam generators, if the reactor has more than two loops. After completing these calculations, the routine is repeated for Data Set 2, if required.
The module now calculates the excess feedwater flow for each steam generator from the change in surface level between Data Sets 1 and 2. First, the module calculates the wet cross-sectional area of the dome of the steam generator, which is equal to the area of the dome less the areas of the swirl vane risers.
Next, the module calculates the product of water level and average water density for Data Set 2 minus the product for Data Set 1. The module then multiplies this difference by the wet cross sectional area of the steam generator dome and divides by the time difference.
Taking care to observe the sign convention for flows, steam flow is calculated for each steam generator by subtracting excess feedwater flow and surface and bottom blowdowns from the feedwater flow. Heat per unit.of time in the steam stream is then calculated by adding the product of dry steam enthalpy and steam quality and the product of water enthalpy and the moisture carry-over.
The Analysis Module now starts to calculate heat per unit of time gains and losses in other parts of the reactor cooling system. The following lines are added to the display on the screen:
NUREG-1167 18
Data Set 1 Other Components Letdown Line Enthalpy Density Using pressurizer pressure and letdown temperature as input to the steam tables routine the Analysis Module obtains the enthalpy and density of the letdown coolant stream. The sign convention for flow is now generalized. Flow direct-ed toward the reactor coolant system is taken as negative, and flow away from the system is taken as positive. The module converts letdown flow from gallons per minute to pounds per hour and then calculates the heat per unit of time for the letdown stream. In the same manner, the heat per unit of time for the charging stream also is determined.
If net water mass is being added to, or removed from, the reactor coolant system as a result of mass flow imbalance in the letdown and charging lines, the pres-surizer' acts as an accumulator. To calculate this effect, the module first determines whether the pressur'2er level is rising or falling. If the level is rising, the module calculates hot leg temperature and then the enthcipy and density of hot leg coolant, using hot leg temperature, pressurizer pressure, and the steam tables routine. If the level is falling, the Analysis Module uses pressurizer pressure and the steam tables to calculate the temperature of coolant in the pressurizer, assuming that the coolant is at saturation. For this temperature and pressurizer pressure, the enthalpy and density of coolant in the pressurizer is calculated using the steam tables routine. In either event, the Analysis Module calculates the cross-sectional area of the pressurizer and the mass flow rate int'o or out'of the pressurizer. The mass flow rate is given by Line 2340 in Appendix G.
The heat per unit of time removed from, or supplied to, the reactor cooling sys-tem via the pressurizer is given by the product of pressurizer. flow and average enthalpy for Data Sets 1 and 2.
The Analysis Module next calculates the heat loss through the thermal insula-tion by taking the product of the surface area covered by reflective insulation and the heat loss coefficient and the product of the surface area covered by nonreflective insulation, the thermal conductivity of the ins'ulation, and the difference between T ave and ambient temperature which is assumed to be 100 F.
The products are added to obtain the total insulation loss.
To obtain the power input to the coolant from each reactor coolant pump, the nameplate rating is multiplied by the product of the motor efficiency.
At this point the Analysis Module has completed calculations of all enthalpfes, densities, and corrections. For a two-loop plant, the screen will have com-pleted the status display as shown in Table 1. ~Because only summing of results remains to be done and because that is done rapidly, no more calculation status lines are displayed.
For each data set, the module now calculates the heat per unit of time trans-ferred across the tube bundle in each steam generator by algebraically summing ,
the heat per unit of time in the steam, feedwater, and blowdown streams. Heat l per unit of time dissipated elsewhere in the reactor coolant system for each data set is calculated by algebraically summing the heat per unit of time in the letdown and charging streams, the heat per unit of time lost through the NUREG-1167 19 l l
Data Set 1 Steam Generator A Feedwater Enthalpy Surface Blowdown Enthalpy Density Bottom Blowdown. Enthalpy Density Steam Enthalpy Moisture Enthalpy Steam Generator B Feedwater Enthalpy.
Surface Blowdown Enthalpy Density Bottom Blowdown Enthalpy Density Steam Enthalpy Moisture Enthalpy' Data Set 2 Steam Generator A Feedwater Enthalpy Surface Blowdown Enthalpy Density Bottom Blowdown Enthalpy Density Steam Enthalpy Moisture Enthalpy Steam Generator B Feedwater Enthalpy-Surface Blowdown Enthalpy Density Bottom Blowdown Enthalpy Density Steam Enthalpy Moisture Enthalpy Data Set 1 Other Components Letdown Line Enthalpy Density Charging Line Enthalpy Density
. Pressurizer Enthalpy Density Data Set 2 Other Components Letdown Line Enthalpy Density Charging.Line Enthalpy Density Pressurizer Enthalpy Density Table 1: Screen Display during Analysis of Data NUREG-1167 20
. -_ _ . -- - - _- .- - . =_ __. - - ,
I thermal insulation, and subtracting the heat input from the reactor cooling I
. pumps. Reactor power.is found by summing the heat per unit of time transferred '
in the steam generators and in other components and lines.
Analysis of the data is complete. The Analysis Module stores the results on the TPDWR2 working diskette in the results storage files where the results are
- available until they are overwritten after analysis of other data. Until that happens, this module in conjunction with the Display Module can be used to re- '
call the results and display them on the screen; or the Reports Module can be used to print the results.
ll l 8.9 Display Module (DISPLAY. BAS)
The Display Module is loaded into memory by the computer when the user requests display of the heat balance results. When the display is terminated, the com '
puter reloads the Analvsis Module and displays the Analysis Menu.
8.10 Steam Tables Module In Appendix I, most of the equations for enthalpy, specific volume, and related quantities are expressed in terms of 8, the reduced temperature, and p, the '
reduced pressure, to be comparable to equations in the ASME Steam Tables. How-ever, the equations could have been expressed in terms of temperature and pres-sure, and the discussion that follows is written as though that were the case.
The Steam Tables Module can be accessed by the user directly from the Master Menu. When accessed from the master menu, the independent variables section of the Steam Tables Module. queries'the user for the condition of the coolant and values of , temperature, pressure, or both. Specifically, the module asks whether the coolant is saturated at known temperature, saturated at known pressure, or unsaturated at known temperature and pressure. After data are entered, the module calculates the saturation pressure associated with temperature and the saturation temperature associated with. pressure where those quantities exist.
The module then calculates enthalpy, specific volume, and density for one or both phases, as appropriate. The results are displayed on the screen, or if a printer is connected and the printer option was selected when the Introduction Module was running, the results are printed.
Before doing any calculation, the independent variables section of-the Steam
- Tables Module stores the input values of temperature and pressure in machine
- j. memory and calculates corresponding values of 6 and p. Execution then proceeds i to the section of the module on limits of applicability. This section compares j the values of temperature and pressure against the limits of applicability for
- the steam tables. These limits are the noncontiguous boundaries of Sub-regions 1 and 2 as displayed in Figure 1. If an applicability limit is violated, the module displays an appropriate error message on the screen and chains to' the Introduction Module which displays the Master Menu again.
-If the applicability limits are not violated and if the coolant is not satu-rated, execution advances to the sub-region and phase identification section of j the module. This section identifies the sub-region in which the temperature-1 pressure point resides. If the temperature of the fluid is less'than or equal to 662*F and if the pressure of the fluid is greater than the saturation pres-
~
[ .sure (BETA.K), as shown in Figure 1, then the fluid is in the liquid phase;
~
NUREG-1167 21 i
. . - - -- . = - - - . - . . - . _. .
i otherwise, the fluid is in the steam phase. Execution then branches to either the section for Sub-region 1 (water) or the section for Sub-region 2 (steam),
as appropriate ~.
For either sub-region, if the pressure of the fluid is less than the pressure at the critical point,.the module calculates the saturation temperature associ-ated with the. fluid pressure. Because saturation pressure is a complicated function of temperature, temperature at saturation is found by an iterative technique. Iteration starts with an assumed value of saturation temperature '
equivalent to a 0 of 0.5. The saturation pressure associated with the assumed value of saturation temperature is calculated. This value is subtracted frum l the given value of pressure to find the error in saturation pressure. From the error, a better value of saturation temperature is obtained. Iteration continues until a value is obtained that is as precise as the value given in Table 2 of
, the ASME Steam Tables. To do this, several iterations are required, and t..e
, computation may take a minute or so. Rather than leave the screen blank, the error associated with each iteration is displayed on the screen. Thus, the user knows that the machine is functioning. Countdowns are displayed during calculations of enthalpy and specific volume for the same reason.
, The properties of water and steam obtained.in the Steam Tables Module are cal-culated frca equations presented in "ASME Steam Tables," Fourth Edition, pub-lished by the American Society of Mechanical Engineers. For Sub-region 1, the reduced volume and reduced enthalpy equations on pages 23 and 24 are used.
1 For Sub region 2, the equations are on.pages 24 and 25. The equation for the i saturation line, BETA.K, is given on page 17, and the equation for BETA.L, the
, boundary between Sub-region 2 and 3, is given on page 23.
8.11 Reports M'odule From the menu in the Reports Module,.the' user can print a blank data sheet to be used for collection of data, print input data including the plant parame-ters, print a report of the heat balance, return to the Master. Menu or go to .
- the Termination Module.
Data sheets and input data are printed in compressed font, i.e., 17 characters
! per inch.
i
( Heat balance reports are printed with pica font, i.e., 10 characters per inch.
One page is required per data set. Again, formatting is appropriate for the i number of loops.
8.12 Termination Module (END. BAS)
~
When the' Termination Module is accessed, it first checks the parameters, data, and results storage files, to determine whether information is stored in them.
l If so, an appropriate message is displayed for the user on the screen and the user can either erase or sava stored information. If the user responds by com-1 manding that the information be erased, the user is asked to confirm the~ command.
The module executes the command and then returns to the beginning of the Intro-duction Module or exits to 005.9 TPDWR2 DISKETTE.
! NUREG-1167 22 l l
_ _ ,_ -_- _ _ _ _ . _ . .. __.____..___.__i
I TPDWR2 is written on an application diskette, which can be supplied by the Office of Inspection and Enforcement. The files stored on the application diskette are:
AUTOEXEC. BAT REPORTS. BAS T. BAT END. BAS TPDWR2. BAS CALC.ST0 INTRO. BAS 369 PRM& DATA. BAS PLANT-ID.369 PRM. BAS SG-DATA.369 '
DATA. BAS OC-DATA.369 .l ANALYSIS. BAS RCS-CALC.369 '
DISPLAY. BAS SG-CALC.369 '
TABLES. BAS OC-CALC.369 The 369 files on the application diskette provide the user with an example of an actual application of the program. The reports for this example are shown on pages L-16, -17, and -18 of Appendix L.
Before TPDWR2 can be run, the user must prepare a working diskette as described in the Installation Procedure in Section 10. By executing this procedure, the.
- u
' 'ser will create a diskette which will have stored on it the user's licensed i
copies of COMMAND.COM, the DOS interface routine, and. BASIC.COM, as well as a copy of each of the TPDWR2 modules and' files listed above. This diskette can accommodate up to.an additional 70 docket files.
To check the validity of the software during its life, the user can run any of the six Prog'am Performance Tests that are documented in Appendix L.
9 OPERATIW, PROCEDURE Before TPDWR2Lcan be run the first time, a working diskette must be prepared by following the procedure described in Section 10. After the working diskette is prepared, TPDWR2 can be run'at any time on either an IBM PC or XT.
If power is off, place the working diskette in Drive A and turn power on.
TPDWR2 will automatically be loaded into memory and execution will. start. The program will provide sufficient / prompts so that a' user who has not previously run the program can do so.
If power is on and the DOS prompt is displayed, i.e., A> or B>, then the user should place the working diskette in either Drive A or B, as appropriate, and press the return key. Execution can then proceed as above.
10 INSTALLATION PROCEDURE l
'The following procedure can be used to prepare a working diskette using the IBM j PC:
- 1. Put your DOS diskette in Drive A and a new diskette in Drive B.
]
- 2. Execute A> FORMAT B:/S/V.
i O
NUREG-1167 23
- 3. Title the diskette TPDWR2.
- 4. Execute A> COPY BASIC.COM B:/V.
- 5. Replace the' DOS diskette in Drive A with the new diskette in Drive 8. Put the TPDWR2 application diskette (supplied by the Office of Inspection and Enforcement) in Drive B.
- 6. Execute A> COPY 8:*.*/V.
- 7. To test the new working diskette, execute A>T.
The following procedure can be used to prepare a working diskette using the IBM XT:
- 1. Put your DOS diskette in Drive A and execute A> FORMAT /S/V.
- 2. Follow the instructions on the screen. Title the diskette TPDWR2.
- 3. When formatting is completed, leave the new diskette in -the drive, execute A> COPY B: BASIC.COM/V, and follow the instructions on the screen.
- 4. When copying is completed, replace the new diskette with the TPDWR2 appli-cation diskette (obtained from the Office of Inspection and Enforcement) and execute first A>MD C:DKJE2 and then A> COPY *.* C:DKJE2/V.~
- 5. Replace the TPDWR2. application diskette with the new diskette, and execute A> COPY C:DKJE2\*.*/V.
- 6. When copying is completed, first execute A> ERASE C:DKJE2\*.* and then A>RD C:DKJE2.
- 7. To test the new working diskette, execute A>L.
i 1
1 NUREG-1167 24 1
(
l l
r 1
APPENDIX A BATCH ROUTINES i
l i
O%
y , . - ,- .,
AFFENDl! As BATCH ROUTINES 4
AUTLEIEC. BAT basic tpdwr2/d/s:167 T. BAT cls basic tpdwr2/d/s:167 A-1
6 APPENDIX B TPDWR2. BAS
/
APPENDl! B: TPDWR2. BAS 10 ensunnun 20 tu TPDWR2. BAS en 30 HHHHHHH 40 50 CLEAR,,800 : DEFDBL A-Z : KEY OFF 60 70
- N H B0 90 100. N$=*ees' : (iS : COLOR 7,0 110 FOR 11=5 TO 13 : LOCATE 11,21 : PRINT N$ : LOCATE 11,29 : PRINT N$
120 , : LOCATE !!,11+16 : PRINT N$ : NEIT 130 FOR'!I:1 TO 200 : !=I+1 : NEIT 140 150 160 u R **
170 180 FOR II= 5 TO 13 : LOCATE 11,35 : PRINT N$ : NEIT 190 FOR JI= 9 TO 13 : LOCATE JI,JI+32 : PRINT N$ : NEIT 200 FOR KI=35 TO 41 STEP _2 : LOCATE 5,KI : PRINT N$ : LOCATE 9,KI : PRINT N$ MEIT 210 FOR LI:5 TD 7 : LOCATE LI,37+LI : PRINT N$ : LOCATE 14-LI,37+LI : PRINT N$ : REIT 220 FOR 11=1 TO 200 : !=I+1 : NEIT 230 ,
240 250 nCu 260 270 FOR 11:52 TO 58 STEP 2 : LOCATE 5,11 : PRINT N$ : LOCATE 13,11 : PRINT N$ : NEIT 280 FOR JI=5 TO 13 : LOCATE JI,50 : PRINT N$ : NEIT 290 LD" ATE 5+1,58 : PRINT N$ : LOCATE 13-1,58 : PRINT N$
300 FOR 11=1 TO 300 : !=I+1 : NEIT 310 320 330
- I D **
340 350 LOCA'E T 16 : PRINT TAB (25) ' INDEPENDENT MEAS'JREMENTS PROGRAM' FOR !!=1 TO 300 : I=I+1 : NEIT II 360 LOCATE 18 : PRINT TAB (24) 'll.S. Naclear Regulatory Cosaissior.'
370 LOCATE 19 : PRINT TAB (23) ' Office of Inspection and Enforcement' 380 LOCATE 20 : PRINT TAB (29) ' Washington, D.C. 20555' FOR 11=1 TO 400 : I=I+1 : NEIT II 390 LOCATE 1,1: PRINT 'TPCWR2' : FOR II:1 TO 300 : I=I+1 : NEIT II 400 410 COLCR 7,0 : LOCATE 23,45,0: PRINT ' To continue, press the '; COLOR 16,7 : PRINT ' space bar ';
420 COLOR 7,0 : PRINT ".';
430 l$=lNKEY$ : IF Z$ OCHR$(32) THEN 430 440 '.*
450 460 ** DIMENSIONS **
470 480 REM Data 490 DIM BOTTOM. BLOW I 4,2) ,CH AR6!NG. FLOW (2) . CHARGING. TEMP (2 ) , FEEDWATER. FLOW l 4,2 ) ,FEEDW ATER. TEMP ( 4,2) 500 DIM LETDOWN. FLOW (2), LETDOWN. TEMP (2),PIR. PRES (21,PIR. WATER. LEVEL (2), STEAM ?RES(4,2),T. AVE (2) 510 DIM T. COLD (2) , TT IMF (2 ) , TOP. BLOW ( 4,2) ,56. W ATER. LEVEL ( 4,2) 520 530 REM Auxiliary Results 540 DIM BOTTOM. BLOW. DENSITY (4,2), DRY. STEAM.ENTHALPY(4,2),M0!STURE.ENTHALPY(4,2),PZR.0ENSITVI2)
B-1
APPEI II 8: TPDWR2. BAS 550 560 REM Output 570 DIM BOTTOM. BLOW.ENTHALPY(4,2), BOTTOM. BLOW.LB.PER.HR(4,2), BOTTOM. BLOW. POWER (4,2), CHARGING.ENTHALPY(2) 580 DIM CHAR 61N6. FLOW.LB.PER.HR(2), CHAR 6tN6. POWER (2),FEEDWATER.ENTHALPY(4,2),FEEDWATER. POWER (4,2) 590 DIM I NStR. A T10N. POWER (2) , LETDON. EN THALP Y (2 ) , LETDOWN. FLOW. LB. P ER.HR (2) ,LETDOM. POWER ( 2) ,0 THER. POWER (2 )
600 DIM OTHER. POWER.M(2),PIR.ENTHALPY(2), REACTOR. POWER.M(2),SS.ENTHALPY(4,2),SS. POWER (4,2) 610 DIN STEAM.ENTHALPY(4,2), STEAM. FLOW (4,2), STEAM. POWER (4,2), TOP. BLOW.ENTHALPY(4,2) 620 DIM TCP. BLOW.LB.PER.HR(4,2), TOP. BLOW. POWER (4,2) 630 640 REM Unique Arrays 650 DIM EICESS. FEEDWATER. FLOW ( 4 ) ,HR (2) , LETDOM. DENSI TY (2) , MIN (2) ,S6. POWER. M ( 4,2) ,T. HOT (2) , T IME. HR (2) 660 DIM TT I met (2) , TOP. BLOW. DENSITY ( 4,2) , TOTAL. SS. POWER (2) , B ( 10,7) ,DE4 (6) , DV2 ( 6) , SB (9,3) , II(9,3) , ZI(9,4 )
670 680 690 ** BRIC6E *a 700 710 CLS : LOCATE 12,29 : PRINT 'TPDWR2 IS BEIN6 LOADED * : CHA!N ' INTR 0' 720 END i
e l
B-2
APPdNDIX C INTRO. BAS F
t
I APPENDIX C: INTRO. BAS 1
TABLE OF CONTENTS Page Messages C- 1 Printer C- 3 Docket Entry C- 3 Storage Status C- 4 Master Menu C- 5 O
C-iii
APPENDl! C INTRO, BAS 10
- ennune 20 n INTRO. BAS **
30 unnennu 40 50 nunun 60 a 0020N e 70 **********
90 90 DEFDBL A-Z : KEY OFF 100 110 REM Paraeeters 120 COMON CARRY 0VER.A, CARRYOVER.B, CARRY 0VER.C, CARRYOVER.D, LOSS. COEFFICIENT,NONREFLECT. AREA,PIR.ID 130 COMON RISER. NUMBER, RISER.00, CONDUCTIVITY,1NSULATION. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA
'140 COMON RC. PUMP.EFF,RC. PUMP.PWR,56.lD, DOCKET $
150 160 REM Data 170 CDRON BOTTOM.BLOWO, CHAR 61NS.FLOWO, CHAR 61NB. TEMPO,FEEDWATER.FLOWO,FEEDWATER. TEMPO, LETDOWN.FLOWO 180 CO MON LETD0hN. TEMP O ,PIR. PRES U ,PIR. WATER.LEVELU , STEAM. PRES U ,T. AVE O ,T. COLD 0 ,TTIMEO , TOP. BLOW D 190 C020N S6. WATER.LEVELO, DATA. SETS 1,DDATES, PLANT $, UNITS 200 210 REM Auxiliary Results 220 Cam 0N A,B, BOTTOM. BLOW.DENSITYU, DELTA. TIME, DRY. STEAM.ENTHALPYO,H,1,M0lSTURE.ENTHALPYU,N,P,PSATI 230 COMMON PIR.DENSITYO,PIR.ENTHALPYO,SS. CROSS.SECTICW,T,TSAT,V,MI,NI, DATA.FLA68,DIABNOSTIC. FLAG $
240 C020N PARAMETER. FLAG $, PRINT.FLA68,RESULTS.FLA63,1$,Y$,2$
250 260 CLS : COLOR 7,'O : IF If=' INTRO 1920' THEN 60TO 2170 270 280 GPEN ' CALC.STO' AS 81 LEN=8 : FIELD 81,1 AS CF$, 3 AS D$,1 AS DF$,1 AS PF$,1 AS PRF$,1 AS RF$ SET 11 290 - CALC.FLA68=CFS : DOCKET $=D$ : DATA.FLABl=DFt : PRINT.FLA68:PFS : PARAMETER.FLA68=PRF$ : RESULTS.FLA68:RFs 300 IF CALC. FLAG $='S' THEN CLOSE II : KILL ' CALC.STQ' : 60TO 2170 310 CLOSE It 320 330 340 enseneun 350
- MESSAGES e 360 ennennee 370 '
- 380 L= 7 : C=25 : 605UB 440 390 F=25 : GOSUB 980 : CLS : L= 2 : C= 3 : 605UB 440 : M= 9 : D=33 : GOSUB 550 400 F=45 : 6OSUB 980 : CLS : L= 2 : C=44 : 6050B 440 : M= 5 : D=32 : GOSUB 550 : N= 9 : E= 1 : 605UB 680 410 F=45 : SOSUB 960 : CLS : M=-1 : D=31 : GOSUB 550 : N= 3 : E= 1 60SUB 680 : L=13 : C=37 : 60SUB 860 420 F=23 : 60SUB 980 60TO 1050 430 440 COLOR 0,7 450 LOCATE L+1,C : PRINT
- 460 LOCATE L+2,C : PRINT ' TPDWR2 470 LOCATE L+3,C : PRINT
- 480 LOCATE L+4,C : PRINT
- THERMAL POWER DETERMINATION 490 LOCATE L+5,C : PRINT ' FOR 500 LOCATE L+6,C : PRINT
- WESTINGHOUSE REACTORS 510 LOCATE L+7,C : PRINT ' '
520 LOCATE L+8,C : PRINT
- SEPTEMBER 30,1985 530 LOCATE L+9,C : PRINT ' ' : RETURN 540 C-1
APPE"III Cs INTRO,8AS 550 COLOR 7,0 l
560 LOCATE M+ 2,D : PRINT . * * * * * * * * * * **** * * * * * * * * *
- 570 LOCATE M+ 3,0 : PRINT *e e*
580 LOCATE M+ 4,0 : PRINT ** For help, call: **
590 LOCATE M+ 5,0 : PRINT '* **
600 LOCATE M+ 6,0 : PRINT '* Roger Woodruff (301) 492-4507 e*
610 LOCATE M+ 7,D : PRINT ** Don Kirkpatrick (301) 492-4510 **
620 LOCATE M+ B,0 : PRINT '* **
630 LOCATE M+ 9,0 : PRINT '* After working hours, call on **
640 LOCATE M+10,0 : PRINT ** (301) 492-7000 e*
650 LOCATE M+11,D : PRINT ** **
660 LOCATE M+12,D : PRINT * * *
- e e e e e
- este * *
- e * * * * * * : RETURN 670 680 COLOR 0,7 690 LOCATE N+ 1,E : PRINT *
- 700 LOCATE N+ 2,E : PRINT
- NOTE 710 LOCATE N+ 3,E : PRINT ' '
720 LOCATE N+ 4,E : PRINT ' 1 To correct input, press the '; : COLOR 7,0 730 PRINT * ';CHR$( 17)+CHR$(196i;" '; : COLOR 0,7 : PRINT ' in the siddle '
740 ' LOCATE N+ 5,E : PRINT
- rcw of keys, and write over the input. "
750 LOCATE N+ 6,E : PRINT
- 760 LOCATE N+ 7,E : PRINT
- 2. To halt execution, simultaneously press *; : COLOR 7,0 : PRINT
- Ctrl ';
770 COLOR 0,7 : PRINT *
- 780 LOCATE N+ 0,E : PRINT ' and '; COLOR 7,0 : PRINT
- Nun Lock '; COLOR 0,7 790 PRINT '. To restart, press any key. "
800 LOCATE N+ 9,E : PRINT *
- 810 LOCATE N+10,E : PRINT
- 3. To escape fraa the progras, simultaneously 820 LOCATE N+11,E : PRINT ' press '; : Cn8,0R 7,0 : PRINT
- Ctrl *; : COLOR 0,7 : FRINT
- and *;
830 COLOR 7,0 : PRINT
- Scroll Lock '; : COLOR 0,7 : PRINT ".';SPC(16) 840 LOCATE N+12,E : PRINT * * : RETURN 850 860 COLOR 7,0 870 LOCATE L+1,C : PRINT
- e * * * * * * * * *tes * * * * * * *
- e' 880 LOCATE L+2,C : PRINT *
- s' 890 LOCATE L+3,C : PRINT *
- ENTERIN8 INSTRUCTIONS **
900 LOCATE L+4,C : PRINT * * **
910 LOCATE L+5,C : PRINT *
- The next frase asks for yes or no. **
920 LOCATE L+6,C : PRINT *
- Press Y or M, and then the *; : COLOR 0,7 930 PRINT * ';CHR$(171+CHR$(196)+CHR$(217);' '; : COLOR 7,0 : PRINT ' **
940 LOCATE L+7,C : PRINT '
- key (the enter or return key). e' 950 LOCATE L+8,C : PRINT ' *
960 LOCATE L+9,C : PRINT ' * * * * * * * * * **** e * * * * * * * ** : RETURN -
970 980 COLOR 7,0 : LOCATE 23,F,0 : PRINT
- To continue, press the ';
990 COLOR 16,7 : PRINT ' space bar '; : COLOR 7,0 : PRINT '.';
1000 Z$=INKEY$ :'IF Z$OCHR$(32) AND Z$0'A' AND Z$O'a' THEN 1000 ELSE IF Z$=CHR$(32) THEN RETURN 1010 IF Z$='A' OR Z$='a' THEN 1310 1020 1030
- C-2
APPENDl! C; INTRO. BAS 1040 1C50
- PRINTER e 1060 ***********
1070 1000 CLS : N= 2 : E=22 : 60SUB 680 : L=12: C=1 :-605U8 860 : N=19 : D=38 : COLOR 0,7 1090 1100 iGC.SE N+1,0 : PRINT ' -
1110 LOCATE h42:D : PRINT
- Nill you use the printer during this <
1120 LOCATE N+3,D . PRINT
- session ('; a COLOR 16,7 : PRINT ' YIN'; : COLOR 0,7 1130 PRINT *)
1140 LOCATE N+4,0 : PRINT *
- a LOCATE N+3,0+16 : INPUT I$
1150 COLOR 7,0 1160 1170 IF 1$='Y' OR Ils'y' THEN PRINT.FLA6$='S' : 60T0 1190 1180 IF I$='N' OR If='n' THEN PRIFT.FLA68='C' : 60TO 1270 ELSE GOTO 1080 1190 1200 CLS : LOCATE 8,38 : PRINT ' NOTE' : PRINT 1210 PRINT TAB (20);'1. Is printer power on? If not, turn it' 1220 PRINT TAB (20);' on now.' : PRINT 1230 PRINT TABI20);'2. Is the printer on line? If not press' 1240 PRINT TAB (20);' the '; : COLOR 0,7 : PRINT
- ON LINE '; : COLOR 7,0 : PRINT ' switch.'
1250 1260 F=22 : 605US 930 1270 IF Y$=' SKIP.TO. MENU' THEN Y$=" : 60TO 2170 1200 1290 1300 ****************
1310
- DOCKET ENTRY e 1320 *******etes*****
1330 1340 CLS : COLOR 7,0 1350 LOCATE 10,19 : PRINT 'What are the last three digits of the docket' 1360 PRINT TAB (19); 'ausber, including any leading zeros?' : PRINT 1370 PRINT TAB (19); 'After entering the docket number, press the' : COLOR 0,7 1380 LOCATE 14,19 : PRINT ' ';CHR$(17)+CHR$(196)+CHR$(217);' '; 2 COLOR 7,0 : PRINT
- key.' : LOCATE 11,57 1390 INPUT ", DOCKET $
1400 1410 CLS : LOCATE 12,26 : PRINT 'The docket number is 50 '; DOCKET 8;'.'
1420 LOCATE 25,21 : PRINT 'After responding, strike the '; : COLOR 16,7 1430 PRINT * ';CHR$(17)+CHR$(196)+CHR$(217);* ';
1440 COLOR 7,0 : PRINT ' key.';
1450 LOCATE 13,26 : INPUT 'Is it correct (Y/N)? ",If 1460 IF Is='V' OR I$='y' THEN 1490 ELSt IF lt='N' CR is="n' THEN 1340 ELSE LOCATE 13,47 : PRINT !$
1470 LOCATE 15,29 : COLOR 0,7 : PRINT
- PLEASE TYPE Y OR N! ' : COLOR 7,0 : 60TO 1450 1480 1490 00CKET. ENTRY.FLA6$='S' 1500 1510 OPEN 00CKETS AS $1 LEN=159 : FIELD 01,158 AS If,1 AS PF8 : SET 11,1 : PARANETER. FLAG $=PF$
1520 IF (PARAMETER.FLA680'S' AND PARAMETER.FLA680'C') THEN PARAMETER.FLA68='C' s LSET PF$= PARAMETER.FLA68
- PUT 01,1 : CLOSE $1 1530 CLOSE il 1540 1550 C-3
APPE~ l! C: INTRO. BAS 1560 senseneuennu 1570
- STORAGE STATUS e 1580 **unesenneeses 1590 1600 CLS : F=23 1610 1620 OPEN ' PLANT-ID.'+ DOCKET $ AS #1 LEN=59 1630 FIELD 01, 32 AS Ps,1 AS U$, 20 AS D$, 3 AS DS$,1 AS DFS, 2 AS OTS$
1640 SET 01,1 : DATA.FLA6s=DF$ : DATA.SETSI=CVIIDTS$) : IS=' '
1650 FOR II:1 TO 32 : NON. PLANT 8=R16HT$(P$,II) 1660 IF NON. PLANT $0!$ THEN PLANT $=LEFT$(P$,32-lZell : 60TO 1670 REE I$=1$e' ' : NEIT 1670 UNIT 8=U$ DOCKET. STORED $=DS$ DDATE$=D$
1680 IF (DATA.RA6$O'S' AND DATA.RA6sO'C*) THEN DATA.RA68='C' 1690 LSET OF$= DATA.RA6$ : PUT 01,1 : CLOSE 1 1700 1710 DPEN 'RCS-CALC.'+ DOCKET $ AS 61 LEN=45 1720 FIELD 01,1 AS RF$,8 AS PFS,8 AS PP$,8 AS RPBS,20 AS 08 : 6ET 51,1 : RESULTS.FLA68:RF$
1730 IF (RESULTS.RA680'S' AND RESULTS.RA680*C') THEN RESULTS.FLAS$='C' 1740 LSET RF$=RESULTS. FLAGS : PUT 51,1 : CLOSE I 1750
- 1760 IF DATA.RA68='S' THEN 1780 ELSE 2010 1770 1780 CLS : LOCATE 5,35 :COLCR 0,7 : PRINT:' CAUTION ' : COLOR 7,0 : F=22 1790 LOCATE 8,19 : IF DATA.SETSI=1 THEN PRINT 'One set *; ELSE IF DATA.SETSI:2 THEN PRINT ' iso sets";
1800 PRINT ' of data for -- ' : PRINT 1810 PRINT TAB ((80-LEN(PLANT 8+ UNIT $)-11/2); PLANT *;' '; UNITS : PRINT TAB (37);'50 '; DOCKET. STORED $ : PRINI 1820 PRINT TAB (19); : IF CATA.SETSI 1 THEN PRINT 'is '; ELSE IF DATA.SETSI:2 THEN PRINT 'are';
1830 PRINT
- stored on the diskette. If you enter' 1840 PRINT TAB (19);'nea data under the same docket number,'
1850 PRINT TAB (19);" previous data will be lost. Results of' 1860 PRINT TAB (19);' analysis of those data are '; : IF RESULTS. FLAG 8='S' THEN PRINT 'also'; ELSE PRINT 'not *;
1870 PRINT
- stored on' 1890 PRINT TAB (19);'this diskette. ';
1890 IF REeJLTS.FLA68='S' THEN PRINT ' Analysis of new data will' ELSE PRINT * *
- PRINT : GOTO 1910 1900 PRINT TAB (19);* destroy those results.' : PRINT 1910 PRINT TAB (19);' Options are described on the next screen."
1920 60509 980 1930 1940 CLS : LOCATE 10,33 : FRINT **** CPTIONS tes* PRINT 1950 PRINT TABill);'From the MASTER MENU, you will be able to make a hard copy' ,
1960 PRINT TAB (11)6*of the old data and results, to overwrite the old data with' 1970 PRINT TAB (!!);'nen data, or to change dockets.' : 605U9 900 : CLS 1980 1990 C-4
APPENDl! C: INTRO. BAS 2000 mmmmm 2010 i MASTER MENU e 2020 mmtemme 2030 2040 IF Y$=' SKIP.TO. MENU' THEN Y$=" : GOTO 2170 2050 CLS : LOCATE 10,24 : F=23 : IF CALC.RA68='S' THEN 2140 2060 LOCATE 10,24 : PRINT ' NOTE: The computer systes is ready.'
2070 PRINT TAB (24); 'The MASTER MENU will be displayed' 20B0 PRINT TAB (24); 'next. Except when you terminate the' 2090 PRINT TAB (24); ' session, you will always be able to' 2100 PRINT TAB (24); ' return to the MASTER MENU.*
2110 2120 605U8 980 6
2150 CALC. FLAG 8='C' LSET CF$= CALC. FLAG $ : PUT $1,1 : CLOSE $1 2160 2170 CLS : F=2T : IF PARAMETER. RAS $='S' THEN 60TC 2200 2180 LOCATE 23,19 : COLOR 0,7 : PRINT
- Plant Parameters are needed. Select (3) ' : COLOR 7,0 2190 2200 LOCATE 25,21 : PRINT 'After responding, strike the ';
2210 - COLOR 16,7 : PRINT ' ';CllR$( 17)+CHR$(196)+CHR$(217);" '; : COLOR 7,0 : PRINT
- key.'
2220 2230 IF PRINT.FLAS$ 0'S' THEN PRINT.FLA68='C' 2240 TI= 5 : 91=19 : LI=ll : RI=70 2250 LOCATE TI,LI : PRINT CHR$(201) : LOCATE TI,RI : PRINT CHR$(187) : LOCATE BI,RI : PRINT CHR$(188) 2260 LOCATE BI,LI : PRINT CHR$(2001 2270 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-l : PRINT CHR$(205); : NEIT 2280 LOCATE BI,LI+1 : FOR II=1 TO RI-LI-! : PRINT CHR$(205); : NEIT 2290 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEIT 2300 FOR II=TI+2 TO BI : LOCATE !!-1,RI : PRIWT CHR$(ISS) : NEIT 2310 LOCATE 5,34 : PRINT
- MASTER MENU * : A=17 : B=47 2320 LOCATE 8,A : PRINT '(Al Blank Data Sheet *; : PRINT TAB (B);*(F) Calculator' 2330 LOCATE 10,A : PRINT *(B) Parameters & Data'; : PRINT TA!!B);'(S) Chat:ge Dcckets' 2340 LOCATE 12,A : PRINT '(C) Analysis'; : PRINT TAB (B);'(H) Printer" 2350 LOCATE 14,A : PRINT *(D) Stean Tables *; PRINT TAB (B);'(I) Preface' 2360 LOCATE 16,4 : PRINT '(El Reports *; : PRINT TABIB);*(J) Teraination' 2370 LOCATE 19,62 : PRINT ' ' : LOCATE 19,17 :' INPUT
- Nhich would you like (A/B/C/D/E/F/6/H/I/J)*;I$
2380 2390 CLS 2400 IF DIAGNOSTIC. RAS $O'S' THEN BOTO 2430 2410 LPRINT TAB (12);'I$=';I$;" D I AGNOST I C. RA68 ='; D I AGNOS T I C. R AG $; ' (INTRO, LINE 2410)*
2420 2430 IF I$=' DIAGNOSTIC' OR I$=' diagnostic' THEN 2440 ELSE 2450 2440 DIAGNOSTIC. RAG $='S' : LOCATE 24,60 : COLOR 0,7 : PRINT 'DIA6NOSTIC' : COLOR 7,0 2450 IF (Is='A' OR Il='a') AND PRINT.RA6t='S' THEN I$=' DATA SHEET" : GOSUB 2590 : CHAIN ' REPORTS' 2460 IF (I$='A' OR Is='a') AND PRINT. RAG $='C' THEN GOTO 2650 2470 .IF 'I$='B' OR I$='b' THEN 60SUB 2600 : CHAIN 'PRMitATA' 2480 IF I$='C' OR It='c' THEN GOSUB 2610 : CHAIN ' ANALYSIS' 2490 IF Is='D' QR I$='d' THEN I$=' MENU' : 60SUB 2620 : CHAIN ' TABLES' 2500 IF (If='E' OR I$='e') AND PRINT. FLAG $='S' THEN GOSUB 2590 : CHAIN ' REPORTS *
,2510 IF (It='E' OR I$='e') AND PRINT.RA6t='C' THEN 60TO 2650 2520 IF !$='F' DR If='I' THEN CALC. FLAG $='S' : GOSUB 2980 : GOTO 2110 2530 IF It='6' OR !$='g' THEN DOCKET. ENTRY.FLAS$='C' Y$=' SKIP.TO. MENU' : GOTO 1310 C-5
APPENDl! C: INie". BAS 2540 IF Is='H' OR I$='h' THEN Y$=' SKIP.TO. MENU' : 60TO 1050 2550 IF !$='l' OR I$='i' THEN Y$=' SKIP.TO. MENU' : 60TO 350 2560 'IF Is='J' OR I$='j' THEN 605UB 2630 : CHAIN 'END' ELSE 60TO 2170 2570 2580 PRINT CHR$(12) : LOCATE 13,35 : PRINT 'PLEASE NAIT' : RETURN 2590 LOCATE 12,23 : PRINT 'LOADIN6 REPORTS MODULE INTO MEMORY' s RETURN 2600 LOCATE 12,18 : PRINT 'LOADIN6 PARAMETERS & DATA MODULE INTO MEMORY' : Reil;RN 2610 LOCATE 12,23 : PRINT ' LOADING ANALYSIS MODULE INTO MEMORY' s RETURN 2620 LOCATE 12,20 : PRINT ' LOADING STEAM TABLES MODULE INTO MEMORY' : RETURN 2630 LOCATE 12,25 : PRINT ' LOADING END MODULE INTO MEMORY' : RETURN 2640 2650 CLS : LOCATE 11,16 2660 PRINT 'The printer option was not selected. Se'.eci the' 2670 PRINT TAB (16) ' printer option so that data sheets or reports can' 2680 PRINT TAB (16) 'be printed.' : F=23 2690 60SUB 980 : Y$=' SKIP.TO. MENU * : CLS : M=10 : O=19 : 60701050 2700 2710 CLS : KEY 2,'RUN'+CHR$(13) 2720 CLS : TI= 1 : 81=13 : LI: 1 : RI=80 2730 LOCATE TI,LI : PRINT CHR$(20ll : LOCATE TI,RI : PRINT CHR$(187) : LOCATE BI,RI : PRINT CHR$(188) 2740 LOCATE BI,LI : PRINT CHR$(2001 2750 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 2760 LOCATE BI,LI+1 : FOR II:1 TO RI-LI-! : PRINT CHR$(205); NEIT 2770 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$(.J6) : NEIT 2780 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 2790 2800 LOCATE 1,29 : PRINT
- CALCULATOR PROCEDURE 2810 LOCATE 2, 5 : PRINT 'You are in the calculator mode. When the proept, OK, appears:'
2820 LOCATE 3, 7 : PRINT '(a) Type *; : COLOR 0,7 : PRINT * ? '; : COLOR 7,0 : PRINT', then' 2830 LOCATE 4, 7 : PRINT '(b) Type the oathematical expression to be evaluated, and then*
2840 LOCATE 5, 7 : PRINT '(c) Press the '; : COLOR 0,7 : PRINT ' ';CHR$(17)+CHR$(196)+CHR$(217);' ';
2850 COLOR 7,0 : PRINT ' key.'
2860 LOCATE 6,5 : PRINT ' Teres in the expression will be evaluated in the order of their rant' 2870 LOCATE 7, 5 : PRINT 'in the hierarchy of cperatiens and fra lef t to right. The heirarchy is:'
2880 LOCATE 9, 7 : PRINT *(a) Inner parentheses,'
2890 LOCATE 9, 7 : PRINT *(b) Outer parentheses,'
2900 LOCATE 10, 7 : PRINT *(c) Exponentation, which is indicated by '; : COLOR 0,7 : PRINT * ^ '; : COLOR 7,0 2910 PRINT *,'
2920 LOCATE 11, 7 : PRINT '(d) Multiplication and division hich are indicated by '; COLOR 0,7 2930 PRINT ' + '; : COLOR 7,0 : PRINT ' and *; : COLOR 0,7 : PRINT * / '; : COLOR 7,0 : PRINT ", and' 2940 LOCATE 12, 7 : PRINT 'te) Addition and subtraction, which are indicated by '; : CCLOR 0,7 : PRINT * + ';
2950 COLOR 7,0 : PRINT
- and '; : COLOR 0,7 : PRINT * '; : COLOR 7,0 : PRINT '.'
2960 60TO 3020 2970 2980 CPEN ' CALC.STO' AS #1 LEN=8 : FIELD 01,1 AS CF$, 3 AS D$,1 AS OF$,1 AS PFf,1 AS PRF$,1 AS RFs 2990 LSET CFl= CALC. FLAG $ LSET D$= DOCKET $ : tSET DF$= DATA. FLAGS : LSET PF$= PRINT. FLAG $
3000 LSET PRF$= PARAMETER. FLAGS : LSET RF$=RESULTS. FLAGS : PUT ll : CLOSE 81 : RETURN 3010 3020 LOCATE 25,20 : CCLOR 7,0 : PRINT 'To return to TPDWR2, press the *; : COLOR 16,7 : PRINT
- F2 ';
3M0 COLOR 7,0 : PRINT
- tey.*; : LOCATE 15,1 3040 END.
1 C-6
N' l
l Y
APPENDIX D PRM& DATA. BAS
. - \ (
5-i n
= 4
\
e
( %
\ \
s '
}. .
'4 '9 m
L ..
APPENDIX Dr PRMSDATA. BAS TABLE OF CONTENTS Page Menu D- 1 Storage D- 2 Recall D- 3 Display D- 5 D-iii
APPENDII D PRM& DATA. BAS 10 anenseteeniese '
20 ** PRM& DATA. BAS et 30 ***He*** n et n e 40 50 nunun 60
- COMP.ON e 70 ** n****et 80 90 DEFDSL A-Z : COLOR 7,0 : CLS 100 110 REM Parameters 120 COMON CARRYOVER.A CARRYDVER.C, CARRY 0VER.C, CARRYOVER.D, LOSS. COEFFICIENT,NONREFLECT. AREA,PZR.!D 130 COMON RISE 2. NUMBER, RISER.00, CONDUCTIVITY,1NSULAT10N. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP.EFF,RC. PUMP.PWR,56.lD, DOCKET $
150 160 REM Data >
170 COMCN BOTTDM.BLOWO,CHARGIki. FLOW 0, CHAR 61NG. TEMPO,FEEDWATER.FLCWD,FEEhCER. TEMPO,LET00hN.FLOWD 180 COMON LETDOWN. TEMP O ,PZR. PRES O ,PIR. WATER. LEVEL 0, STEAM. PRES O ,T. AVE O ,T. COLD 0,ITIME U , TOP. BLOW O 190 COMON SS. WATER.LEVELO, DATA.SETSI,DDATES, PLANTS, UNIT $
200 '
210 REM Auxiliary Results '
220 CDMON A,B, BOTTOM. BLOW. DENSITY 0,CELTA. TIME, DRY. STEAM.ENTHALPY0,H,I, MOISTURE.ENTHALPYO,'.f,P,PSAT8 230 COMON PIR. DENSIT Y O ,PIR. ENTHALPY U ,S S. CROSS. SECT ION, T, TS AT,V,MI, NI,CATA. RAS $ ,DI AGNOSTIC.FLAS $
240 COMMON P ARAME TER. R A6 $ , PR I NT. RAG $ , RE SULT S. FL AS $ ,18, Y $ , Z $
250 260 IF DIAGNOSTIC.RA680'S' THEN 60TO 290 270 LPRINT TAB (12);' DIAGNOSTIC. FLAG 8='; DIAGNOSTIC.RAGl;'
I$=';I$;' (DATA, LINE 362)* i 290 290 IF Il='PRM& DATA 340' THEN 370 300 IF I$='PRM& DATA 740' THEN GOSUB 870 : 60SUB 1090 : ELSE IF Is='PRMLDATA 6270' THEN GOSUB 1060 310 IF I$='!NPUT DATA' OR I$s4.NALYSIS' OR I$=' HEAT BALANCE' OR I$=' DATA SET 2 PREP' THEN GOTO 1410 320 IF PARAMETER.FLA68='S' THEN CLS : GOTO 370 ELSE CLS : LOCATE 20,12 330 COLOR 0,7 : PRINT
- NOTE: Plant Paraseters are needed. First, select (A). ' : COLOR 7,0 : PRINT 340 350 360 en nese 370 iMEld*
380 H + +iiH f 390 400 GOSUB 700 : TI= 8 : BI:17 : LI= 6 : RI 76 410 LOCATE TI,t.I : PRINT CHR$(201) : LOCATE TI,RI : PRINT CHR$(1'37) : LOCATE BI,RI : PRINT CHR$083) 420 LOCATE BI,LI : PRINT CHR$(200) 430 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-t : PRINT CHR$(205); : NEIT 440 LOCATE BI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 450 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEIT 460 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 470 LOCATE 8,29 : PRINT
- PARAMETERS & DATA MENU * : LOCATE 11,10 : PRINT ' Plant Parameters:'; TAB (37);
480 PRINT ' Test Data:'; TAB (62);'0thee:' : LOCATE 13,13 : PRINT '(A) Enter'; TAB (37);'(C) Enter *; TAB (58);
490 PRINT '(E) Display * : LOCATE 14,13 : PRINT 'IB) Correct'; TAB (37);*(D) Correct'; TAB (58);*(F) MASTER MENU' 500 LOCATE 17,59 : PRINT * * : LOCATE 17,22 : INPUT
- Which would you like (A/B/C/D/E/F)? ',IS
, 510 520 CLS 530-D-1
)
APPEND!! D: PRM& DATA. BAS 540 IF Is='A' OR I$='a' THEN GOSUB 650 : CHAIN 'PRM' 550 IF I$='B' OR Is='b' THEN GOSUB 1440 60SUB 650 : Is='PRM 3840' : CHAIN 'PRM' 560 IF I$="C" OR I$='c' THEN 605UB 1440 : 60SUB 660 : I$=' DATA' : CHAIN ' DATA' 570 IF !$='D' OR I$='d' THEN 605UB 1440 : 60SUB 1690 : 60SUB 660 : !$=' DATA 1610' : CHAIN 'DAT.A*
580 IF I$='E' OR Is='e' THEN GOSUB 1440 : GOSUB 1690 : SOTO 2300 590 IF If='F' OR Is='f' THEN GOTO 3710 ELSE 370 600 610 620 ** MESSAGES n 630 640 CLS : LOCATE 13,20 : PRINT 'LCADINS INTRODUCTION MODULE INTO MEMORY' : RETURN 650 CLS : LOCATE 13,21 : PRINT ' LOADING PARAMETERS MODULE INTO MEMORY' : RETURN 660 CLS : LOCATE 13,24 : PRINT ' LOADING DATA MODULE INTO MEMORY' : RETURN 670 CLS : LOCATE 13,22 : PRINT ' LOADING ANALYSIS MODULE INTO MEMORY' : RETURN 680 CLS : LOCATE 13,23 : PRINT ' LOADING REPORTS MODULE INTO MEMORY' : RETURN 690 700 LOCATE 25,21 : PRINT 'Af ter responding, strike the "; : COLOR 16,7 : PRINT ' ';
CHR$( 17)+CHR$(196)+CHR$(217);' ';
710 COLOR 7,0 : PRINT ' key.' : RETURN 720 730 740 noennun 750 I CONTINUE
- 760 tuf f *** Hit 770 780 LOCATE 25,23.: PRINT ' To continue, press the '; : COLOR 16,7 : PRINT
- space bar *; : COLOR 7,0 790 PRINT *.';
800 Z$=INKEY$ : IF Z$ 0CHR$(32) THEN 800 ELSE CLS : RETURN 810 820 830 innuun 840
- STORAGE
- 850 neuenne 860 870 H PLANT PARAMETERS **
880 890 PARAMETER.FLAGt='S' 900 DPEN DOCKET $ AS 11 LEN=167 910 FIELD 81,32 AS Ps,1 AS U$,3 AS D$,2 AS L$,8 AS RPES,8 AS RPP$,8 AS S!$,8 AS RO$,8 AS RN$,8 AS CDA$,
8 AS COBS,8 AS C0CS,8 AS COD $,8 AS pit,8 AS RA$,8 AS LC$,8 AS NAS,9 AS IT$,8 AS C$,1 AS PFs,8 AS LPs 920 LSET P$ = PLANTS : LSET Us = UNIT $
930 LSET D$ = DOCKET $ : LSET PF$ = PARAMETER.FLAS$
940 LSET L$ = MKIs(LOOPSI) : LSET RPE8 = MKDs(RC. PUMP.EFF) 950 LSET S!$ = MKDs(SG.ID) : LSET RPPs = MKD$(RC. PUMP.PWR) 960 LSET RNs = MKD$(RISER. NUMBER) : L5ET RO$ = MKD$(RISER.00) 970 LSET C0A$ = MKDs(CARRYOVER.A) : LSET COB $ = MKD$(CARRYOVER.9) 980 LSET C0Cf = MKD$(CARRY 0VER.C) : LSET CODS = MKD$(CARRYOVER.0) 990 LSET RA$ = MKD$(REFLECT. AREA) : LSET LCS = MKD$(LOSS. COEFFICIENT) 1000 LSET NA8 = MKD$(N0NREFLECT. AREA) : LSET C$ = MKD$(CONDUCTIVITY) 1010 LSET ITs = MKD$(INSULATION. THICKNESS) : LSET Pts = MKD$(PIR.!D) 1020 LSET LP$ = MKD$(LIC. POWER) 1030 PUT 81,1 : CLOSE II : RETURN 1040 1050 D-2
APPENDl! 02 PRM& DATA.8AS 1060 ** TEST DATA u 1070
.1080 DATA.FLA68='S' 1090 DOCKET. STORED $ = DOCKET $
1100 1110 OPEN ' PLANT-ID.'+ DOCKET $ AS tl LEN=59
!!20 FIELD 01, 32 AS P$, 1 AS U$, 20 AS D$, 3 AS DS$, 1 AS OF$, 2 AS DTS$
1130 LSET P$ = PLANT $ LSET U$ = UNITS : LSET D$ = DDATES : LSET DS$ = 00Cr.ET. STORED $
1140 LSET DF8'= DATA. FLAG $ : LSET DTS$ = MKil(DATA.SETSI) : PUT 11,1 : CLOSE il 1150 1160 OPEN 'SS-DATA.'+ DOCKET $ AS 82 LEN=48 1170 FIELD 02, 8 AS S$, 8 AS WF$, 8 AS WTf, 8 AS T8$, 8 AS 998, 8 AS WL$
1180 1190 FOR TI 1 TO 2 : FOR LPI=1 TO LOOPSI 1200 1210 LSET SS = MKD$(STEAM. PRES (LPI,TII) : LSET TBS = MKD$(TOP. BLOW (LPI,TII) 1220 LSET WFs = MKD$(FEEDWATER.FLOWILPI,TII) : LSET BB$ = MKD$(BOTTOM. BLOW (LPI,TI))
1230 LSET WTs = MKD$(FEEDWATER. TEMP (LPI,TII) : LSET WLs = MKD$(S6. WATER. LEVEL (LPI,TI))
1240 1250 PUT 82, (TI-lieLCOPSI + LPI : NEIT LPI,TI :. CLOSE 82 1260 1270 OPEN '0C-DATA.'+ DOCKET $ AS 83 LEN=72 1290 FIELD #3,8 AS TS,8 AS LFS,8 AS Lis,8 AS CF$,8 AS CTf,8 AS PPs,8 AS FWs,8 AS TA$,8 AS TC$
1290 1300 FOR TI= 1 10 2 1310 LSET T$ = MKD$(TTIME(TI)) : LSET PPS = MKD$(PZR. PRES (TII) 1320 LSET LF8 = MKD$(LETDOWN.FLOWITII) : LSET PWs = MKD$(PIR. WATER. LEVEL (TII) 1330 LSET LT$ = MKD$(LETD0hN.TEMPITI)) : LSET TA$ = MKD$(T.AVEITII) 1340 LSET CF8 = MKD$(CHARGING. FLOW (IIII : LSET TC$ = MKD$(T.COLDITI))
1350 LSET CT8 = MKD$(CHAR 6!NG. TEMP (TI))
1360 1370 PUT II,TI : NEIT : CLOSE 13 : RETURN 1380 1390 1400 enane***e 1410
- RECALL e ,
1420 efeteneen 1430 1440 et PLANT PARAMETERS ++
1450 1460 IF PARAMETER.FLAS$='S' T14EN 60TO'1480 ELE 2230 1470 1480 OPEN 00CKETs AS 81 LEN=167 1490 FIELD 01,32 AS PS,1 AS U$,3 AS D$,2 AS Ls,8 AS RPEs,8 AS RPP$,8 AS S18,8 AS RO$,8 AS RN$,8 AS COAs, 6 AS COB $,8 AS CDC$,8 AS COD $,8 AS Pit,8 AS RAS,8 AS LC$,8 AS NA$,8 AS ITs,8 AS C$,1 AS PFf,8 AS LP8 1500 1510 GET II,1 1520 1530 PLANTS = Pt : RISER. NUMBER = CVDIRN$) : INSULATION. THICKNESS = CVD(IT$)
1540 UNIT $ = U$ : RISER.00 = CVD(R08) : CONDUCTIVITY = CVD(Cs) 1550 DOCKET $ = D$ : REFLECT. AREA = CVD(RA$) : PZR.!D = CVD(Pis) 1560 LOOPSI = CVI(L$) : NONREFLECT. AREA = CVD(NA$) : RC. PUMP.EFF. = CVD(RPE$)
1570 RC. PUMP.FWR = CVD(RPPs) : SG.ID = CVDIS!$1 : LOSS.00 EFFICIENT = CVD(LC$1 D-3
APPE* II D: PRM DATA. BAS 1580 PARAMETER. FLAG $ = PF8 : CARRYOVER.A = CVDIC0A$1 : CARRYOVER.B = CVDICOB8) 1590 CARRY 0VER.C = CVD(C0C$) : CARRYOVER.D = CVD(COD $) : LIC. POWER = CVD(LPS) 1600 1610 FOR 1I=32 TO 1 STEP -1 1620 IF MID$(PLANTS,II,1)()' ' THEN PLANT $=LEFT$(PLANT $,II) : GOTO 1650 1630 NEIT II 1640 1650 CLOSE il 1660 IF I$=' INPUT DATA' OR Is=' ANALYSIS' OR I$=' DATA SET 2 PREP" THEN 60TO 1690 ELSE RETURN 1670 1680 1690 ** TEST DATA **
1700 1710 OPEN ' PLANT-ID.'+ DOCKET $ AS t1 LEN=59 : FIELD #1, 32 AS PS, 1 AS UNS, 20 AS D$, 3 AS DS$, 1 AS DFS, 2 AS DTS$
1720 1730 6ET 01,1 : UNITS = UNS : DDATE$ = D$ : DOCKET. STORED $ = DS$ : DATA.FLA6s = DF$ : DATA.SETSI = CVI(DTS$)
1740 1750 FOR 1%=20 TO 1 STEP -1 1760 IF MID$(DDATES,II,1)(>'
- THEN DDATES=LEFT$(DDATES,II) : 60TO 1790 1770 NEIT II 1780 1790 CLOSE il 1800'.*
1810 FOR 11:19 TO 1 STEP -1 1820 IF MID$(DEATEt,II,1)()* ' THEN'DDATES=LEFT$(DDATE$,II) : 60TO 1850 1830 NEIT II 1840 1850 IF DATA.FLA68:'C' THEN 60TO 2190 1860 1870 OPEN 'SG-DATA.'+ DOCKET 8 AS 42 LEN=48 1880 FIELD 02, 8 AS S$, 8 AS WF8, 8 AS WT8, 8 AS tbs, 8 AS BB$, 8 AS WLs 1890 1900 FOR TI:1 TO 2 1910 FOR LPI:1 TO LOOPSI 1920 1930 6ET 82, (TI-1)
- LOOPSI + LPI 1940 STEAM.PPESILPI,TI) = CVD(S$) : FEEDWATER. FLOW (LPI,TI) = CVD(WFS) : TCP.BLOWILPI,TI) = CVD(TB8) 1950 S6. WATER. LEVEL (LPI,TI) = CVD(WLS) : FEEDWATER. TEMP (LPI,TI) = CVD(Wis) : BOTTOM. BLOW (LPI,TI) = CVD(BB$)
1960 1970 NEIT LPI 1980 NEIT TI 1990 2000 2010 CLOSE 62 2020 2030 OPEN 'OC-DATA.'+ DOCKET $ AS 43 LEN=72 2040 FIELD 63,8 AS is,8 AS LF$,8 AS LT$,8 AS CFS,8 AS CTS,8 AS PPs,8 AS PW8,8 AS TA$,8 AS TC$
2050 2060 FOR TI 1 TO 2 : GET 83, TI 2070 TTIME(TI) = CVD(TS) : CHARGINS. FLOW (TI) = CVD(CFS) : PZR. WATER. LEVEL (TI) = CVD(PW8) 2080 LETDOWN.FLOWITI) = CVD(LFS) : CHARGING. TEMP (TI) = CVD(CT$) : T.AVEITIl : CVDITAs) 2090 LETDOWN. TEMP (TI) = CVD(LT$) : PZR.PTtES(TZ1 = CVD(PPs) : T. COLD (TI) = CVD(TCs) 2100 2110 NEIT : CLOSE 13 D-4
APPENDl! D PRM& DATA. BAS 2120 2130 IF DATA. FLAG 8='S' THEN 2150 ELSE 2190 2140 2150 IF.Is=' ANALYSIS' THEN 60SUB 670 : CHAIN ' ANALYSIS' ELSE IF I$=' INPUT DATA' THEN 60SUB 680 : CHAIN ' REPORTS
- 2160 IF I$=' DATA SET 2 PREP' THEN 60SUB 660 : CHA!N ' DATA' 2170 RETURN 2190 2190 CLS : LOCATE 12,24 : PRINT ' Data Storage is eepty. Return to' 2200 PRINT TAB (24); ' Parameters & Data Menu, and select' 2210 PRINT TAB (24); ' Option (C).' : 60508 750 : CLOSE : GOTO 370 2220 2230 LOCATE 11,24 : PRINT 'Paraseter storage for Docket 50 '; DOCKET $
2240 PRINT TAB (24);.'is empty. Froe the Parameters & Data' 2250 PRINT TAB (24); ' Menu, select Option (A)."
2260 60SUB 750 : CLOSE : GOTO 370 2270 2290 2290 *** ue nen 2300
- DISPLAY
- 2310 ***********
2320 2330 2340 FOR TI=1 TO 2 2350 TTIMEs(TI)=RIGHis(STR$(TTIME(TI)+10000),4) : REM Numeric to literal 2360 NEIT TI 2370 2380 2390 u PARAMETERS **
2400 -
2410
- Identification
- 2420 2430 LOCATE 12,32 : PRINT ' HEAT BALANCE DATA' 2440 PRINT TAB ((80-ILEN(PLANT 8+ UNIT $)+1H /2); PLANT $;' '; UNIT $
2450 PRINT TAB (37);'50 *; DOCKET $ : PRINT 2460 PRINT TAB (28);' Licensed Power: ';LIC. POWER;'MWt' : 605UB 2970 2470 2480 2490
- Reactor Cooling Systee #
2500 2510 CLS : COLOR 7,0 : LI=3 : BI:6 : CI=71 2520 LOCATE LI- 1,24 : PRINT ' REACTOR C00 LINS SYSTEM PARAMETERL' 2530 LOCATE LI+ 2,BI-2 : PRINT ' Piping and Components' 2540 LOCATE LI+ 4,81 : PRINT ' Number of reactor cooling loops '
2550 LOCATE LI+ 5,91 : PRINT.* Pressurizer internal diaseter (inches)
- 2560 LOCATE LZ+ 6,91 : PRINT ' Power input for each reactor coolant puep (MW)
- 2570 LOCATE LI+ 7,91 : PRINT *Effici u cy of reactor coolant pumps (1)
- 2580 LOCATE LI+ 9,81-2 : PRINT 'Refl:.tive Thermal Insulation
- 2590 LOCATE LI+11,BI : PRINT *1 %:de surface area (square feet) '
2600 LOCATE LI+12,BI : PRINT ' Heat loss coefficient (BTUs/ hour / square foot)
- 2610 LOCATE LI+14,BI-2 : PRINT ' Nonreflective Thermal Insulation
- 2620 LOCATE LI+16,BI : PRINT 'Inside surface area (square feet) '
2630 LOCATE LI+17,BI : PRINT ' Thickness (inches) '
2640 LOCATE LI+18,6% : PRINT ' Thermal condurtivity (BTUs/ hour / foot /F)
- 2650 LOCATE LI+ 4,CI+1 : PRINT USINS 'l*; LOCPSI D-5
APPEO!I Da PRMDATA.nS 2660 LOCATE LI+ 5,CI-1 : PRINT USING 't#4.I'; PZR.10 2670 LOCATE LI+ 6,CI : PRINT USING 'It.it'; RC. PUMP.PNR 2680 LOCATE LI+ 7,CI : PRINT USING '80.I'; RC. PUMP.EFF 2690 LOCATE LI+11,CI-2 : PRINT USING 'Ittil'; REFLECT. AREA 2700 LOCATE LI+12,CI : PRINT USING 'ltt.t'; LOSS. COEFFICIENT 2710 LOCATE LI+16,CI-2 : PRINT USING 'llett'; NONREFLECT. AREA 2720 LOCATE LI+17,CI+1 : PRINT USING '94.t'; INSULATION. THICKNESS 2730 LOCATE LI+18,CI+2 : PRINT USING.'t.til'; CONDUCTIVITY : 60SUB 2970 2740 2750 2760
- Steas Generators +
2770 2780 CLS : COLOR 7,0 : NI=-2 : IF LOOPSI:4 THEN LI=4 ELSE IF LOOPSI=3 THEN LI:5 ELSE LI=6 2790 LOCATE LI+ 1,27 : PRINT ' STEAM GENERATOR PARAMETERS' 2800 LOCATE LI+ 4,BI : PRINT 'Steas done inside diameter (inches) '
2810 LOCATE LI+ 6,BI : PRINT ' Number of swirl vane risers '
2820 LOCATE LI+ 7,BI : PRINT 'Dutside diameter of swirl vane risers (inches)
- 2830 LOCATE LI+ 9,81 : PRINT ' Measured or warranted acisture carry-over (1):'
2940 LOCATE LI+11,BI+NI+4 : PRINT 'Steaa Generatcr A '
2850 LOCATE LI+12,BI+NI+4 : PRINT 'Steaa 6enerater 8 ' : IF LOOPSI=3 DR LOOPSI:4 THEN 2960 ELSE 2880 2860 LOCATE LI+13,BI+NI+4 : PRINT 'Steaa Benerator C ' : IF LOOPSI=4 THEN 2870 ELSE 2980 2870 LOCATE LI+14,BI+NI+4 : PRINT 'Steaa Generator D '
2580 CI:70 .
2890 LOCATE LI+ 4,C1-1 : PRINT USINS '448.4'; S6.10 2900 LOCATE LI+ 7,CI : PRINT USING 'll.I'; RISER.00 2910 LOCATE LI+ 6,CI : PRINT USING 'It'; RISER. NUMBER 2920 LOCATE LI+11,CI+1 : PRINT USING 't.itt'; CARRY 0VER.A 2930 LOCATE LI+12,'.I+1 : PRINT USING 't.itt'; CARRYOVER.B : IF LOOPSI=3 OR LOOPSI=4 THEN 2940 ELSE 2960 2940 LOCATE LI+13,LI+1 : PRINT USINS 't.tti'; CARRYOVER.C : IF LOOPSI:4 THEN 2950 ELSE 2960 2950 LOCATE LI+14,t.I+1 : PRINT USING 't.itt'; CARRYOVER.D 2960 GOSUB 2970 : SLTD 3000
~
2970 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT
- To continue, press the ';
2980 COLOR 16,7 : PRINT
- spa:e bar '; : COLOR 7,0 : PRINT '.';
2990 Z$=INKEY$ : IF Z8 0CHR$(32) THEN 2990 ELSE RETURN -
3000 3010 3020 ** DATA **
3030 3040 FOR TI=1 TO DATA.SETSI : CLS 3050 3C60 LOCATE 1,2 : FOR 11=2 TO 78 : PRINT CHR$(196); : hEIT 3070 LOCATE 3,2 : FOR II:2 TO 78 : PRINT CHR$(196); : NEIT 30E0 LOCATE 5,2 : FOR II 2 TO 78 : PRINT CHR$(196); : NEIT 3090' LOCATE 14,2 : FOR 11=2 TO 78 : PRINT CHR$t196); : NEIT 3100 LOCATE 19,2 : FOR 11=2 TD 78 : PRINT CHR$(196); : NEIT 3110 LOCATE 24,2 : FOR II=2 TD 78 : PRINT CHR$(196); : NEIT 3120 FOR 112 2 TO 23 : LOCATE II, 1 : PRINT CHR$(179) : NEXT : LOCATE 4,40 : PRINT CHR$(179) 3130 FOR 11:15 TO 23 : LOCATE 11,40 : PRINT CHR$(179) : NEIT 3140 FOR II= 2 TO 23 : LOCATE 11,79 : PRINT CHR$(179);: NEXT 3150 . LOCATE 1, I : PRINT CHR$(218);: LOCATE 1,79 : PRINT CHR$(191);
3160 LOCATE 3,- 1 : PRINT CHR$1195); LOCATE 3,79 : PRINT CHR$(IB0);
3170 LOCATE 5, I : PRINT CHR$(195);: LOCATE 5,79 : PRINT CHR$(180);
3180 LOCATE 14,1 : PRINT CHR$(1951;: LOCATE 14,79 : PRINT CHR$(180);
3190 LOCATE 19, I : PRINT CHR$(195);: L0CATE 19,79 : PRINT CHR$(180);
D-6
APPE3 11 D: PRM& DATA. BAS 3200 LOCATE 3,40 : PRINT CHR$(194); : LOCATE 5,40 : PRINT CHR$(193);
3210 LOCATE 14,40 : PRINT CHR$(194); LOCATE 19,40 : PRINT CHR$(197);
3220 LOCATE 24,40 : PRINT CHR$(193);
3230 LOCATE 24, 1 : PRINT CHR$(192); LOCATE 24,79 : PRINT CHR$(217); : LOCATE 1,1 3240 COLOR 7,0 : 81=5 3250 3260 LOCATE 1,65 : PRINT
- Set';TI;'of'; DATA.SETSI 3270 LOCATE 2,36 : PRINT ' TEST DATA' 3280 LOCATE 4, 8 : PRINT 'Date: ?; : LOCATE 4,15 : PRINT USING '\ \'; DDATE$
3290 LOCATE 4,50 : PRINT ' Time (hhes): '; : LOCATE 4,64 : PRINT TTIMEt(TI) 3300 LOCATE 6, 3 : PRINT 'Steae Generators:'
3310 LOCATE 8, 5 : PRINT 'Steas pressure (psial' 3320 LOCATE 9, 5 : PRINT 'Feedwater flow (eillions of Ib/hrl" 3330 LOCATE 10, 5 : PRINT 'Feedwater temperature (';CHR$(248);'Fl' 3340 LOCATE 11, 5 : PRINT ' Surface blowdown (gpol' 3350 LOCATE 12, 5 : PRINT 'Batton blowdown (gpal' 3360 LOCATE 13, 5 : PR!NT ' Water level (inches)"
3370 LOCATE 15, 3 : PRINT ' Letdown Line:'
3380 LOCATE 17, 5 : PRINT ' Flow (gpol' 3390 LOCATE 18, 5 : PRINT ' Temperature (*;CHR$(248);'FI' 3400 LOCATE 20, 3 : PRINT 'Fressurizer:'
3410 LOCATE 22, 5 : PRINT ' Pressure (psia)"
3420 LOCATE 23, 5 : PRINT ' Water Level (inchesi' 3430 LOCATE 15,42 : PRINT ' Charging Line:'
3440 LOCATE 17,44 : PRINT ' Flow (gpal' 3450 LOCATE 18,44 : PRINT 'Teeperature (';CHR$(248);'Fl*
3460 LOCATE 20,42 : PRINT ' Reactor:'
3470 LOCATE 22,44 : PRINT 'T ave l';CHR$(248);'F)'
3480 LOCATE 23,44 : PRINT 'T cold (*;CHR$(248);'F)*
3490 FOR LPI=1 TO LOOPSI : IF LPI=1 THEN S$='A' ELSE IF LPI:2 THEN St='B' ELSE IF LPI:3 THEN St='C' ELSE St='D' 3500 3510 IF LOOPSI=2 THEN CI=52 ELSE IF LOOPSI=3 THEN CI=42 ELSE IF LOOPSI:4 THEN CI=32 3520 DI=CI+10*LPI 3530 3540 LOCATE 6,DI+2 : PJINT S$
3550 LOCATE 8,DI-1 : PRINT USING 'llit.I'; STEAM. PRES (LPI,II) 3560 LCCATE 9,01 : PRINT USING 't.lil';FEEDWATER.FLOWILPI,TI) 3570 LOCATE 10,01 : PRINT USING 'llt.l*;FEEDWATER. TEMP (LPI,TI) 3580 LOCATE 11,DI : PRINT USING ' lit.l*; TOP. BLOW (LPI,TI) 3590 LOCATE 12,DI : PRINT USING ' lit.I'; BOTTOM. BLOW (LPI,TI) 3600 LOCATE 13,DI : PRINT USING ' lit.l*;SG. WATER. LEVEL (LPI,TI) : NEIT 3610 LOCATE 17,33 : PRINT USING 'llt.I'; LETDOWN. FLOW (TI) 3620 LOCATE !3,33 : PRINT USING ' lit.I'; LETDOWN. TEMP (TI) 3630 LOCATE 22,32 : PRINT USING 'llit.I';PIR. PRES (III 3640 LOCATE 23,33 : PRINT USING ' lit.l';PZR. WATER. LEVEL (TI) 3650 LOCATE 17,72 : PRINT USING ' lit.I'; CHARGING.FLOWITI) 3660 LOCATE 18,72 : PRINT USING 'llt.I'; CHARGING. TEMP (TI) 3670 LOCATE 22,72 : PRINT USING ' lit.l';T.AVEITI) 3600 LOCATE 23,72 : PRINT USING 'llt.l*;T. COLD (TI) : GCSUB 2970 : CLS : NEIT TI 3690 CLS : GOTO 370 3700 3710 Il=' INTRO 1920' : GOSUB 600 : CHAIN ' INTR 0' 3720 3730 END D-7
APPENDIX E PRM. BAS
J l APPENDIX Et PRM. BAS
- - l TABLE OF CONTENTS Page ;
t MENU E- 1 INPUT E- 2 l Plant Identification E- 2 [
Reactor Cooling Systen E 3, i Steam Generators E- 4 .l Docket Check E- 6 [
1 i
4 CORRECTIONS E- 6 i r
I f Plant Identification E- 6 l Reactor Cooling Systen E- 7 l 2 Steam Generators E-10 l HELP MESSAGES E-11 .!
I DISPLAYS E-15 !
i f
4
?
?
[
i t
E t
f t
+
l i
E-iit ;
I I'
APPEND!! Es PRM. BAS 10 ***********
20 ~ ** PRM. BAS **
30 m*mme 40 50 ** m e m
- 60
- COMON
- 70 90 90 DEFDBL A-Z : COLOR 7,0 : CLS 100 110 REM Parameters 120 COMMON CARRYOVER.A. CARRYOVER.9, CARRY 0VER.C. CARRYOVER.D. LOSS. COEFFICIENT,NONREFLECT.ARFA,PIR.ID 130 COMON RISER. NUMBER, RISER.00, CONDUCTIVITY,1NSULATION. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP.EFF,RC. PUMP.PWR,SS.!D, DOCKETS 150 160 REM Data 170 COMON BuiiDM. BLOW ( ) , CHARBING. FLOW () , CHAR 5 t he. TEnP () , FEED uATER. FL0u l l ,FEEDW A TER. TEnP () ,LETOCuh. FLCu t i 180 COMON LETDOWN. TEMP I) ,PZR. PRES () , PZR. WATER. LEVEL () , STEAM. PRES (1,T. AVE ll ,T. COLD () , TT IME () , TCP. BLOW I) 190 COMON SS. WATER.LEVELI), DATA.SETSI,DDATES, PLANT $, UNITS 200 210 REM Auxiliary Results 220 COMCN A , B , BOTTDM. BLO W. D ENS I TY () , DELT A. T I ME , DRY. S T E AM. ENTHALP Y ( ) , H ,1, MO I S TURE. ENTHALP Y () , N , P , PS Ai t 230 COMON PZR. DENSITY (),PZR.ENTHALPY(),C6. CROSS.SECTION,T,TSAT,V,MI,NI,CATA. FLAG $,DIAGNOSi!C. FLAG 8 240 COMON PARAMETER. FLAG $, PRINT. FLAG $,RESULTS. FLAG $,Is,Y$,ll 250 260 270 e m ****
290
- MENU
- 290 ********
300 310 IF II:'PRM 3840' THEN 3060 320 IF PARAf!ETER.FLAS$='S' THEN 340 ELSE 560 330 340 605UB 7710 : TI= 7 : BI:18 : L1= 15 : RI:66 350 LOCATE TI,LI : PRINT CHR$(201) : LOCATE TI,RI : PRINT CHR$(187) : LOCATE BI,RI : PRINT CHR$(188) 360 LOCATE BI,LI : PRINT CHR$(200) 370 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); e NEIT 380 LOCATE BI,LI+1 : FOR II:1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 390 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEIT 400 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 410 LOCATE 9,20 : PRINT ' Plant parameters for 50 '; DOCKET 8;' are stored on' 420 LOCATE 10,20 : PRINT 'the diskette. You can:'
430 LOCATE 12,22 : PRINT *(A) Enter a new value for each paraseter,'
440 LOCATE 14,22 : PRINT *(B) Correct selected paraseters, or' 450 LOCATE 16,22 : PRINT *(C) Return to the previous senu.'
460 LOCATE 18,55 : PRINT ' ' : LOCATE 18,24 : INPUT ' Which would you like (A/B/C)? ',1$
470 480 IF I$2'A' OR If="a' THEN CLS : 60TO 560 ELSE IF Isz'B' CR II:'b' THEN 3060 490 ~IF I$='C' OR !$='c' THEN CLS : II:'PRM1 DATA 340' CHAIN 'PRM1 DATA' ELSE CLS : GOTO 340 500 510 5
E-1
I APPECII Es PRN. BAS 520 *********
530
- INPUT e -
540 e********
550 -'
560 805U8 7710 : LOCATE 11,22 : PRINT 'This progras runs for units designed' 570 PRINT TA8(22); 'by Nestinghouse. Nas Nestinghouse the' 580 PRINT TA8(22): INPUT 'auclear steae systes supplier (Y/N)? ',I$
590 600 IF I$='N' OR I$='n' THEN 640 ELSE IF I$='Y' OR I$='y' THEN 730 610 LOCATE 16,15 : COLOR 0,7 : PRINT ' Please! Type Y or N, either upper or lower case. *; COLOR 7,C 620 60TD 560 630 640 LOCATE 16,15 : PRINT SPC(60) : LOCATE 25,20 : PRINT SPC(55) 650 60SUB 7490 : LOCATE 16,22 : PRINT 'For information on the availability of' 660 PRINT TA8(22);
- programs for other units, call the' 670 PRINT TA8(22); ' Engineering and Generic Consunications' 600 PRINT TAB (22);
- Branch in the Gifice of Inspection and' 690 PRINT TA8(22); ' Enforcement.' : GOSUB 7520 : CLS : LOCATE 13,22 700 PRINT ' LOADING INTRODUCTION N0DULE INTO NENORY' I$=' INTRO 1920' : CHA!N ' INTR 0' 710 '
720 730 ** PLANT IDENTIFICATION et 740 750 HELP.FLA68:'C' 760 KEY 4,'B'+CHR$(131 770 CLS : LOCATE 25, 6 : PRINT ' Press *; : COLOR 0,7 : PRINT '-F4 '; i COLOR 7,0 780 PRINT ' for help -or- Key in the name or nueber, and press '; : COLOR 16,7 790 PRINT * ';CHR$(17)+CHR$(1961+CHR$(217);' ';
800 COLOR 7,0 : PRINT *.'
810 B20 LOCATE 8,30 : PRINT ' Plant identification' 830 LOCATE 11,18 : PRINT ' Plant Name:' : LOCATE 13,18 : PRINT ' Unit Number:' s LOCATE 15,18 840 . PRINT ' Licensed Power (MWt):'
850 LOCATE 17,18 : PRINT ' Number of Reactor Cooling Loops (2/3/4):'
060 COLOR 0,7 : LOCATE !!,30 : PRINT SPC(32) : LOCATE 13,31 : PRINT * * : LOCATE 15,40 : PRINT *
- 870 LOCATE 17,59 : PRINT ' ' : COLOR 7,0 880 890 IF IS=' PLANT 8' THEN HELP. FLAG $='C' 900 LOCATE 11,30 : IF HELP. FLAG $='S' THEN 920 910 INPUT ", PLANT $ IF PLANT 8:'B' THEN HELP. FLAB $='S' : Is=' PLANT $' : 60TO 1140 920 LOCATE 11,30 : PRINT USING '\ \'; PLANT $
930 940 IF !$3' UNITS
- THEN HELP. FLAG $='C' 950 LOCATE 13,31 : IF HELP. FLAG 8='S' THEN 970 960 INPUT ", UNITS : IF UNITS ='B' THEN HELP.FLA65='S' : I$=' UNIT $' : GOTO 1140 970 LOCATE 13,31 : PRINT USING *\ \'; UNITS 980 990 KEY 4,'-9'+CHR$(13) 1000 IF Il='LIC. POWER
- THEN HELP.FLA68='C' 1010 LOCATE 15,40 : IF HELP.FLAS$='S' THEN 1030 1020 INPUT ", LIC. POWER : IF LIC. POWER =-9 THEN HELP. FLAG $='S' : I$='LIC. POWER' : GOTO 1140 1030 LOCATE 15,40 : PRINT USING 'till';LIC. POWER 1040 E-2
APPENDII E: PRM. BAS 1050 IF I$='LOOPSI' THEN HELP.FLA68='C' 1060 LOCATE 17,59 : IF HELP. RAGS ='S' THEN 1100 1070 thPUT ", LOOPSI : LOCATE 17,51 : PRINT '2/3/4' 1000 IF LOOPSI=-9 THEN HELP.FLA6$='S' : I$='L00 PSI' : GOTO 1140 1090 IF LOOPSIO2 AND LOOPSIO3 AND LOOPS 104 THEN COLOR 23,0 : LOCATE 17,51 : PRINT '2/3/4' : COLOR 7,0 :
60TO 1050 1100 LOCATE 17,58 : PR!NT LOOPSI : 60SUB 7490
!!!0 1120 Z$=!NKEY$ : IF Z80CHR$(32) THEli 1120 ELSE 1170 1130 1140 60SUB 7480 : GOSUB 5760 : 60SUB 7520 : 60TO 770 1150 1160 1170 ** REACTOR COOLING SYSTEM **
1180 1190 COLOR 7,0 : KEY OFF : KEY 4,'-9'+CHR$(13) : KEY 6,'-l'+CHR$(13) 1200 CLS : LOCATF. 25,2 : PRINT ' Press '; COLui. 0,7 : FRINT ' F4 '; : COLOR 7,0 : PRINT
- for help, ';
1210 COLOR 0,7 : PRINT ' F6 '; : COLOR 7,0 : PRINT
- for default value, or key in value and press *;
1220 COLOR 16,7 : PRINT * ';CHR$(17)+CHR$(196)+CHR$(217);' ';
1230 Ci$=' Default' : C2$=" Actual' : 605U9 7840 1240 D.PZR.10 = 6.01203+LIC. POWER ^(1/3) 1250 D.RC. PUMP.PWR = .0062152+LIC. POWER /LOOPSI 1260 D.RC. PUMP.EFF = 90!
1270 D. REFLECT. AREA = (19.34+32.18tL00 PSI ^(1/31)*LIC. POWER ^(2/3) 1280 D. LOSS. COEFFICIENT = 55!
1290 D.NONREFLECT. AREA = 32.18+ LOOPS 1^(1/3)*LIC. POWER ^(2/3) 1300 D.!NSULATION. THICKNESS = 4!
1310 D. CONDUCTIVITY = .035 1320 LOCATE LI+ 5,C1-1 : PRINT USING 'llt.I'; D.PIR.ID 1330 LOCATE L1+ 6,CI : PRINT USING 'It.ll'; D.RC. PUMP.PWR 1340 LGCATE L1+ 7,C1 : PRINT USING '94.8'; D.RC. PUMP.EFF 1350 LOCATE L1+11,CI-2 : PRINT USING *Ittil'; D.RERECT. AREA 1360 LOCATE LI+12,CI : PRINT USING '844.4'; D. LOSS. COEFFICIENT 1370 LOCATE LI+16,CI-2 : PRINT USING 'tillt'; D.NGNREFLECT. AREA 1380 LOCATE LZ+17,CI+1 : PRINT USING '80.I'; D. INSULATION. THICKNESS 1390 LOCATE Lit 18,CI+2 : PRINT USING 't.ilt'; D. CONDUCTIVITY : GCSUB 7990 1400 1410 1420 IF If='PZR.!D' THEN HELP. RAS $='C' 1430 LOCATE L1+ 5,C1+11 : IF HELP. RAS $='S' THEN 1470 1440 INPUT ", PZR.!D 1450 IF PIR.!D=-9 THEN HELP. RAS $='S' : If='PZR.!D' : GOSUB 7480 : GOSUB 6340 : 60SUB 7520 : 60TO 1190 1460 IF PZR.!D=-1 THEN PZR.ID=0.PZR.!D 1470 LOCATE LZ+ 5,CI+11 : PRINT USINS 'lll.I'; PZR.!D 1480 1490 IF I$='RC. PUMP.PWR' THEN HELP.RA68='C' 1500 LOCATE LI+ 6,CI+12 : IF HELP.FLA6$='S' THEN 1540 1510 INPUT ", RC. PUMP.PWR 1520 IF RC. PUMP.PWR=-9 THEN HELP. RAS $='S' : If='RC. PUMP.PWR' : 60SUB 7470 : 60SUB 6450 : 6OSUB 7520 : 60TO 1190 1530 IF RC. PUMP.PWR=-1 THEN RC. PUMP.PWR=D.RC. PUMP.PWR 1540 LOCATE L1+ 6,CI+12 : PRINT USING '80.00'; RC. PUMP.PWR 1550 1560 IF I$='RC. PUMP.EFF' THEN HELP.FLA68='C' 1570 LOCATE L1+ 7,CI+12 : IF HELP.FLA68='S' THEN 1610 E-3 t
APPENDII E PRM. BAS 1580 INPUT ", RC. PUMP.EFF 1590 IF RC. PUMP.EFF=-9 THEN HELP.RA6$='S' : I$='RC. PUMP.EFF' : 60SUB 7470 : 60SUB 6450 : GOSUB 7520 : 60TO 1190 1600 IF RC. PUMP.EFF=-1 THEN RC. PUMP.EFF=D.RC. PUMP.EFF 1610 LOCATE LI+ 7,CI+12 : PRINT USIN6 '60.I'; RC. PUMP.EFF 1620 1630 IF I$='RERECT. AREA' THEN HELP.FLA68='C' 1640 LOCATE LI+11,CI+ 9 : IF HELP. FLAGS ='S' THEN 1680 1650 INPUT ", RERECT. AREA 1660 IF REFLECT. AREA =-9 THEN HELP.RA6$='S' : I$=' REFLECT. AREA' : GOSUB 7460 : GOSUB 6610 : GOSUB 7520 : 60TO 1190 1670 IF REFLECT. AREA =-1 THEN RERECT. AREA =D.RERECT. AREA 1680 LOCATE LI+11,CI+ 9 : PRINT USING '84940'; RERECT. AREA 1690 1700 IF I$=' LOSS.C0 EFFICIENT
- THEN HELP.FLA6$='C' 1710 LOCATE LI+12,CI+11 : IF HELP.FLA68:*S' THEN 1750 1720 INPUT ", LOSS.C0 EFFICIENT 1730 IF LOSS. COEFFICIENT =-9 THEN HELP. RAG $='S' : I$=' LOSS. COEFFICIENT' : 60SUB 7480 : 605UB 6800 : 60SUB 7520
- 60TO 1190 1740 IF LOSS. COEFFICIENT =-1 THEN LOSS. COEFFICIENT =0. LOSS. COEFFICIENT 1750 LOCATE LI+12,CI+11 : PRINT USING ' lit.L'; LOSS. COEFFICIENT 1760 1770 IF If='NONRERECT. AREA' THEN HELP. FLAG $3*C' 1780 LOCATE LI+16,CI+ 9 : IF HELP. RAG $2'S' THEN 1820 1790 INPUT ", NONREFLECT. AREA 1800 IF NONREFLECT. AREA =-9 THEN HELP. RAG $='S' !$='NONREFLECT. AREA * : GOSUB 7460 : 605UB 6860 : GOSUB 7520 :
GOTO 1190 1810 IF NONRERECT. AREA =-1 THEN NONREFLECT. AREA =0.NONREFLECT. AREA 1820 LOCATE LI+16,CI+ 9 : PRINT USING '44664'; NONREFLECT. AREA 1830 1840 IF Is=' INSULATION. THICKNESS' THEN HELP. FLAG $='C' 1850 LOCATE LI+17,CI+12 : IF HELP. FLAG $='S' THEN GOTO 1890 1260 INPUT ", INSULATION. THICKNESS 1870 IF INSULATION. THICKNESS =-9 THEN HELP.FLA5$='S' : If=' INSULATION. THICKNESS' : GOSUB 7480 : 605UB 7050 :
605UB 7520 : 60TO 1190 1880 IF INSULATION. THICKNESS =-! THEN INSULATICN. THICKNESS =D. INSULATION. THICKNESS ,
1890 LOCATE LI+17,CI+12 : PRINT USING 'll.l'; INSULATION. THICKNESS 1900 1910 IF I$='CONDUCTIV11Y' THEN HELP.FLAS$='C' 1920 LOCATE LI+18,CI+13 : IF HELP. FLAG $='S' THEN 60TO 1960 1930 LOCATE LI+18,CI+13 : INPUT ", CONDUCTIVITY 1940 IF CONDUCTIVITY =-9 THEN HELP. FLAG $='S' : If=' CONDUCTIVITY' : GOSUB 7460 : 605U9 7100 : GOSUB 7520 : 63TO 1190
'1950 IF CONDUCTIVITY =-1 THEN CONDUCTIVITY =D.CCNDUCTIVITY 1960 LOCATE LI+18,CI+12 : PRINT USING 'll.Ill'; CCNDUCTIVITY : LOCATE 25,1 : PRINT SPC(79); GOSUB 74TO 1970 6070 2020 1980 1990 605UB 7400 : 605UB 5910 : 60508 7520 : 60TO 1190 2000 2010 Z$=lNKEY$ : IF Z$ OCHRs(32) THEN 2010 ELSE !!90 2020 Z$21NKEY$ : IF If 0CHR$(32) THEN 2020 ELSE 2050 2030 2040 2050 ++ STEAM GENERATORS ++
2060 2070 COLOR 7,0 : KEY OFF : KEY 4,*-9'+CHR$(13) : KEY 6,'-l'+CHR$(13) 2080 CLS : LOLATE 25,2 : PRINT ' Press '; : COLOR 0,7 : FRINT ' F4 '; COLOR 7,0 : PRINT ' for help, ';
E-4
APPEND!! E: PRM. BAS 2090 COLOR 0,7 : PRINT
- F6 '; : COLOR 7,0 : PRINT
- for default value, or key in value and press *;
2100 COLOR 0,7 : PRINT ' *;CHR$11714CHR$(196)+CHR$(217);* ';
2110 COLOR 7,0 : PRINT ".'
2120 60SUB BOB 0 2130 LOCATE L1+12,91+2 : PRINT 'Steae Generator B * : IF LOOPSI=3 OR LOOPSI:4 THEN 2140 ELSE 2160 2140 LOCATE LI+13,BI+2 : PRINT 'Steas Generator C ' : IF LOOPSI 4 THEN 2150 ELSE 2160 2150 LOCATE L1+14,Bl+2 : PRINT 'Steae 6enerator D
- 2160 D.56.1D = 13.7089+(LIC. POWER /LOOPSIl^tt/3) 2170 D. RISER.0D = 2.0036+(LIC. POWER /LOOPSil^(1/3) 2100 D. CARRYOVER. A = .125 : D. CARRYOVER.C = .125 : D. CARRYOVER d = .125 : 0. CARRYOVER.D = .125 2190 0. RISER. NUMBER = 12! : C1=59 2200 LOCATE L1+ 4,CI-l : PRINT USING ' lit.I'; D.56.!D 2210 LOCATE LI+ 7,CI : PRINT USIN6 '88.l'; D. RISER.00 2220 LOCATE LI+ 6,CI : PRINT USING 'll'; D. RISER. NUMBER ,
2230 LOCATE L1+11,CI+1 : PRINT USING 't.lil'; D. CARRY 0VER.A
, 2240 LOCATE L1+12,C1+1 : PRINT USING 't.lli'; D. CARRY 0VER.B : IF LOOPSI=3 OR LOOPSI=4 THEN 2250 ELSE 2270 2250 LOCATE LI+13,C1+1 : PRINT USIN6 't.004'; D. CARRYOVER.C : IF LOOPSI:4 THEN 2260 ELSE 2270 2260 LOCATE L1+14,C1+1 : PRINT USING 't.040'; D. CARRYOVER.D 2270 LOCATE L1+ 4,C1+10 : COLOR 0,7 : PRINT * .
- 2200 LOCATE L1+ 6,CI+11 : PRINT * "
2290 LOCATE LI+ 7,CI+11 : PRINT ' .
- 2300 LOCATE L1+11,C1+12 : PRINT * .
2310 LOCATE L1+12,C1+12 : PRINT * . *: IF LOOPSl=3 UR LOOPSI=4 THEN 2320 ELSE COLOR 7,0 : GOTO 2340
, 2320 LOCATE L1+13,CI+12 : PRINT ' . *: IF LOOPSI=4 THEN 2330 ELSE COLOR 7,0 : 60TO 2340 2330 LOCATE L1+14,C1+12 : PRINT * . * : COLOR 7,0 2340 2350 IF I$='S6.10' THEN HELP.FLA6$='C' 2360 LOCATE L1+ 4,C1+10 : IF HELP.FLA68='S' THEN 2400 2370 INPUT ", 56.!D 2380 IF S6.!D=-9 THEN HELP.FLA68='S' : If='SS.!D' : GOSUB 7480 : 605UB 7160 : 6OSUB 2860 : GOTO 2070 2390 IF S6.1D=-1 THEN SS.!D=D.S6.lO 2400 LOCATE LI+ 4,C1+10 : PRINT USIN3 ' lit.I'; $6.10 2410 2420 IF Is=' RISER.NUMSER* THEN HELP.FLAS$='C' 2430 LOCATE L1+ 6,C1+11 : IF HELP.FLA68='S' THEN 2470 2440 INPUT ", RISER. NUMBER 2450 IF RISER. NUMBER =-9 THEN HELP.FLA68='S' : Is=' RISER. NUMBER' : 60SUB 7480 : 60SUB 7260 :605UB 2860 : 60TO 2070 2460 IF RISER. NUMBER =-1 THEN RISER. NUMBER =D. RISER. NUMBER 2470 LOCATE L1+ 6,C1+11 : PRINT USING 'll'; RISER. NUMBER 2490 2490 IF !$=' RISER.00' THEN HELP.FLA6t='C' 2500 LOCATE LI+ 7,CI+11 : IF HELP.FLA68='S' THEN 2540 2510 INPUT ", RISER.00 2520 IF RISER.0D=-9 THEN HELP.FLA68='S' : I$=' RISER.0D' : GOSUB 7480 : 603UB 7260 : GOSUB 2260 : 60TO 2070 2530 IF RISER.0D=-1 THEN R!SER.0D=0. RISER.00 2540 LOCATE L1+ 7,C1+10 : PRINT USING ' lit.I'; RISER.00 2550 2560 IF I$=' CARRYOVER.A' THEN HELP.FLA6t='C' 2570 LOCATE L1+11,CI+12 : IF HELP.FLA68='S' THEN 2610 2580 INPUT ", CARRYOVER. A 2590 IF CARRYOVER.A=-9 THEN HELP.FL.1t='S' : Il=' CARRYOVER.A' : GOSUB 7480 : GOSUB 7360 60SUB 2860 : GOTO 2070 2600 IF CARRYOVER.A=-1 THEN CARRYOVER.A=0. CARRYOVER.A 2610 LOCATE LI+11,CI+12 : PRINT USING 't.lli'; CARRYOVER.A 2620 E-5
APPE511 Et PRM. BAS 2630 IF I$=' CARRY 0VER.B' THEN HELP.RA68='C'
. 2640 LOCATE L1+12,C1+12 : IF HELP. RAG $='S' THEN 2680 2650 INPUT ", CARRY 0VER.B 2660 IF CARRYOYER.B:-9 THEN HELP.FLA68='S' : I$=' CARRYOVER.B' : 60SUB 7480 : 60509 7360 : 605UB 2860 : 60TO 2070 2670 IF CARRYOVER.9=-1 THEN CARRYOVER.B D. CARRYOVER.B 2680 LOCATE L1+12,C1+12 : PRINT USIN6 't.itt'; CARRY 0VER.B : IF LOOPSt=2 THEN 2840' 2690 2700 IF I$='CANRYDVER.C' THEN HELP. RAG $='C' 2710 LOCATE LZe13,Clel2 : IF HELP.RA6$='S' THEN 2750 2720 INPUT ", CARRYOVER.C 2730 IF CARRYOVER.C=-9 THEN HELP.FLA6$='S' s I$=' CARRYOVER.C' : 6OSUB 7480 : 6050B 7360 2 605U9 2860 60TO 2070 2740 IF CARRYOVER.C=-1 THEN CARRYOVER.C=D. CARRY 0VER.C 2750 LOCATE LI+13,CZ+12 : PRINT USIN6 't.itt'; CARRYOVER.C : IF LOOPSl=3 THEN 2840 2760 2770 IF !$=' CARRY 0VER.B' THEN HELP.RA68='C' 2780 LOCATE L1+14,Clel2 : IF HELP.FLA6$='S' THEN 2820 2790 INPUT ", CARRYOVER.D 2800 IF CARRYOVER.D=-9 THEN HELP.RA6s='S' : !$=' CARRYOVER.D* : GOSUB 7480 2 605U9 7360 : 60SUB 2860 :-60TO 2070 2810 IF CARRY 0VER.D=-1 THEN CARRYOVER.D=D. CARRYOVER.D 2820 LOCATE L1+14,C1+12 : PRINT USING 't.060'; CARRYOVER.D : IF LOOPSI:4 THEN 2840 2830 2840 LOCATE 25, 1 : PRINT SPCl79) : 605U9 7490 : GOTO 2880 j 2850
'2860 Z$=INKEY$ 2 IF Z$(>CHR$(32) THEN 2860 ELSE RETURN
! 2870 Z$=lNKEY$ IF Z$(>CHR$132) THEN 2870 ELSE 2070 2800 Z$=INKEY$ : IF Z$(>CHR$(32) THEN 2880 ELSE CLS : GOTO 2890 1 2890 2900 2910 ** DOCKET CHECK ** -
2920 2930 60SUB 7710 : LOCATE 11,26 : PRINT 'The docket nuaber is 50 ';00CKETs;'.'
2940 LOCATE 12,29 : INPUT 'Is it correct (Y/N)? ',1$
2950 2960 IF I$='N' OR Is='n' THEN LOCATE 14,29 : PRINT SPC(23) : LOCATE 16,59 : PRINT SPCIS) : DLD. DOCKET $= DOCKET $
60TO 2900 2970 IF Is='Y' OR I$='y' THEN LOCATE 14,29 : PRINT SPC(23) : 605UB 3000 : 60TO 5680 ELSE 3020 2980 LOCATE 16,18 : INPUT ' Type last three digits of docket number: ',00CKETS : LOCATE 12,50 : PRINT ' '
2990 60TO 2930 3000 IF OLO. DOCKET $(> DOCKET $ AND OLD. DOCKET $()" THEN KILL CLD. DOCKET $ ELSE RETURN 3010 KILL ' PLANT-ID.'+0LD.00CKET8 : KILL 'RCS-CALC.'+0LD.00CKETS : RETURN 3020 LOCATE 14,29 : COLOR 0,7 : PRINT
- PLEASE! TYPE Y OR N.
- COLOR 7,0 : GOTO 2930 3030 3040 3050 eseeeeeeeeeeees 3060
- CORRECTIONS e 3070 3080 3090 ** PLANT IDENTIFICATION **
3100 3110 L8='13' 3120 3130 60508 7540 3140 E-6
APPEND!I E: PRM. BAS 3150 LOCATE 9,30 : PRINT ' PLANT IDENTIFICATION' 3160 LOCATE 11,38 : PRINT ' Current or Corrected' 3170 LOCATE 13,13 : PRINT ' Plant Name:';TABI35); COLOR 0,7 : PRINT SPC(32); : LOCATE 13,35 : PRINT PLANT $
3180 COLOR 7,0 3190 LOCATE 15,13 : PRINT ? Unit Nuebers'; TAB (35); a COLOR 0,7 : PRINT SPC( 1); : LOCATE 15,35 : PRINT UNIT $
3200 COLOR 7,0 3210 LOCATE 17,13 : PRINT ' Licensed Power (Mut):'; TAB (35); : COLOR 0,7 : PRINT SPC(4); LOCATE 17,35 3220 PRINT USING 'llil';LIC. POWER : COLOR 7,0 3230 3240 IF L$='13' THEN 3260 ELSE IF L$='15' THEN 3320 ELSE 3380 3250 3260 LOCATE 13,35,1 : Ls='13' 3270 Z$=INKEY$ IF Z$=" THEN 3270 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' ThEN 3320 3280 IF Z$=CHR$(0)+CHR$(66) THEN 3500 ELSE IF Z$=CHR$(0)+CHR$l62) THEN 3470 3290 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 3380 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 3300 ELSE 3260 3300 60SUB 7730 : LOCATE 13,35 : COLOR 0,7 : INPUT ", PLANT $ : COLOR 7,0 60TO 3130 3310 3320 LOCATE 15,35,1 : L$="15' 3330 Z$=INKEY$ : IF Z$=" THEN 3330 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$=*2' THEN 3380 3540 IF Z$=CHR$(0)+CHR$(66) THEN 3500 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 3470 3350 IF If=CHR$(0)+CHR$(72) OR Z$='8' THEN 3260 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 3360 ELSE 3320 3360 60SUB 7730 : LOCATE 15,35 : COLOR 0,7 : INPUT ", UNIT $ COLOR 7,0 : GOTO 3130 3370
- 3380 LOCATE 17,35,l': Ls='17' 3390 Z$=!NKEY$ : IF Z$=" THEN 3390 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 3260 3400 IF !$=CHR$(0)+CHR$(66) THEN 3500 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 3470 3410 IF Z$=CHR$(0)+ChR$(72) OR Z$='B' THEN 3320 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 3420 ELSE 3380 3420 GOSUB 7730 : LOCATE 17,35 : COLOR 0,7 : INPUT ",LIC. POWER : COLOR 7,0 : GOTO 3130 3430 3440 GOSUB 7480 3450 Z$21NKEY$ IF Z$=" THEN 3240 ELSE 3490 3460 3470 60503 7610 : 60TO 6110 3480 ,
3490 3500 ,
- REACTOR COOLING SfSTEM **
3510 3520 L$='4' s Hf='RCS' 3530 3540 GOSUB 1540 : Cis=' Current' : C28=' New' : GOSUB 8170 3550 LOCATE LI+ 4,CI+1 : PRINT USING 'I'; LOCPSI 3560 LOCATE LI+ 5,C1-1 : PRINT CSING ' lit.l*; PZR.ID 3570 LOCATE LI+ 6,C1 : PRINT USING 'll.it'; RC. PUMP.PWR 3580 LOCATE LI+ 7,CI : PRINT USING 'll.I'; RC. PUMP.EFF 3590 LOCATE L1+11,CI-2 : PRINT USING 'llill'; REFLECT. AREA 3600 LOCATE L1+12,CI : PRINT USING ' lit.l'; LOSS.C0 EFFICIENT 3410 LOCATE L1+16,CI-2 : PRINT USINS 'llill'; NONREFLECT. AREA 3620 LOCATE LI+17,CI+1 : PRINT USING 'll.l'; INSULATION. THICKNESS 3630 LOCATE LI+18,CI+2 : PRINT USING 't.Ill'; CONDUCTIVITY : GOSUB 7990 3640 3650 IF L$s'4' THEN 3700 ELSE !F Lla'5' THEN 3780 ELSE IF Lf='6' THEN 3850 ELSE !F L8='7' THEN 3940 3660 IF L8='ll' THEN 4030 ELSE IF Lf=*12' THEN 4120 ELSE IF Lf='16' THEN 4200 ELSE IF L$='17' TkEN 4280 3670 IF L$='!B' THEN 4360 ELSE PRINT ' ERROR - PRM10ATA - 4392' 3680 E-7
l APPECIIE:PRM. BAS l
3690 3700 LOCATE LI+ 4,CI+13,1 : L$='4' 3710 Z$s!NKEY$ IF Z$=" THEN 3710 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 3780 3720 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 3730 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 4360 ELSE IF !$=CHR$(0)+CHR$(64) THEN 3740 ELSE 3710 3740 605U8 7760 : LOCATE LZ+ 4,CI+13 : COLOR 0,7 : INPUT ", LOOPSI : LOCATE LI+4,81+33 : COLOR 7,0 3750 IF LOOPSIO2 AND LOOPSIO3 AND LOOPSIO4 THEN COLOR 23,0 : LOCATE LI+4,BI+33 : PRINT '2/3/4' : COLOR 7,0 60TO 3740 3760 60TO 3540 3770 3780 LOCATE LI+ 5,CI+11,1 : L8='5' : IF HELP.RA6$='S' THEN HELP.RA68='C' : 60TO 3820 3790 Z$=INKEY$ : IF Z$=" THEN 3790 ELSE IF Z$=CHR$lOl+CHR$(80) OR Z$='2' THEN 3850 3000 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 3810 IF Z$=CHR$(0)+CHR$(72) OR !$='B' THEN 3700 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 3820 ELSE 3790 3820 60SUB 7660 : LOCATE LI+ 5,C1+11 : PZR.lD.R=PZR.1D : COLOR 0,7 : INPUT ", PZR.10 : COLOR 7,0 3830 IF PZR.!D=-9 THEN HELP.RA68='S' : PIR.!D=PZR.ID.R 60SU8 7610 : 60SU8 6340 : ROTO 7650 ELSE GOTO 3540 3840 3850 LOCATE LI+ 6,CI+12,1 : L8='6' : IF HELP.RA68='S' THEN HELP.RA6$='C' : 60TO 3890 3860 Z$=INKEY$ IF Z$=" THEN 3860 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$3'2' THEN 3940 3870 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 3880 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 3780 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 3690 ELSE 3860 3890 605UB 7660 : LOCATE LI+ 6,CI+12 : RC. PUMP.PWR.R=RC. PUMP.PWR : COLOR 0,7 3900 INPUT ", RC. PUMP.PWR : COLOR 7,0 3910 IF RC. PUMP.PWR=-9 THEN HELP.RA68='S' : RC. PUMP.FWR=RC. PUMP.FWR.R : 60SUB 7610 : 60SUB 6450 : GOSUB 7650 3920 60TO 3540 3930 3940 LOCATE LI+ 7,CI+12,1 : Ls='7' : IF HELP.RA68='S' THEN HELP.FLAS$='C= : 60TO 3980 3950 Z$=INKEY$ IF Z$=" THEN 3950 ELSE !F Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 4030 3960 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 3970 IF !$=CHR$(0)+CHR$(721 OR Z$='8' THEN 3850 ELSE IF Z$=CHR$(0)+CHR$l64) THEN 3980 ELSE 3950 3980 60SUB 7660 : LOCATE LI+ 7,CI+12 : RC. PUMP.EFF.R=RC. PUMP.EFF : COLOR 0,7 3990 INPUT ", RC. PUMP.EFF : COLOR 7,0 4000 IF RC. PUMP.EFF=-9 THEN HELP.FLA68='S' : RC. PUMP.EFF=RC. PUMP.EFF.R : 60SUB 7610 : 605UB 6450 60SUB 7650 4010 60TO 3540 4020 4030 LOCATE LI+11,CI+ 9,1 : Lf='ll' : IF HELP.RA68='S' THEN HELP.FLA68='C' : GOTO 4070 8040 Z$=lNKEY$ IF Z$=" THEN 4040 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$="2' THEN 4120 4050 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 4060 IF Z$=CHR$(0)+CHR$(721 GR Z$='B' THEN 3940 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 4070 ELSE 4040 4070 60SUB 7660 : LOCATE LI+11,CI+9 : REFLECT. AREA.R=RERECT. AREA : COLOR 0,7 4080 INPUT ", RERECT. AREA : COLOR 7,0 4090 IF REFLECT. AREA =-9 THEN HELP.FLA68='S' : RERECT. AREA = REFLECT. AREA.R : 605U8 7610 : 6OSUB 6610 : GOSUB 7650 4100 60TO 3540 4110 4120 LOCATE LI+12,CI+11,1 : L$='12' : IF HELP.RA68='S' THEN HELP.FLA68='C' : SOTO 4160 4130 Z$=lNKEY$ : IF !$=" THEN 4130 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 4200 4140 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE 1F Z$=CHR$(0)+CHR$(62) THEN 4470
(!!0 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 4030 ELSE IF Z$=CHR$(Ol+CHR$(64) THEN 4160 ELSE 4130 4160 605UB 7660 : LOCATE LI+12,CI+11 : LOSS. COEFFICIENT.R= LOSS. COEFFICIENT : COLOR 0,7 4170 INPUT ", LDSS.00EFFICIFNT : COLCR 7,0 4180 IF LOSS. COEFFICIENT =-9 THEN HELP.FLA68='S' LOSS.C0 EFFICIENT = LOSS. COEFFICIENT.R : 60SU8 7610 : 60SUB 6800
- 60SUB 1650 ELSE GOTO 3540 4190 E-8
APPENDl! E PRM. BAS 4200 LOCATE LI+16,CI+ 9,1 : L$='16' : IF HELP.RA6$='S' THEN HELP.FLA68='C' : 60TO 4240 4210 Z$21NKEY$ : IF Z$=" THEN 4210 ELSE IF Z$=CHR$(0)+CHR$(8",) OR Z$='2' THEN 4280 4220 '!F Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 4230 IF Z$=CHR$(Ol+CHR$(72) OR Z$='B' THEN 4120 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 4240 ELSE 4210 4240 60SUB 7660 : LOCATE LI+16,CI+9 : NONRERECT. AREA.R=NONRERECT. AREA : COLOR 0,7 4250 INPUT ", NONRERECT. AREA : COLOR 7,0 4260 IF NONRERECT. AREA =-9 THEN HELP. FLAG $='S' s NONRERECT. AREA =NONRERECT. AREA.R : 605U8 7610 : GOSUB 6610 605UB 7650 ELSE 60TO 3540 4270 4280 LOCATE LI+17,CI+12,1 : Lf='17' : IF HELP.RA68='S' THEN HELP.RA68='C' : GOTO 4320 4290 Z$=lNKEY$ : IF Z$=" THEN 4290 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 4360 4300 IF Z$=CHR$(0)+CHR$(66) THEN 4450 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 4310 IF Z$=CHR$f0)+CHR$(72) OR Z$2'8' THEN 4200 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 4320 ELSE 4290 4320 60$08 7660 : LOCATE LI+17,CI+12 : INSULATION. THICKNESS.R=lNSULATION. THICKNESS : COLOR 0,7 4330 INPUT ", INSULAil0N. THICKNESS : COLOR 7,0 4340 IF INSULAT10N. THICKNESS =-9 THEN HELP.RA68:'S' : INSULATION. THICKNESS =lNSULATION. THICKNESS.R : 6OSUB 7610
- 60508 7050 : 605U8 7650 ELSE 60TO 3540 4350 4360 LOCATE LI+18,CI+13,1 : L8='18' : IF HELP.RA68='S' THEN HELP.FLA68='C' : GOTO 4400 4370 Z$=lNKEY$ : IF Z$=" THEN 4370 ELSE IF Z$=CHR$(0)+CHR$(801 OR Z$='2' THEN 3700 4380 IF Z$=CHR$(Ol+CHR$(66) THEN 4450 ELSE IF Z$=CHk$(0)+CHR$(62) THEN 4470 4390 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 4280 ELSE IF Z$=CHR$(Ol+CHR$(64) THEN 4400 ELSE 4370 4400 605UB 7660 : LOCATE LI+18,CI+13 : CONDUCTIVITY.R= CONDUCTIVITY : COLOR 0,7 4410 INPUT ", CONDUC'!VITY : COLOR 7,0 4420 IF CONDUCTIVITY =-9 THEN HELP.RA68='S' : CONDUCTIVITY: CONDUCTIVITY.R : GOSUB 7610 : GCSUB 7100 : 60SUB 7650 4430 60TO 3540 4440 4450 GOTO 4730 4460 .
4470 60SUB 7610 4480 LOCATE 6, 7 : PRINT *t. The current value of each parameter is displayed.
4490 LOCATE 8, 7 : PRINT '2. To enter a new value for a particular paraseter, first save the 4500 LOCATE 9,11 : PRINT ' cursor to the appropriate line by pressing either the '; i COLOR 0,7 4510 PRINT ' *;CHR$(24);' '; COLOR 7,0 4520 PRINT
- or '; COLOR 0,7 : PRINT ' *;CHR$(25);' ' : COLOR 7,0 4530 LOCATE 10,11 : PRINT ' key.'
4540 LOCATE 12, 7 : PRINT *3. Next press '; COLOR 0,7 : PRINT
- F6 '; a COLOR 7,0 4550 PRINT '. The bottoe line on the display will change to' 4560 LOCATE 13,11 : PRINT ' provide additional guidance.'
4570 LOCATE 15, 7 : PRINT '4. To correct a value, use the '; COLOR 0,7 : PRINT * ';CHR$(1961+CHR$( 161;' ';
4500 COLOR 7,0 : PRINT
- and '; : COLOR 0,7 : PRINT * ';CHPt( 17)+CHR$(196);' *; : COLOR 7,0 4590 PRINT ' keys to move the cursor' 4600 LOCATE 16,11 : PRINT 'to the appropriate coluso in the highlighted field. Key in the' 4610 LOCATE 17,11 : PRINT *new value. If a wrong digit is keyed in, write over it. Do not' 4620 LOCATE 18,11 : PRINT 'not press the '; COLOR 0,7 : PRINT * ';CHR$( 171+CHR$(196)+CHR$(217);' ';
4630 COLOR 7,0 : PRINT ' key until the last digit is keyed in.
4640 LOCATE 20, 7 : PRINT '5. If the '; 1 COLOR 0,7 : PRINT ' ';CHR$(196)+CHR$( 16);' '; COLOR 7,0 4650 PRINT ' and '; COLOR 0,7 : PRINT * ';CHR$( 17)+CHR$(196);' '; COLOR 7,0 : PRINT ' keys';
4660 PRINT
- do not work, press the *; : COLOR 0,7 : PRINT ' Nun Lock '; COLOR 7,0 : PRINT
- key,' )
4670 LOCATE 21,11 : PRINT 'and try again.' l 4680 GOTO 7650 J
4690 4700 IF H8='RCS' THEN GOTO 3540 ELSE IF H8='S6' THEN GOTO 4770 4710 I
E-9
APPEllDI! E: PRM. BAS 4720 4730 ** STEAM SENERATORS **
4740 4750 L$='4' : H8='S6' 4760 4770 60SUB 7540 4700 4790 60508 B000 4800 LOCATE LI+12,81+2 : PRINT 'Steaa Generator B ' : IF LOOPSI=3 OR LOOPSI=4 THEN 4810 ELSE 4840 4810 LOCATE L1+13,81+2 : PRINT 'Steaa Generator C ' : IF LOOPSI=4 THEN 4820 ELSE 4840 4820 LOCATE L1+14,BI+2 : PRINT 'Steaa Generator 0
- 4830 CI=59 4840 LOCATE L1+ 4,C1-1 : PRINT USING '464.I'; S6.ID .
4850 LOCATE LI+ 7,CI : PRINT USING '80.t'; RISER.03 4860 LOCATE L1+ 6,C1 : PRINT USIN6 'It'; RISER. NUMBER 4870 LOCATE L1+11,CZ+1 : PRINT USIN6 't.080'; CARRYOVER.A 4800 LOCATE L1+12,CI+1 : PRINT USING 'I.lli'; CARRYOVER.B : IF LOOPSl=3 OR LOOPSI:4 THEN 4890 ELSE 4910 4890 LOCATE L1+13,CI+1 : PRINT USING 't.000'; CARRYOVER.C : IF LOOPSI=4 THEN 4900 ELSE 4910 4900 LOCATE L1+14,CI+1 : PRINT USING 't.044'; CARRYOVER.0 4910 LOCATE LI+ 4,CI+10 : COLOR 0,7 : PRINT * .
4920 LOCATE L1+ 6,CI+11 : PRINT ' '
4930 LOCATE L1+ 7,CI+11 : PRINT * .
- 4940 LOCATE LI+11,C1+12 : PRINT * . i 4950 LOCATE LI+12,CI+12 : PRINT * . IF LOOPSI=3 OR LOOPSI:4 THEN 4960 ELSE COLOR 1,0 : GOTO 4980 4960 LOCATE LI+13,C1+12 : PRINT ' . ': IF LOOPSI=4 THEN 4970 ELSE COLOR 7,0 : 60TO 4980 4970 LOCATE L1+14,C1+12 : PRINT * .
- COLOR 7,0 4980 4990 IF L$='4' THEN 5030 ELSE IF L8='6' THEN 5130 ELSE 1F L8='7' THEN 5220 ELSE !F Lf='!!' THEN 5300 5000 IF L8='12' THEN 5390 ELSE IF L8='13' THEN 5490 5010 IF LS='14' THEN 5570 ELSE PRINT ' ERROR - PRM. BAS - 6232 5020 ,
5030 LOCATE LI+ 4,CI+10,1 : L8='4' : IF HELP.FLA68='S' THEN HELP.FLA68='C' : 60TO 5100 5040 Z$=!NKEY$ : IF Z$=" THEN 5040 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$="2' THEN 5130 5050 IF Z$=CHR$(0)+CHR$(66) THEN 5680 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 44/0 5060 IF (Z$=CHR$(0)+CHR$(72) OR Z$='0') AND LOOFSI=2 THEN 5390 5070 IF (Z$=CHR$(0)+CHR$(72) OR Z$='8') AND LOOPSI=3 THEN 5490 5080 IF (Z$=CHR$(Ol+CHR$(72) CR Z$='8') THEN 5590 5090 IF Z$=CHR$(0)+CHR$(64) THEN 5100 ELSE 5040 5100 GOSUB 7660 : LOCATE LI+ 4,C1+10 : SS.!D.R=SG.!D : COLOR 0,7 : INPUT ", 56.10 : COLOR 7,0 5110 IF S6.10=-9 THEN HELP.FLA6t='S' SG.ID=SG.!D.R : GOSUB 7610 : GOSUB 7160 : 60TO 7650 ELSE GOTO 4770 5120 5130 LOCATE L1+ 6,CI+11,1 : Ls='6' : IF HELP.FLA68='S' THEN HELP.FLA6s='C' : GOTO 5170 5140 Z$=INKEY$ IF Z$=" THEN 5140 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 5220 5150 IF Z$=CHR$(0)+CHR$(66) THEN 5680 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5160 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 5030 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 5170 ELSE 5140 5170 60508 7660 : LOCATE L1+ 6,C1+11 : RISER. NUMBER.R= RISER. NUMBER : COLOR 0,7 : INFUT ", RISER. NUMBER 5100 COLOR 7,0 5190 IF RISER. NUMBER =-9 THEN HELP.FLA68='S' RISER. NUMBER = RISER. NUMBER.R : GOSUB 7610 : 60SUB 7260 : SOTO 7650 5200 GOTO 4770 5210 5220 LOCATE LI+ 7,CI+11,1 : Ll='7' : IF HELP.FLA68='S' THEN HELP. FLAG $='C' : GOTO 5260 5230 Z$=lNKEY$ IF Z$=" THEN $230 ELSE IF ll=CHR$(0)+CHR$(80) OR Z$='2' !%" 5300 5240 IF !$=CHR$(0)+CHR$(66) THEN 5600 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5250 IF Z$=CHR$(0)+CHR$(12) OR Z$='8' THEN 5130 ELSE !F Z$=CHR$(0)+CHR$(64) THEN 5260 ELSE 5230 E-10
i APPEND!! Et PRM. BAS 5260 60SUB 7660 : LOCATE LI+ 7,CI+11 : RISER.00.R= RISER.0D : COLOR 0,7 : INPUT ", RISER.00 : COLOR 7,0 5270 IF RISER.0D=-9 THEN HELP.RA68='S' RISER.0D= RISER.0D.R : 60SUB 7610 : GOSUB 7260 : GOTO 7650 5280 60TO 4770 5290 5300 LOCATE LI+11.CI+12,1 : L8='ll' : IF HELP.FLA6$='S' THEN HELP. FLAG $='C' : GOTO 5340 5310 Z$=lEEY$: IF Z$=" THEN 5310 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$3'2' THEN 5390 5320 IF Z$=CHR$(0)+CHR$(66) THEN 5680 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5330 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 5220 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 5340 ELSE 5310 5340 GOSUB 7660 : LOCATE LI+11,CI+12 : CARRYOVER.A.R= CARRYOVER.A : COLOR 0,7 : INFUT ", CARRYOVER. A 5350 COLOR 7,0 5360 IF CARRYOVER.A=-9 THEN HELP. RAG $='S' : CARRY 0VER. A= CARRYOVER. A.R : 605UB 7610 : 60SUB 7360 : GOTO 7650 5370 GOTO 4770 5380 5390 LOCATE LI+12,CI+12,1 : Lf='12' : IF HELP.FLA68='S' THEN HELP.FLA68='C' : 60TO 5440
~5400 Z$=IN EY$ IF Z$=" THEN 5400 ELSE IF (Z$=CHR$(0)+CHR$(80) OR Z$="2') AND (LOOPSI=3 OR LOOPSI:4) THEN 5490 5410 IF Z$=CHR$(0)+CHR$(80) OR Z$="2' THEN 5030 5420 IF Z$=CHR$(0)+CHR$(66) THEN 5J80 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5430 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 5300 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 5440 ELSE 5400 5440 60508 7660 : LOCATE LI+12,CI+12 : CARRY 0VER.B.R= CARRYOVER.B : COLOR 0,7 : INPUT ", CARRY 0VER.B 5450 CCLCR 7,0 5460 IF CARRYOVER.B=-9 THEN HELP.RA6$='S' : CARRYOVER.B= CARRYOVER.B.R : GOSUB 7610 : GOSUB 7360 : GOTO 7650 5470 GOTO 4770 5480 5490 LOCALE LI+13,CI+12 : Ls='13' : IF HELP,FLA68='S' THEN HELP. FLAG 8='C' : 60TO 5540 5500 Z$=IREY$ : IF Z$=" THEN 5500 ELSE IF (Z$=CHR$(0)+CHR$(80) OR Z$='2') AND LOOPSI:4 THEN 5590 5510 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 5030 5520 IF Z$=CHR$(0)+CHR$(66) THEN 56B0 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5530 IF Z$=CHR$(0)+CHR$(72) CR Z$='8' THEN 5390 ELSE IF Z$=CHR$(0)+CHR$(64) THEN 5540 ELSE 5500 5540 GOSUB 7660 : LOCATE LI+13,CI+12 : CARRY 0VER.C.R= CARRYOVER.C : COLOR 0,7 : INPUT ", CARRYOVER.C
, 5550 COLOR 7,0 5560 IF CARRYOVER.C=-9 THEN HELP.RA68='S' : CARRYOVER.C= CARRYOVER.C.R : GOSUB 7610 : 60SUB 7360 : 60TO 7650 5570 60TA 4770 5580 5590 LOCATE LI+14,CI+12,1 : Lt='14' : IF HELP. FLAG 8='S' THEN HELP. FLAG 83'C' : 60TO 5630 5600 Z$=lREY$ IF Z$2" THEN 5600 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN 5030 5610 IF Z$=CHR$(0)+CHR$(66) THEN 5690 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4470 5620 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN 5490 ELSE !F Z$=CHR$(0)+CHR$(64) THEN $630 ELSE 5600 5630 60SUB 1660 : LOCATE LI+14,CI+12 . CARRYOVER.D.R= CARRYOVER.D : COLOR 0,7 : INPUT ", CARRYOVER.D 5640 COLOR 7,0 5650 IF CARRYOVER.0=-9 THEM HELP.RA6$='S' : CARRYOVER.D= CARRYOVER.D.R : 60SUB 7610 : GOSUB 7360 : GOTO 7650 5660 60TO 4770 5670 5680 CLS : LOCATE 12,10,0 : PRINT ' LOADING PARAMETERS & DATA N0DULE INTO MEMORY' 5690 It='PRM& DATA 740' : CHAIN 'FRM& DATA' 5700 5710 5720 neueu+nenne 5730
- HELP MESSA6ES +
5740 sennuunum 5750 5760 LOCATE 4,30 : PRINT ' Plant [dentification' 5770 LOCATE 9,12 : FRINT 't. ' brite only in the highlighted field in which the' 5700 LOCATE 10,16 : PRINT ' cursor is located.'
5790 LOCATE 12,12 : PRINT '2. For proper spacing of plant name and unit number in' E-Il
/
/
APPEIII Et PRM. BAS 5800 LOCA'E !},16 : PRINT ' screen displays and printed reports, start writing' 5810 LOCATE 14,16 : PRINT 'the plant name at the beginning of its highlighted' 5820 LOCATE 15,16 : PRINT ' field '
5830 LOCATE 17,12 : PRINT '3. To write over an incorrect character, use the '; : COLOR 0,7 5840 PRINT ' ';CHR$( 17)+CHR$(196);' '; COLOR 7,0 5850 LOCATE 18,16 : PRINT 'and '; : COLOR 0,7 : PRINT * ";CHR$(196)+CHR$( 16);' '; a COLOR 7,0 5860 PRINI
- keys to position the cursor. Nhen the' 5870 LOCATE 19,16 : PRINT ' entry is correct, press the '; : COLOR 0,7 5800 PRINT * ';CHR$( 17)+CHR$(196)+CHR$(217);' '; COLOR 7,0 : PRINT ' key. If the' 5890 LOCATE 20,16 : PRINT
- arrow keys are not working, then press *; : COLOR 0,7 : PRINT
- Nuo Lock ';
5900 COLOR 7,0 : PRINT '.' : RETURN 5910 LOCATE 4,31 : PRINT ' Entry of Paraseters' 5920 LOCATE 6, 7 : PRINT 't. Values sust be entered in order froe top to bottoe.'
5930 LOCATE 8, 7 : PRINT '2. The number pad should be locked out, so that the "; : COLOR 0,7 5940 PRINT ' ";CHR$(196)+CHR$( 16);' '; COLOR 7,0 : PRINT
- and ';
5950 COLOR 0,7 : PRINT * *;CHR$( 17)+CHR$(196);' ' : COLOR 7,0 5960 LOCATE 9,11 : PRINT ' keys (the number pad ';CHR$(34);'4';CHR$(34);' and ';CHR$(34);'6';CHR$(34);
5970 PRINT
- keys) will save the cursor as' 5980 ' LOCATE 10,11 : PRINT 'as desired. If the 4rrow keys are not working, press '; : COLOR 0,7 5990 PRINT ' Nuo Lock *; COLOR 7,0 : PRINT ".'
6000 LOCATE 12, 7 : PRINT '3. To erte .n actual value, save the cursor to the appropriate' 6010 LOCATE 13,11 : PRINT 'coluen relative to the deciaal point and then key in the digits.'
6020 LOCATE 14,11 : PRINT 'If a wrong digit is keyed in, write over it. The number of' 6030 LOCATE 15,11 : PRINT ' digits entered should be lieited to the highlighted field. Do' 6040 LOCATE 16,11 : PRINT 'not press the '; : COLOR 0,7 : PRINT * ';CHR$( 17)+CHR$(196)+CHR$(217);' *;
6050 COLOR 7,0 : PRINT ? key until af ter the last digit is keyed in.'
6060 LOCATE 18, 7 : PRINT '4. If an incorrect value is keyed in and entered, do not try to' 6070 LOCATE 19,11 : PRINT ' correct it now. Complete the entry of paraseter values and' 6080 LOCATE 20,11 : PRINT ' return to the DATA & PARAMETERS MENU. Then select the Corrections'-
6090 LOCATE 21,11 : PRINT ' option.' : GOSUB 7520 : 60TO 1190 6100 6110 LOCATE 6, 7 : PRINT '!. The current plant name, unit number, and licensed power are displayed.
6120 LOCATE 8, 7 : PRINT '2. To make corrections, first save the cursor to the appropriate line' 6130 LOCATE 9,11 : PRINT 'by pressing either the '; : COLOR 0,7 : PRINT * ';CHR$(24);' '; : COLOR 7,0 6140 PRINT
- ar '; : COLOR 0,7 : PRINT ' ';CHRil25);' '; COLOR 7,0 : PRINT ' key.'
6150 LOCATE 11, 7 : PRINT'3. Next press '; COLOR 0,7 : PRINT ' F6 '; COLOR 7,0 6160 PRINT '. The bottoe line on the display will change to' 6170 LOCATE 12,11 : PRINT ' provide additional guidance."-
- 6180 LOCATE 14, 7
- PRINT '4. To correct the plant name, use the '; COLOR 0,7 6190 PRINT * ';CHR$(196)+CHR$( 16);' '; : COLOR 7,0 : PRINT
- and *; : COLOR 0,7 6200 PRINT * ';CHR$( 17)+CHR$(196);' '; : COLOR 7,0 : PRINT ' keys to sove the' 6210 LOCATE 15,11 : PRINT ' cursor to the appropriate position in the highlighted field. Nrite' 6220 LOCATE 16,11 : PRINT 'over the incorrect characters, and then save the cursor one space' 6230 LOCATE 17,11 : PRINT 'beyond the last character. Press '; COLOR 0,7 6240 PRINT ' *;CHR$( 17)+CHRl(196)+CHRt(217);' '; COLOR 7,0 : PRINT 5 '
6250 LOCATE 19, 7 : PRINT '5. To correct the unit number or licensed pcmer, . rite over the '
6260 LOCATE 20,11 : PRINT ' incorrect number and press '; COLOR 0,7 6270 PRINT * ';CHRil 17)+CHR$(196)+CHR$(217);' '; : COLOR 7,0 : PRINT '.'
6280 LOCATE 22, 7 : PR!hi '6. If the 'l : COLOR 0,7 : PRINT * ';CHRl(196)+CHR$( 16);' '; : COLOR 7,0 l
6290 PRINT ' and *; COLOR 0,7 : PRINT * ';CHR$( 17)+CHRf(196);' *; : COLOR 7,0 : PRINT ' keys';
6300 PRINT ' do not morc, press the '; COLOR 0,7 : PRINT
- Nun Lock '; COLOR 7,0 : PRINT ' key,'
6310 LOCATE 23,11 : PRINT *and try again.'
6320 Z8:!hKEY$ IF ZIOCHRl(32) THEN 6320 ELSE 3130 6330 l
E-12
l
- APPENDl! E PRM. BAS 6340 LOCATE 4,25
- PRINT' Pressurizer Internal Diameter' 6350 LOCATE B, 7 : PRINT 't. The default value in inches is equal to licensed power in M' 6360 LOCATE 9,11 : PRINT ' raised to the 1/3 power times 6.01203. This gives the exact' 6370 LOCATE 10,11 : PRINT 'valee, 90.5 inches, for Mcguire 1, a 3411 M, four-loop unit.'
6380 LKATE 11,11 : PRINT 'For other units, the default value will be approvisate.'
6390 LOCATE 13, 7 : PRINT '2. Thereal power is not very sanitive to pressurizer water level' 6400 LOCATE 14,11 : PRINT ' changes and pressurizer diaseter. The analysis can be used' 6410 LOCATE 15,11 : PRINT 'to demonstrate that fact.'
6420 LOCATE 17, 7 : PRINT '3. The actual internal diaseter of the pressurizer can be obtained' 6430 LOCATE 18,11 : PRINT ' free the final safety analysis report or pressurizer drawings.' : RETURN
- 6440 6450 LOCATE 3,30
- PRINT ' Reactor Coolant Pusp' 6460 LOCATE 5, 7 : PRINT 't. The def ault value for pump power in M is equal to licensed power' 6470 LOCATE 6,11 : PRINT 'in M divided by the number of loops times 0.0062152. This gives*
6480 LOCATE 7,11 : PRINT 'the exact value, 5.3 M, for McGuire 1, a 3411 H, four-loop unit.'
i 6490 LOCATE :Bi ll : PRINT 'For other units, the default value will be approximate.'
6500 LOCATE 10, 7 : PRINT '2. Any error in pump power will be euttiplied by the number of loops
- 6510 LOCATE 11,11 : PRINT 'and included in thereal power.'
6520 LOCATE 13, 7 : PRINT '3. For a sore accurate value of pump power, use the name plate value' 6530 LOCATE 14,11 : PRINT 'for running power, as opposed to starting power; or use the product' 6540 LOCATE 15.11 : PRINT 'of current, voltage,and power factor.'
6550 LOCATE 17, 7 : PRINT '4. For pump efficiency, that is the ratio of the power transeitted' 6560 LOCATE 18,11 : PRINT 'to the coolant by the ispeller to the electrical power supplied
- 6570 LOCATE 19,11 : PRINT 'to the sotor, use the value warranted by the vendor or the defualt' 6580 LOCATE 20,11 : PRINT 'value.'
6590 LOCATE 22, 7 : PRINT '5. The default value for pump efficiency is 90I.' RETURN I 6600
, 6610 LOCATE 2,18 : PRINT ' Reflective Insulation - Inside Surf ace Area' j 6620 LOCATE 4, 7 : PRINT *t. For east newer plants, all thereal insulation on the reactor cool '
6630 LOCATE 5,11 : PRINT 'ing systes is reflective insulation. For older plants, the reactor' 6640 LOCATE 6,11 : PRINT ' vessel say be covered with reflective insulation, and the rest of' 4
6650 LOCATE 7,11 : PRINT 'the systes with nonreflective insulation.'
6660 LOCATE 9, 7 : PRINT '2. The surface area that is required is the outside surf ace area of'
- 6670 LOCATE 10,11 : PRINT 'the reactor vessel, the reactor coolant pumps, the steam generators,'
- 6680 LOCATE 11,11 : PRINT ~ 'and the connecting piping. The surface area of the pressurizer and'. -
6690 LOCATE 12,11-1 PRINT 'the surge pipe is not required.'
i 6700 LOCATE 14, 7 : PRINT '3. If the systes is entirely insulated with reflective insulation, the' 6710 LOCAni 15,11 : PRINT ' default value say be used. Otherwise, the surf ace area that is' 6720 LOCATE 16,11 : PRINT ' covered with reflective insulation should be estiaated. Only modest' 6730 LOCATE 17,11 : PRINT ' accuracy is required. An adequate estimate can be made by scaling'
, 6740 LOCATE 18,11 : PRINT 'tayout drawings in the final safety analysis report.'
j 6750 LOCATE 20, 7 : PRINT '4. The def ault value in square feet is equal to 19.34 times licensed' 6760 LOCATE 21,11 : PRINT ' power in M raised to the 2/3 power plus 32.18 times the number of' 6770 LOCATE 22,11 : PRINT ' loops raised to the 1/3 power times licensed power in M raised to'
, 6780 LOCATE 23,11 : PRINT 'the 2/3 power.' : RETURN 6790 6000 LOCATE 4,18 : PRINT ' Reflective insulation - Heat Loss Coefficient' 6810 LOCATE 11, 7 : PRINT 't. The def ault value, 55 BTUs/ hour / square f oot, is realistic.'
l 6820 LOCATE 13, 7 : PRINT '2. Thereal power is not very sensitive to this paraseter.'
6830 LOCATE 15, 7 : PRINT '3. The heat loss coefficient can be obtained free licensee or vendor' 6840 LOCATE 16,11 : PRINT ' documents which specify or warrant its value.' s RETURN i 6850 6860 LOCATE 2,17 : PRINT ' Nonreflective Insulation - Inside Surf ace Aread 6870 LOCATE 4, 7 : PRINT '!. For east newer plants, all thereal insulation on the reactor cool '
4 E-13
APPE' ll Es PRM,8AS 6800 LOCATE 5,11 : PRINT 'ing systes is reflective insulation. For older plants, the reactor
- 6890 LOCATE 6,11 : PRINT ' vessel say be covered with reflective insulation, and the rest of' 6900 LOCATE 7,11 : PRINT 'the system with nonreflective insulation.'
6910 LOCATE 9, 7 : PRINT '2. The default value is the estimated outside surface area of the reactor' 6920 LOCATE 10,11 : PRINT ' coolant piping, reactor coolant pumps, and steas generators. The' 6930 LOCATE 11,11 : PR!NT
- surf ace area of the pressurizer and surge pipe is not required and' 6940 LOCATE 12,11 : PRINT 'is not included. The def ault value is 32.18 tints times the number' 6950 LOCATE 13,11 : PRINT 'of loops raised to the 1/3 power times licensed power in MW raised to' 6960 LOCATE 14,11 : PRINT 'the 2/3 power.'
6910 LOCATE 16, 7 : PRINT '3. If you use the default value for this paraseter, the value for the' 6980 LOCATE 17,11 : PRINT 'Inside Surface Area of Reflective Insulation should be the surface' 6990 LOCATE 18,11 : PRINT ' area of the reactor vessel. Its estianted value is';
7000 PRINT USING 'ltitt';0. REFLECT. AREA-D.NONREFLECT. AREA; PRINT
- square feet.'
7010 LOCATE 20, 7 : PRINT '4. If necessary, note the value above, and later, use the correctir.n' 7020 LOCATE 21,11 : PRINT ' routine to enter it as the value of inside Surface Area of Reflective
- 7030 LOCATE 22,11 : PRINT ' Insulation.' RETURN 7040 7050 LOCATE 4,18 : PRINT ' Nonreflective Thereal Insulation - Thickness' 7060 LOCATE 11, 7 : PRINT 't. A rough, average value should be sufficient.'
7070 LOCATE 13, 7 : PRINT '2. The def ault value, 4 inches, is realistic for surf aces covered' 7080 LOCATE 14,11 : PRINT 'with nonreflective insulation.' : RETURN 7090 7100 LOCATE 4,17 : PRINT ' Nonreflective Insulation - Thereal Conductivity
- 7110 LOCATE 11,11 : PRINT 'The value of the thereal conductivity of reflective insulation' 7120 LOCATE 12,11 : PRINT 'can be obtained free liensee or vendor documents which specify' 7130 LOCATE 13,11 : PRINT 'or warrant the value; however, the def ault value, 0.035' 7140 LOCATE 14,11 : PRINT 'BTUs/ hour / foot /*;CHR$(248);*F, is realistic.* i RETURN 7150 7160 LOCATE 4,26 : PRINT'Steas Dose - Inside Diaseter' 7170 LOCATE 9, 6 : PRINT 't. The def ault value in inches is equal to 13.7089 times the ratio
- 7180 LOCATE 10,10 : PRINT ' raised to the 1/3 power of licensed power in NW to the nus' r' 7190 LOCATE 11,10 : PRINT 'ofloops. This gives the exa:t value, 130 inches, for McGuire 1,'
7200 LOCATE 12,10 : PRINT 'a 3411 MW, four-loop unit, and approximate results for other units.'
7210 LOCATE 14, 6 : PRINT '2. For steas generators which say be significantly different froa
- 7220 LOCATE 15,10 : PRINT 'those at McGuire, obtain the inside diaseter free vendor drawings.'
7230 LOCATE 16,10 : PRINT 'The value should be taken at the elevation for noreal operatina' 7240 LOCATE 17,10 : PRINT ' water level.' RETURN 7250 7260 LOCATE 4,32 : PRI'ii' Swirl Vane Risers' 7270 LOCATE 8, 6 : PRINT '!. The default value for the number risers is for McGuire 1, a 3411 Md,'
7200 LOCATE 9,10 : PRINT 'four-loop unit.'
7290 LOCATE 11, 6 : PRINT '2. The default value for riser diaseter in inches is equal to 2.0036' 7300 LOCATE 12,10 : PRINT 'tises the ratio raised to the 1/3 power of licensed power in MW to' 7310 LOCATE 13,10 : PRINT 'the number of loops. This gives the exact value for McGuire I and' 7320 LOCATE 14,10 : PRINI *approxieate values for other units.'
7330 LOCATE 16, 6 : PRINT '3. For steas generators which say be significantly different free those' 7340 LOCATE 17,10 : PRINT 'at McGuire 1, obtain the values free vendor drawings.' s RETURN 7350 7360 LOCATE 4,31 : PRINT' Moisture Carry-over' 7370 LOCATE 9, 6 : PRINT 't. Use of the delault value, 0.125%, is recoseended unless the licensee' 1380 LOCATE 10,10 : PRINT 'has actually seasured ooisture carry-over. Sose licensees do this' )
7390 LOCATE 11,10 : PRINT ' periodically using a radioactive tra er technique.'
7400 LCCATE 13, 6 : PRINT '2. Westinghouse usually warrants their steas generators for less' 7410 LOCATE 14,10 : PRINT 'than 0.2501 aoisture carry-over.'
l 1
E-14 l
l l
APPEND!I E PR& BAS 7420 LOCATE 16, 6 : PRINT '3. If the the marranted value of noisture carry-over is used and if*
7430 LOCATE 17,10 : PRINT 'the actual value is less than the warranted value, the calculated *.
7440 LOCATE 18,10 : PRINT 'value of pcuer mill be too small.' RETU?N 7450 7460 CLS : LOCATE 1,28 : PRINT ' HELP FOR PARAMETER INPUT' : 6dTO 7490 7470 CLS : LOCATE 2,28 : PRINT ' HELP FOR PARAMETER INPUT' : GOTO 7490 7480 CLS : LOCATE 3,28 : PRINT ' HELP FOR PARAMETER INPUT' 7490 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT
- To continue, press the 't 7500 COLOR 16,7 : PRINT
- space bar '; COLOR 7,0 : PRINT '.'; a RETURN 7510 7520 Z8=INKEY$ IF Z$0CHRf(32) THEN 7520 ELSE RETURN 7530 7540 KEY OFF : KEY 4," KEY 6," : KEY 8," -
7550 CLS : LOCATE 25,1 : COLOR 0,7 : PRINT ' F4 '; a COLOR 7,0 : PRINT ' = help, ';
7560 COLOR 0,7 : PRINT ' ';CHR$(25);' '; : COLOR 7,0 : PRINT ' = down, '; : COLOR 0,7 7570 PRINT ' ';CHR$(24);' '; COLOR 7,0 7580 PRINT ' = up, '; a COLOR 16,7 : PRINT
- F6 '; : COLOR 7,0 : PRINT * = initiate valte entry,1 ';
7590 COLOR 0,7 : PRINT
- PB '; COLOR 7,0 : PRINT * = exit.' : RETURN 7600 7610 CLS : LOCATE 3,26 : PRINT ' HELP FOR PARAMETER CORRECT!0N' 7620 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT
- To continue, press the ';
7630 COLOR 16,7 : PRINT
- space bar '; CCLOR 7,0 : PRINT * "; RETURN 7640 7650 Zi=INKEYs : !F Z80CHR$(32) THEN 7650 ELSE 60TO 4700 7660 KEY 4,'-9'+CHR$(13) : LOCATE 25,1 : PRINT SPC(8) : LOCATE 25,6 7670 COLOR 7,0 : PRINT
- Press *; a COLOR 0,7 : PRINT
- F4 '; : COLOR 7,0 : PRINT ' for help -or - *;
7680 P91NT ' Key in the new value, and press ';
1690 COLOR 16,7 : PRINT ' ';CHR$(17)+CHR$(196)+CHR$(217);' *; : COLOR 7,0 : PRINT '.'SPC Ul; RETURN 7700 7710 LOCATE 25,21 : PRINT 'After responding, strike the ';
7720 COLOR 16,7 : PRINT ' ';CHR$(17)+CHR8(196)+CHR$(217);' '; : COLOR 7,0 : PRINT
- key.'; I RETURN 7730 LOCATE 25,1 : PRINT TAB (15);' Key in the ccrrett name cr number, and press *; : COLOR 16,7 7740 PRINT ' ';CHRl(171+CHR$(196)+CHRt(217);' '; : COLOR 7,0 : PRINT *.';SPC(13) : RETURN 7750 7760 LOCATE 25,1 : PRINT SPC(78) : LOCATE 25,21 : PRINT ' Key in the new value and, press '; COLOR 16,7 7770 PRINT * ';ChRil 17)+CHR$(196)+CHR$(217);' '; i COLOR 7,0 : PRINT *.'; : RETURN 7780 7790 1800 eennunu 7810 e DISPLAYS +
7820 ennenene 7830 7840 COLOR 7,0 : LI:3 : 81=5 : CI=60 7850 LOCATE LI ,29 : PRINT ' REACTOR C00 LING SYSTEM' 7860 LOCATE LI+ 2,CI+5 : PRINT ' Values *
- L0CATE LI+3,CI-l : PRINT Cll; i LOCATE ,CI+11 : PRINT C28 7870 LOCATE LI+ 3,91-2 : PRINT ' Piping and Components' 7880 LOCATE LI+ 5,BI : PRINT ' Pressurizer internal diaseter (inches) '
7890 LOCATE LI+ 6,BI : PRINT ' Power input for each reactor coolant pusp (N)
- 7900 LOCATE LI+ 7,BI : PRINT ' Efficiency of reactor coolant pumps II) '
7910 LOCATE LI+ 9,81-2 : PRINT ' Reflective Thereal Insulation' 7920 LOCATE L D il,BI : PRINT 'Inside surf ace area (square feet) '-
7930 LOCATE Liv!2,BI : PRINT ' Heat loss ccef ficient (BTUs/ hour / square ic:t) '
7940 LOCATE LI+14,BI-2 : PRINT ' Nonreflective Thereal Insulation' 7950 LOCATE LI+16,BI : PRINT 'Inside surface area (square feet) '
E-15
APPEO!!EsPRfl. BAS 7960 LOCATE LI+17,BI : PRINT ' Thickness (inches) '
7970 LOCATE LI+18,BI : PRINT 'Thereal conductivity hius/hourHoot/*;CHR$(248);*F) ' : RETURN 7980 7990 LOCATE LI+ 5,0Z+11 : COLOR 0,7 : PRINT * .
9000 LOCATE LI+ 6,CZ+12 : PRINT ' . '
8010 LOCATE LI+ 7,CI+12 : PRINT * .
- 9020 LOCATE LI+11,CI+ 9 : PRINT '
8030 LOCATE LI+12,CI+11 : PRINT ' .'
8040 LOCATE LI+16,CI+ 9 : PRINT '
0050 LOCATE LI+17,CI+12 : PRINT * . '
0060 LOCATE LI+18,CI+13 : PRINT ' .- ' : COLOR 7,0 : RETURN 8070 8000 COLOR 7,0 : BI:5 : CI=60 : IF LOOPSI=4 THEN LI=5 ELSE !F LOOPSI=3 THEN LI:6 ELSE L1=7 0090 LOCATE LI- 1,32 : FRINT 'STEAN 6ENERATURS' 8100 LOCATE LI+ 1,CI+4 : PPINT ' Values' : LOC.1TE LI+2,CI-2 : PRINT Clf; LOCATE ,CI+10 : PRINT C28 8110 LOCATE LI+ 4,BI : PRINT 'Steae dose inside diameter (inches)
- 8120 LOCATE LI+ 6,91 : PRINT 'Nueber of swirl' vane risers
- G130 LOCAT'i LI+ 7,BI : PR!hi 'Outside diaseter of swirl vane risers (inches)
- 8140 LOCATE LI+ 9,BI : PRINT 'Neasured or marranted noisture carry-over (I):'
8150 LOCATE LI+11,BI+2 : PRINT 'Steae Generator A ' : RETURN 8160 8170 COLCR 7,0 : LI=3 : BI:5 : CI=60 8100 LOCATE LI-l ,29 : PRINT ' REACTOR COOLING SYSTEM' 8190 LOCATE LI+ 1.CI+5 : PRINT ' Values' LOCATE LI+2,CI-! : PRINT Cit; : LOCATE ,CI+11 : PRINT C28 8200 LOCATE LI+ 2,91-2 : PRINT ' Piping and Caeponents' 0210 LOCATE LI+4,BI : PRINT ' Number of reactor cooling loops' 0220 LOCATE LI+4,CI+13 : COLOR 0,7 : PRINT * *
- COLOR 7,0 : GOTO 7800 8230 END f
E-16
. - A _
1 APPENDIX F DATA. BAS l
e I
1
?
l l
r ,
i
k
, p i
- APPENDIX F8 DATA. BAS l
j . .
l
[
TABLE OF CONTENTS l
Page 4
INPUT F- 1
$- CORRECTIONS F- 4 T
Cate & Time F- 5 Steam Generators F- 5 diher Components -
F- 6 s
HELP MESSAGES -
F- 0 ,
013 PLAY F-11
+-
i l.
, i a
4 .
i i
i j 4 d' \
?
)
a e' E
1 i
i F-tii i <
- s
_ , , . _ _ _ - ._r,, s ., ._ . _ _ _ , , _ , , _cm,.-., ,, __,_,._.r. _. , ,.-._,c.,. - . . _ , , . . ,,..m, , , . , , . , . . . , , ,
APPENDl! F: DATA. BAS 10 ****t*******
20 ** DATA. BAS **'
30 *ese**esenes 40 50 .**i' H H
60
- COMON
- 70 'I'*******
B0 90 DEFDBL A-Z : COLOR 7,0 : CLS 100 110 REM Paraseters 120 COMON CARRYOVER. A,CARRf 0VER.B, CARRY 0VER.C, CARRYOVER.D, LOSS. COEFFICIENT,NONREFLECT. AREA,PZR.!D 130 COMON RISER. NUMBER, RISER.00, CON 00CTIVITY,!NSULATION. THICKNESS.LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP.EFF,RC. PUMP.PWR,56.!D,00CKET$
150 160 REM Data 170 COMON BOTTOM. BLOW O , CHARGING.FLCW O , CHAR 6ING. TEMP O ,FEEDWATER. FLOW O ,FEEDW ATER. TEMP O , LETDOWN. FLOW O 180 COMON LETDOWm. TEMPO,PIR.PRESO,PIR. WATER.LEVELO, STEAM.PRESO,T.AVEO,i.CCLDU,TilMEO, TOP.BLCWO 190 COMON SG. WATER.LEVELO, DATA.SETSI,DDATE$, PLANT $, UNITS 200 210 REM Auxiliary Results 220 COMON A, B,BOTTON. BLOW. DENSITY O , DELTA. TIME, DRY. STEAM.ENTHALP f D ,H,1,M0!STURE.ENTHALPY O ,N,P,PS Ait 230 COMON PIR. DENSITY 0,PIR.ENTHALPYO,SG. CROSS.SECTION,T,TSAT,V,MI,NI, DATA. FLAG $,DIAGNOSilt. FLAG $
240 COMON P AR AMETER. FL AS $ , PR I NT. FL AG $ , RE SULT S. FL A S $ , I I , Y $ , l f 250 260 IF If=' DATA 1610' THEN 2060 ELSE IF I$=' DATA SET 2 PREP' THEN NI 2 : DATA.SETSI=2 : GOTO 650 270 260 290 H'*'"'*
- 300
- INPUT 6 310 H H**
320 330 IF DATA.SETSI:1 THEN 340 ELSE 590 340 CLS : GOSUB 4650 : TI=7 : 81=17 : LI:18 : RI:63 350 LOCATE TI,LI : PRINT CHR$(201) : LOCATE TI,RI : PRINT CHR$(187) : LOCATE BI,RI : PRINT CHR$(168) 360 LOCATE BI,'.I : PRINT CHR$(200) 370 LOCATE TI,L1+1 : FOR !!=1 TO RI-LI-l : PRINT CHR$(205)I : NEIT 380 LOCATE BI,LI+1 : FOR 11=1 TO RI-LI-l : PRINT CHR$(205)I : NEIT 390 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEIT 400 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 410 420 LOCATE 9,21 : PRINT 'One set of data is in storage. You cans' 430 LOCATE 11,23 : PRINT *(A) Write over this set with new data,'
440 LOCATE 13,23 : PRINT '(B) Add a second set of data, or' 450 LOCATE 15,23 : PRINT '(C) heturn to the previous seau.'
460 LOCATE 17,25 : PRIN!
- Which would you like (A/B/C)? ' s LOCATE 17,56 : INPUT ",I$
470 480 IF Ils'A' OR lis'a' THEN 590 ELSE IF If='B' OR Its'b' THEN GOTO 500 ELSE IF If ='C' CR If='c' 60iG 3590 490 GOTO 330 500 CLS : COLOR 0,7 : LOCATE 10,36 : PRINT ' CAUTION
- COLOR 7,0 : LOCATE 12, 8 510 PRINT 'The sscond set of data should be taken within a few hours of the' 520 LOCATE !!, 8 : PRINT 'first set. I ave should be constant during this time. If the' 530 LOCATE 14,8 : PRINT 'second set is taken 24 hours2.777778e-4 days <br />0.00667 hours <br />3.968254e-5 weeks <br />9.132e-6 months <br /> or scre af ter the first set, errcrs' 540 LOCATE 15, 8 : PRINT 'will occur in the corrections for water level changes.' : GOSUB 4950 F-1
APPEN8!! F: DATA.IAS 550 Z$=INKEY$ IF Z8 0CHR$(32) THEN 550 560 Is=' DATA SET 2 PREP' : CLS : LOCATE 13,18 570 PRINT ' LOADING PARAMETERS & DATA MODULE INTO MEMORY
- CHAIN 'PRMLDATA' 580 590 60 SUS 4530 : LOCATE 12,28 : PRINT ' Nill you use one or two' s LOCATE 11,29 : PRINT ' sets of data (1/2)?';
600 LK ATE 13,49 : INPUT * *, DATA.SETSI ,
610 IF DATA.SETSI=1 OR DATA.SETSI:2 THEN 640 ELSE IF DATA.SETSIs-9 THEN 60Sl3 4300 ELSE LOCATE 16,28 :
COLOR 0,7 : PRINT
- PLEASE, TYPE 1 OR 2! ' : COLOR 7,0 : LOCATE 13,49,1 .
620 Z$=INKEY$: IF !$=" THEN INPUT ' *, DATA.SETSI : 60TO 610 ELSE 600 630 640 WI=1 650 FOR TI=NI TO DATA.SETSI 660 60SUB 3660 : 60 SUS 4470 : EOSti8 5000 : COLOR 0,7 : IF 11=1 THEN LOCATE 4,15 : PRINT SPC(19) 670 LOCATE 4,64 : PRINT ' ' : COLOR 7,0 680 FOR II:1 TO LOOPSI : IF 11=1 THEN S$='A' ELSE IF II:2 THEN S$='B' ELSE IF II:3 THEN $$='C' ELSE S$='D' 690 IF LOOPSI=2 THEN CI 52 ELSE IF LOOPSI=3 THEN CI:42 ELSE IF LOOPSI:4 THEN CI:32 700 DI=CI+10eII 710 LOCATE 6,DI+2 : PRINT S$ : COLOR 0,7 720 LOCATE 8,01-1 : PRINT * .
730 LOCATE 9,01 : PRINT ' .
740 LDCATE 10,01 : PRINT '
750 LOCATE 11,01 : PRINT * '
760 LOCATE 12,01 : PRINT '
770 LOCATE 13,DI : PRINT '
, ' : COLOR 7,0 : NEIT : COLOR 0,7 780 LOCATE 17,33 ,a PRINT .
790 LOCATE 18,33 : PRINT '
- 900 LOCATE 22,32 : PRINT '
'810 LOCATE 23,33 : PRINT * .
820 ' LOCATE 17,72 : PRINT .
830 LOCATE 18,72 : PRINT .
840 LOCATE 27,72 : PRINT '
850 LOCATE 23,72 : PRINT *
. * : COLOR 7,0 860 870 IF TI=2 THEN LOCATE 4,15 : PRINT DDATES : GOTO 950 880 890 IF If='DDATE8' THEN HELP. FLAG 8='C' 900 ' LOCATE 4,15 : IF HELP.FLA68='S' THEN 930 910 INPUT ", DDATES : IF DDATE8='8' THEN HELP.FLA68='S' : If='DDATE8' : 60TO 3870 920 IF DDATE8='$' THEN 4440 930 LOCATE 4,15 : PRINT U3ING '\ \'; DDATE8 940 950 KEY 4,*-9'+CHR$(13) : KEY 6,'-8'+CHR$(13) 960 970 IF 18='TilME' THEN HELP. FLAG 8='C' 980 LOCATE 4,64 : IF HELP. FLAG 8='S' THEN 1010 990 INPUT ", TTIME(TI) : IF TTIME(TII=-9 THEN HELP. FLAG 8='S' : 18='TTIME' : GOTO 4250 1000 IF TTIME(TI)=-8 THEN 4440 1010 LOCATE 4,64 : PRINT USING '$$$$';TTIME(TI) 1020 IF TTIME(TIl(1000 THEN LOCATE 4,64 : PRINT'O' 1030 IF TTIME(TIl(100 THEN LOCATE 4,65 : PRINT '0' 1040 IF TTIME(TIl(10 THEN LOCATE 4,66 : PRINT-'O' 1050 1060 FOR LPI=1 TO LOOPSI 1070 IF LOOPSI:2 THEN CI:52 ELSE IF LOOPSI=3 THEN CI=42 ELSE IF LOOPSI=4 THEN CI=32 F-2
__ - _ .-. . .. - __ . -. l
APPENDl! F: DATA. BAS 1080 DI=CI+10+LPI 1090 IF LPI=1 THEN S$='A' ELSE IF LPI:2 THEN S$='B' ELSE IF LPI=3 THEN S$='C' ELSE IF LPI:4 THEN S$='D'
!!00 1110 IF IS=' STEM. PRES.'+S$ THEN HELP.FLA68='C' 1120 LOCATE 8,DI- 1 : IF HELP.RA68='S' THEN !!60 1130 INPUT ", STEM.PRESILPI,TI) 1140 IF STEM. PRES (LPI,TI)=-9 THEN HELP.RA68='S' : I$=' STEAM. PRES.'+S$ : 60TO 4010 1150 IF STEM. PRES (LPI,TIls-8 THEN 4440
!!60 LOCATE 8,01- 1 : PRINT USING '6046.l'; STEAM.PRESILPI,TI) 1170
!!B0 IF IS='FEEDWATER. ROW.'+S$ THEN HELP.FLA68='C' 1190 LOCATE 9,DI : IF HELP.FLA68='S' THEN 1230 1200 INPUT ", FEEDMTER.ROWILPI,TI) 1210 IF FEEDWATER. FLOW (LPI,TI)=-9 THEN HELP. RAS $='S' : Is='FEEDWATER. FLOW.'+S$ : 60TO 4010 1220 IF FEEDWATER. ROW (LPI,TIl=-8 THEN 4440 1230 LOCATE 9,DI : PRINT USING 't.lli'; FEED HTER. FLOW (LPI,TIl 1240 1250 IF I$='FEEDWATER. TEMP.'+S$ THEN HELP.FLA68 'C' 1260. LOCATE 10,01 : IF HELP. FLAG 8='S' THEN 1290 1270 INFUT ", FEEDHTER. TEMP (LPI,TI) 1260 IF FEEDWTER. TEMP (LPI,TI)=-9 THEN HELP.RAE8='S' : I$='FEEDH TER. TEMP.'+S$ : GOTO 4010 1290 IF FEEDWATER. TEMP (LPI,TI)=-8 THEN 4440 1300 LOCATE 10,DI : PRINT USING 'llt.I'; FEEDWATER. TEMP (LPI,TIl 1310 1320 IF I$=' TOP. BLOW.'+S$ THEN HELP. FLAG 8='C' 1330 LOCATE 11,01 : IF HELP.RA65='S' THEN 1360 1340 INPUT ", TOP. BLOW (LPI,TII: IF TOP. BLOW (LPI,TI)=-9 THEN HELP.FLABl='S' : Is=' TOP. BLOW.'+S$ : 60TO 4010 1350 IF TOP. BLOW (LPI,TIl=-B THEN 4440 1360 LOCATE !!,DI : PRINT USING ' lit.l'; TOP. BLOW (LPI,TIL 1370 1380 IF Ils' BOTTOM. BLOW.'+S$ THEN HELP. RAG $='C' 1390 LOCATE 12,DI : IF HELP. FLAG 8='S' THEN 1430 1400 INPUT ", BOTTOM. BLOW (LPI,TI) 1410 IF BOTTOM. BLOW (LPI,TIl=-9 THEN HELP.RAB$='S' : Il=' BOTTOM.5 LOW.'+S$ : 60TO 4010 1420 IF BOTTOM. BLOW (LPI,TI)=-0 THEN 4440 1430 LOCATE 12,DI : PRINT USING 'llt.I'; BOTTOM. BLOW (LPI,TI) 1440 1450 IF I$='56. H TER. LEVEL.'+S$ THEN HELP. FLAG 8='C' 1460 LOCATE 13,01 : IF HELP. FLAG 8='S' THEN 1500 1470 INPUT ", SG.HTER. LEVEL (LPI,TI) 1480 IF SS.WTER. LEVEL (LPI,TI)=-9 THEN HELP. RAS $='S' : If='SS. WATER. LEVEL.'+S$ : GOTO 4010 1490 .!F SG.H TER. LEVEL (LPI,TI)=-B THEN 4440 1500 LOCATE 13,DI : PRINT USINS 'llt.I'; SG. H TER. LEVEL (LPI,TI): NEIT 1510 1520 IF If=' LETDOWN. ROW' THEN HELP.RAB$='C' 1530 LOCATE 17,33 : IF HELP. RAG 8='S' THEN 1560 1540 INPUT ", LETDOWN.FLO6(TIl : IF LETDOWN.ROWITIl=-9 THEN HELP.RACS='S' : Il=' LETDOWN. ROW' : 60TO 4010 1550 IF LE!DOWN. FLOW (TI)=-B THEN 4440 1560 LOCATE 17,33 : PRINT USING 'lle.I'; LETDOWN. FLOW (TIl 1570 .
1580 IF It=' LETDOWN.TEl'P' THEN HELP. FLAG 8='C' 1590 LOCATE 18,33 : IF HELP. FLAGS ='S' THEN 1620 1 1600 INPUT ", LETDOWN.TEMPtTI) : IF LETDOWN.TEMPITIl=-9 THEN HELP. RAS $='S' : Il=' LETDOWN. TEMP' : 60TO 4010
)
'F-3 i
APPENDl! F8 DATA.8AS 1610 IF LETDOWN. TEMP (TI)=-8 THEN 4440 1620 LOCATE 18,33 : PRINT USING ' lit.I'; LETDOWN. TEMP (TI) 1630 1640 IF I$='CFARGING. ROW' THEN HELP.RA68 'C' 1650 LOCATE 17,72 : IF HELP.RA6S='S' THEN 1690 1660 INPUT ", CHAR 61N6.ROWITI) 1670 IF CHAR 61N6.ROWITIl=-9 THEN HELP.FLA68='S' : I$=' CHARGING.FLCW' s GOTO 4010 1680 IF CHARGING. ROW (TII=-8 THEN 4440 1690 LOCATE 17,72 : PRINT USIN6 ' lit.4'; CHARSING.FLOWITI) 1700 1710 IF I$=' CHAR 61N6.TENP' THEN HELP.RA68='C' 1720 LOCATE 18,72 : IF HELP.FLA66='S' THEh 1760 1730 INPUT ", CHAR 6ING.TENP(TI) 1740 IF CHARGIN6. TEMP (TIl=-9 THEN HELP. RAG 8='S' : Is=* CHAR 61NG. TEMP' : GOTO 4010 1750 IF CHARGIN6. TEMP (TI)=-B THEN 4440 1760 LOCATE 18,72 : PRINT USING '448.I'; CHAR 6ING. TEMP (TI) '-
y 1770 D
1780 IF If='PIR. PRES' THEN HELP.RA65='C' 1790 LOCATE 22,32 : IF HELP.FLA68='S' THEN 1920 l 1900 INPUT ", PIR.PRESITI) : IF PIR.FRESITIl=-9 THEN HELP.FLA68='S' : Is='PIR. PRES' : GOTO 4010 1810 IF PZR. PRES (TIl=-8 THEN 4440 L 1820 LOCATE 22,32 : PRINT USING '4404.l*; PIR. PRES (TI) 1830 1840 IF Is='PZR. WATER. LEVEL' THEN HELP.RASt='C' 1650 LOCATE 23,33 : IF HELP.FLA68='S' THEN 1990 1660 INPUT ", PIR. WATER. LEVEL (TI) ,
1870 IF PIR. WATER. LEVEL (TIl=-9 THEN HELP.FLA68=:S".: It='PZR. WATER. LEVEL' : GOTO 4010 1990 IF PZR. WATER. LEVEL (TIl=-8 THEN 4440 1990 LOCATE 23,33 : PRINT USING ' lit.I'; PZR. WATER. LEVEL (TI) 1900 1910 IF 15='T. AVE' THEN HELP.RA68='C' 1920 LOCATE 22,72 : IF HELP.FLAS$='S' THEN 1950 1930 INPUT ", T. AVE (TI) : IF T. AVE (TI)=-9 THEN HELP. RAGS ='S' : Is='T. AVE' : GOTO 4010 1940 IF T. AVE (Ill=-8 THEN 4440 1950 LOCATE 22,72 : PRINT USING ' lit.I'; T. AVE (TI) 1960 1970 IF It='T. COLD' THEN HELP. FLAG $='C' 1980 LOCATE 23,72 : IF HELP.FLA65='S' THEN 2010 1990 INPUT ", T.CCLD(TI) : IF T.COLO(TI)=-9 THEN HELP.RA68='S' : Is='T. COLD' : GOTO 4010 2000 IF T.COLDlTI)=-8 THEN 4440 2010 LOCATE 23,72 : PRINT USIN6 'Itt.I'; T.COLDITI) : GOSUB 4390 : NEIT TI 2020 GOTO 4430 2030 2040 2050 es**eesensenee 2060
- CORRECTIONS
- 2070 eseneseenene 2080 2090 FOR TI:1 TO DATA.SETSI : LOCATE .1,1,0 : COLOR 7,0 : LS='4L' 2100 2110 GOSUB 4580 : 60509 5030 : GOSUB 5460 : 00508 5480 2120 2130 IF Lt='4L' THEN 2180 ELSE IF Lt='4R' THEN 2270 ELSE IF If='SG' THEN 2360 ELSE IF Is='0C' THEN 2930 2140 F-4 i
APPE 71I F DATA.8AS 2150 2160 ++ DATE li TIME ++
2170 21B0 LOCATE 4,15 : L$='4L' : COLOR 0,7 2190 IF TI=1 THEN PRINT USIN6 'i \';DDATES : LOCATE 4,15,1 ELSE 2270 2200 Z$=INKEY$ : IF Z$=" THEN 2200 2210 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN LOCATE 4,15 : COLOR 7,0 : PRINT USING '\ \';DDATES :
SOTO 2270 2220 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=ChR$(0)+CHR$(62) THEN 4690 2230 IF Z$=CHR$(0)+CHR$164) THEN COLOR 7,0 60SUB 4880 : LOCATE 4,15 : COLOR 0,7 : INPUT ",DDATES :
COLOR 7,0 60TO 2110 2240 IF Z$=CHR$(0)+CHR$(721 OR Z$='8' THEN COLOR 7,0 : PRINT USINS *\ \';DDATES : 60TO 3500 2250 60TO 2200 2260 2270 LOCATE 4,64 : L$='4R' : COLOR 0,7 : PRINT TTIME81TI) : LOCATE 4,64,1 2280 Z$=lNKEY$ : IF Z$=" THEN 2280 2290 IF Z$=CFR$(0)+CHR$(80) OR Z$=*2' THEN COLOR 7,0 : PRINT TTIME$1TI) : GOTO 2360 2300 IF Z$=CHR$(0)+CHR$(661 THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 2310 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60SUB 4880 : LOCATE 4,64 : COLOR 0,7 : INPUT ",TTIME(TIl :
COLOR 7,0 : SOTO 2110 2320 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN LOCATE 4,64 : COLOR 7,0 : PRINT TTIMEs(TI) : ELSE 2280 2330 IF TI=1 THEN 2120 ELSE 3500 2340 ,
2350 2360 ++ STEM EENERATORS ++
2370 2380 I$='SS' 2390 DI=CI+LPI+10 2400 IF L$='8' THEN 2470 ELSE IF L8='9' THEN 2570 ELSE IF Lf="10' THEN 2640 ELSE IF L$='ll' THEN 2710 2410 IF LS="12' TriEN 2770 ELSE IF L8='13' THEN 2830 2420 - LPI=1 : DI=CI+10 : GOTO 2470 2430 LPI=2 : DI=CI+20 : GOTO 2470 2440 IF LOOPSI=3 DR LOOPSI:4 THEN LPI=3 : DI=CI+30 : 60TO 2470 2450 IF L00/SI:4 T)(EN LPI:4 : DI=CI+40 : 60TO 2470 ELSE 2930 2460 2470 LOCAIE 8,01-1 : L$='8' : COLOR 0,7 : PRINT USIN8 'llit.I'; STEAM. PRES (LPI,TI) : LOCATE 8,DI-1,1 2480 Z$=lNKEYs . IF Z$=" THEN 2480 2490 IF Z$=CHR$(0)+CHR$(80) OR Z$="2' THEN COLOR 7,0 : PRINT USINS 'llit.l'; STEAM. PRES (LPI,TI) : 60TO 2570 2500 IF Z$=CHR$(0)+CHR$(661 THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 2510 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60SUB 4880 : LOCATE 8,D1-1 : COLOR 0,7 :
INPUT ", STEAM. PRES (LPI,TI) : COLOR 7,0 : GOTO 2110 2520 IF !$=CHR$(0)+CHR$(72) OR Z$='8' THEN LOCATE 8,DI-1 : COLOR 7,0 : PRINT USING 'llit.l*; STEAM. PRES (LPI,TI)
- 60TO 2530 ELSE 2400 2530 IF LPI:1 THEN 2270 ELSE IF LPI=2 THEN LPI=1 : DI=CI+10 : ELSE IF LPI=3 THEN LPI=2 : DI=CI+20 2540 IF LPI:4 THEN LPI=3 : DI=CI+30 2550 60TO 2830 2550 2570 LOCATE 9,01 : LS='9' : C0LGR 0,7 : PRlhi USING 't.lli';FEEDWATER. FLOW (LPI,TI) : LOCATE 9,DI 2580 Z$=lNKEY$ : IF Z$=" THEN 2580 Ts0 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING 't.lil';FEEDWATER. FLOW (LPI,TI) : 60TO 2640 2600 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 2610 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : GOSUB 4880 : LOCATE 9,01 : COLOP 0,7 :
INPUT ",FEEDWATER. FLOW (LPI,TI) : COLOR 7,0 : 60TO 2110 I
F-5
APPE" l! F: DATA. BAS !
2620 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 9,DI : COLOR 7,0 : PRINT USING 't.lli';FEEDWATER. FLOW (LPI,TI)
- GOTO 2470 ELSE 2580 2630 2640 LOCATE 10,01 : Lf='10' : COLOR 0,7 : PRINT USING ' lit.I';FEEDWATER. TEMP (LPI,TI) : LOCATE 10,DI 2650 Z$=lNKEY$ : IF Z$=" THEN 2650 2660 IF Z$=CHR$(0)+CHR$(60) OR Z$='2' THEN COLOR 7,0 : PRINT USING ' lit.I';FEEDWATER. TEMP (LFI,TI) : GOTO 2710 2670 IF Z$=CHR$(0)+CHR$(66) THEN 3530 ELSE IF Z$=CHR$(0)+CHR$(62) Thir 4690 2680 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : GOSUB 1880 : LOCATE 10,DI : COLOR 0,7 :
INPUT ",FEEDWATER. TEMP (LPI,TI) : COLOR 7,0 : GOTO 2110 2690 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 10,DI : COLOR 7,0 : PRINT USING ' lit.I';
FEEDWATER. TEMP (LPI,TI) : SOTO 2570 ELSE 2650 2700 2710 LOCATE 11,D1 : L$='11' : COLOR 0,7 : PRINT USING 'llt.I'; TOP. BLOW (LPI,TI) : LOCATE 11,DI 2720 Z$=lNKEY$ IF Z$=" THEN 2720 ELSE IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING ' lit.I'; ,
TOP.BLOWILPI,TI) : GOTO 2770 ,
2730 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 2740 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : GOSUB 4880 : LOCATE 11,01 : COLOR 0,7 : INPUT ", TOP. BLOW (LPI,TI)
- COLOR 7,0 : 60TO 2110 2750 IF Z$=CHR$(0)+CHR$(72) OR ls='8' THEN LOCATE 11,DI : COLOR 7,0 : PRINT USING ' lit.I'; TOP.8 LOW (LPI,TI) :
GOTO 2640 ELSE 2720 2760 2770- LOCATE 12 DI : L$='12' : COLOR 0,7 : PRINT USING ' lit.l*; BOTTOM. BLOW (LPI,TI) : LOCATE 12,01 2780 Z$=INKEYs : IF Z$=" THEN 2780 ELSE IF Z$=CHR$(0)+CHR$'80) OR Z$='2' THEN COLOR 7,0 : FRINT USING ' lit.I';
B0TTDM. BLOW (LPI,TI) : 60TO 2830 2790 IF Z$=CHR$(0)+CHR$l66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$f62) THEN 4690 2900 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60SUB 4880 : LOCATE 12,01 : COLOR 0,7 : INPUT ",
BOTTOM. BLOW (LPI,TI) : COLOR 7,0 : 60TO 2110 2810 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 12,DI . COLOR 7,0 : PRINT USING ' lit.I'; BOTTOM. BLOW (LPI,TI)
- GOTO 2710 ELSE 2780 2820 i 2830 LOCATE 13,DI : Lf='13' : COLOR 0,7 : PRINT USING 'llt.l';SS. WATER. LEVEL (LPI,TI) : LOCATE 13,DI l 2840 Z$=INKEY$ : IF Z$=" THEN 2840 ,
2S50 IF Z$=CHR$(0)+CHR$l80) OR Z$='2' THEN COLOR 7,0 : PRINT USING ' lit.I';S6. WATER. LEVEL (LPI,TI) : 60 7 2900 1 2860 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 2370 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : GOSUB 4G80 : LOCATE 13,01 : COLOR 0,7 : INPUT ",
- 56. WATER.LEVELILPI,TI) : COLOR 7,0 : GOTO 2110 2680 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 13,01 : COLOR 7,0 : PRINT USING 'llt.l*;
SG. WATER. LEVEL (LPI,TI) : 60TO 2770 ELSE 2840 2890 i 2900 IF LPI=LCOPSI THEN 2930 ELSE IF LPI:1 THEN 2430 ELSE IF LPI:2 THEN 2440 ELSE IF LPI=3 THEN 2450 ELSE STOP 2910 2920 i
2930 e+ OTHER CWiPONENTS ++
2940 '
2950 IF L$='17L' THEN 2980 ELSE IF L8='li.' THEN 3080 ELSE IF Lf='17R' THEN 3150 ELSE IF Lf='18R' THEN 3220 2960 IF Lf='22L' THEN 3210 ELSE IF Lf='23L' THEN 3360 ELSE IF Lf='22R' THEN 3430 ELSE IF Lf='23R' THEN 3500 t 2970 If='0C' i 2980 LOCATE 17,33 : Lf='17L' : COLOR 0,7 : PRINT USING ' lit.I';LET00WN.FLOWITI) : LOCATE 17,33 2990 Z$=lNKEYs : IF Z$=" THEN 2990 I 3000 IF Z$=CHR$(0)+CHR$(80) OR Z$="2' THEN COLOR 7,0 : PRINT USING ' lit.I'; LETDOWN.FLOWITI) : 60TO 3080
[
3010 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690
~3020 IF Z$=CHR$(0)+CHR$(64) THEN COLCR 7,0 : 60SUB 4880 : LOCATE 17,33 : COLOR 0,7 : INFUT ",LETD0WN.FLOWITI) <
- COLOR 7,0 : GOTO 2110 F-6
APPENDl! F: DATA.8AS 3030 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN LOCATE 17,33 : COLOR 7,0 : PRINT USING ' lit.I'; LETDOWN. FLOW (TI) :
60TO 3040 ELSE 2990 3040 IF LOOPSI=2 THEN LPI=2 : 01:C1+20 : ELSE IF LOOPSI=3 THEW LPI=3 : DI=CI+30 3050 Ir LOOPSI=4 THEN LPI:4 : DI=CI+40 3060 !$='56' : 60TO 2830 3070 3080 LOCATE 18,33 : L1='18L' : COLOR 0,7 : PRINT USIN6 ' lit.I'; LETDOWN. TEMP (TI) : LOCATE 18,33 -
3090 Z$=lNKEY$ : IF Z$=" THEN 3090 3100 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING ' lit.I'; LETDOWN. TEMP (TI) : GOTO 3150 3110 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3120 IF Z$=CHR$(0)+CHR$l64) THEN COLOR 7,0 : EOSUB 4880 : LOCATE 18,33 : COLOR 0,7 : INPUT ", LETDOWN. TEMP (TI)
- COLOR 7,0 : GOTO 2110 3130 IF Z$=CHR$10)+CHR$(72) OR Z$='8' THEN LOCATE 18,33 : COLOR 7,0 : PRINT USING ' lit.I'; LETDOWN. TEMP (TI) :
60TO 2980 ELSE 3090 3140 3150 LOCATE 17,72 : L8='17R* : COLOR 0,7 : PRINT USING ' lit.I'; CHAR 61NG. FLOW (TI) : LOCATE 17,72 3160 Z$=lNKEY$ : IF Z$=" THEN 3160 3170 IF Z$=CHR$(0)+CHR$(80) CR Z$='2' THEN COLOR 7,0 : PRINT USING 'lli.I'; CHARGING. FLOW (TI) : 60TO 3220 3180 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3190 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 605U8 4880 : LOCATE 17,72 : COLOR 0,7 : INPUT ", CHARGING.FLOWITI)
- COLOR 7,0 : 60TO 2110 3200 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 17,72 : COLOR 7,0 : PRINT USING 'lle.I'; CHARGING.FLCWITI) :
GOTO 3080 ELSE 3160 3210 3220 LOCATE 18,72 : L8='18R' : COLOR 0,7 : PRINT USING 'lli.l*; CHAR 61NG. TEMP (TI) : LOCATE 18,72 3230 Z$=lNKEY$ : IF Z$=" THEN 3230 3240 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING 'lli.4'; CHAR 61NG. TEMP (TI) : GOTO 3290 3250 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3260 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : GOSUB 4S80 : LOCATE 18,72 : COLOR 0,7 : INPUT ", CHARGING. TEMP (TI)
- COLOR 7,0 : 60TO 2110 3270 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 18,72 : COLOR 7,0 : PRINT USING ' lit.I'; CHARGING. TEMP (TI) :
60TO 3150 ELSE 3230 3280 3290 LOCATE 22,32 : Lf='22L' : COLOR 0,7 : PRINI USING 'llit.I';PIR. PRES (TI) : LOCATE 22,32 3300 Z$=lNKEY$ : IF Z$=" THEN 3300 3310 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING 'llit.I';PIR. PRES (TI) : SOTO 3360 3320 IF Z$=CHR$(01+CHRf(66) THEN 3580 ELSE IF Z$=CHR$(0)+ChR$(62) THEN 4690 3330 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60509 4600 : LOCATE 22,32 : COLOR 0,7 : INPUT ",PIR. PRES (TI) :
COLOR 7,0 : GOTO 2110 3340 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN LOCATE 22,32 : COLOR 7,0 : PRINT USINS 'llit.t';PIR.PRESITI) :
60TO 3220 ELSE 3300 3350 3360 LOCATE 23,33 : L$='23L' : COLOR 0,7 : PRINT USINS 'til.I';PIR. WATER. LEVEL (TI) : LOCATE 23,33 3370 Z$=lNKEY$ : IF Z$=" THEN 3370 3380 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USINS 'lli.I';PIR. WATER. LEVEL (TI) : 60TO 3430 3390 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3400 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60SUB 4880 : LDCATE 23,33 : COLOR 0,7 : INPUT ",
PIR. WATER. LEVEL (TI) : COLOR 7,0 : GOTO 2110 3410 IF Z$=CHR$(0)+CHR$(72) CR Z$='S' THEN LOCATE 23,33 : COLDR 7,0 : PRINT USING ' lit.l*;PZR. WATER. LEVEL (TI)
- 60TO 3290 ELSE 3370 3420 3430 LOCATE 22,72 : L8='22R' : COLOR 0,7 : PRINT USINS ' lit.t';T. AVE (TI) : LOCATE 22,72 l 3440 Z$=lNKEY$ : IF Z$=" THEN 3440 3450 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINI USING ' lit.t';T. AVE (II) : 6010 3500 F-7
APPE*III F: DATA.8AS 3460 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3470 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 605U8 4880 : LOCATE 22,72 : COLOR 0,7 : INPUT ,T.AVEITI) :
COLOR 7,0 : 60TO 2110 3480 IF Z$=CHR$(0)+CHR$(72) OR Z$='B' THEN LOCATE 22,72 : COLOR 7,0 : PRINT USING ' lit.l*;T. AVE (TI) :
60TO 3360 ELSE 3440 3490 3500 LOCATE 23,72 : L8='23R' : COLOR 0,7 : PRINT USING '848.I';T.COLDITI) : LOCATE 23,72 3510 Z$=INKEY$ : IF Z$=" THEN 3510 3520 IF Z$=CHR$(0)+CHR$(80) OR Z$='2' THEN COLOR 7,0 : PRINT USING ' lit.I';T.COLDITI) : GOTO 3560 3530 IF Z$=CHR$(0)+CHR$(66) THEN 3580 ELSE IF Z$=CHR$(0)+CHR$(62) THEN 4690 3540 IF Z$=CHR$(0)+CHR$(64) THEN COLOR 7,0 : 60509 4880 : LOCATE 23,72 : COLOR 0,7 : INPUT ",T. COLD (TI) :
COLOR 7,0 : 60TO 2110 3550 IF Z$=CHR$(0)+CHR$(72) OR Z$='8' THEN LOCATE 23,72 s' COLOR 7,0 : PRINT USING ' lit.I';T.COLDITI) :
60TO 3430 ELSE 3510 3560 IF TI=1 THEN 2180 ELSE 2270 3570 3580 NEIT TI 3590 COLOR 7,0 : CLS : LOCATE 12,24 : PRINT 'LDADINS PARAMETERS & DATA MODULE' : Is='PRM& DATA 6270' 3600 CHAIN 'PRMtDATA' 3610 3620 3630
- HELP PESSAGES
- 3640 3650 3660 CLS : KEY 4,*t'+CHR$(13) : LOCATE 11,21 : COLOR 0,7 3670 PRINT ' CAUTION '; : COLOR 7,0 : PRINT
- To obtain accurate results,'
3680 PRINT TAB (21);' auxiliary feedwater flow must be zero.'
3690 PRINT TAB (21);'Teepering flow, if any, east be known' 3700 PRINT TAB (21);'or included in th'e seasured value of' 3710 PRINT TAB (21);'sain feedwater flow.' : LOCATE 25,16 3720 PRINT ' Press '; : COLOR 0,7 : PRINT
- F4 '; : COLOR 7,0 : PRINT
- for help, or to continue *;
3730 COLOR 0,7 : PRINT
- space har '; : COLOR 7,0 : PRINT '.';
3740 Z$=lHKEY$ : IF Z$='t' THEN 3760 ELSE IF Z$ 0CHR$(32) THEN 3740 ELSE RETURN
- !750 3760 CLS : LOCATE 9,11 . ,
3770 PRINT 'The auxiliary feedwater nozzle say be located in the steas' 3780 PRINI TAB (11);' filled region of the steam generator. Teepering flow is' 3790 PRINT TAB (11);'sosetimes provided to avoid water hanner in the auxiliary' 3800 PRINT TAB (ll);'feedwater line. A sidestreas from the sain feedwater line' 3810 PRINT TABill);'to the auxiliary feedwater line keeps it free free steas.'
3820 PRINT TAB (11);'Thus, cold auxiliary feedwater, when introduced, contacts' 3830 PRINT TABill);' water, not steaa, downstreas from the auxiliary feedwater' 3840 PRINI TABill);' valve and precludes water hasser.' : 605UB 4950 3850 Z$=INKEY$ : IF Z80CHR$(32) THEN 3850 ELSE RE1 URN 3860 3870 GOSUB 4380 : LOCATE 4,32 : PRINT 'Systes Conditions' 3880 LOCATE 7, 7 : PRINT '!. To obtain an accurate result for thermal power, the reactor' 3890 LOCATE 8,11 : PRINT ' core and cooling systes aust be at thersal equilibrius.'
3900 LOCATE 9,11 : PRINT 'Specifically, T ave must be constant. Otherwise, the result' 3910 LOCATE 10,11 : PRINT 'for thereal power will be in error by an asount that is equal' 1 3920 LOCATE 11,11 : PRINT 'to the energy per unit time stored in or released from the core' 3930 LOCATE 12,11 : PRINT 'and cooling systes.'
3940 LOCATE 14, 7 : PRINT '2. In addition, flows and liquid levels should be constant. If' 3950 LCCATE 15,11 : PRINT 'they are not, their effect can be included in the analysis by' F-8
I APPENDII F: DATA. BAS 3960 LOCATE 16,11 : PRINT ' 'taking a second set of data within the next few hours. The' 3970 LOCATE 17,11 : PRINT ' analytical routine will calculate the effect of these changes' 3980 LOCATE 18,11 : PRINT 'andprovidetwoadjustedvaluesofpowerwhichwillcorrespond' 3990 LOCATE 19,11 : PRINT 'with the two sets of data taken.' : 60508 4410 ,
4000 4010 605U8 4380 : LOCATE 4,35 : PRINT ' Data Entry' 4020 LOCATE 6, 7 : PRINT 't. Values aust be entered in order from top to bottoe.'
4030 LOCATE 8, 7 : PRINT '2. The number pad should be locked out, so that the lef t and right' 4040 LOCATE 9,11 : PRINT ' arrow keys (the number pad ';CHR$(34);'4';CHR$(34);' and ';CHR$(34);'6';
4050 PRINT CHR$(34);' keys) will save the' 4060 LOCATE 10,11 : PRINT ' cursor as desired. If the arrow keys are not working, press "; : COLOR 0,7 4070 LOCATE 11,11 : PRINT
- Nun Lock '; : COLOR 7,0 : PRINT *.*
4000 LOCATE 13, 7 : PRINT '3. To enter an actual value, nove the' cursor to the appropriate' 4090 LOCATE 14,11 : PRINT 'coluen relative to the deciaal point and then key in the digits.'
4100 LOCATE 15,11 : PRINT 'If a wrong digit is keyed in, write over it. The number of' 4110 LOCATE 16,11 : PRINT ' digits entered should be limited to the highlighted field. Do' 4120 LOCATE 17,11 : PRINT 'not press the '; : COLOR 0,7 : PRINT ' ';CHR$( 17)+CHR$(196)+CHR$(217);" ';
4130 COLOR 7,0 : PRINT ' key until af ter the last digit is keyed in.'
4140 LOCATE 19, 7 : PRINT '4. If an incorrect value is keyed in and entered, do not try to' 4150 LOCATE 20,11 : PRINT ' correct it now. Complete the entry of data and return to' 4160 LOCATE 21,11 : PRINT *the DATA & PARMETERS MENU. Then select the Corrections option.' : EOSUB 4410 4170 IF Is='0 DATES' THEN 4190 ELSE 660 4180 (190 60SUB 4380 : LOCATE 4,38 : PRINT 'Date' 4200 LOCATE 11,16 : PRINT 'The date say be entered in any format. Hcwever,'
4210 PRINT TAB (16);'if a cosaa is used, for example, to separate the' .
4220 PRINT TAB (16);' day and year, then the first character keyed in' : PRINT TAB (16);'aust be a quotation mark.'
4230 605UB 4410 : GOTO 660 4240 4250 GOSUB 4300 : LOCATE 4,38 : PRINT ' Time' 4260 LOCATE 12,18 : FRINI ' Time aust be keyed in using 24-hour format, fer' 4270 PRINT TAB (!B);' example,1435 for 2:35 ps. A colon say not be" 4280 PRINT TAB (18);'used to separ4te hours and sinutes.' : 605UB 4410 : 60TO 660 4290 4300 CLS : LOCATE 3,31 : PRINT ' HELP FOR DATA INPUT' 4310 LOCATE 12,19 : PRINT 'One set of data is adequate if pressurizer' 4320 LOCATE 13,19 : PRINT ' level, steas generator levels, and feed '
4330 LOCATE 14,19 : PRINT ' water temperature are at equilibrius."
4340 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT 'To continue, press the ";
4350 COLOR 16,7 : PRINT ' space bar "; : COLOR 7,0 : PRINT '.*;
4360 Z$=INKEY$ : IF ISOCHR$(32) THEN 4360 ELSE 590 4370 4380 CLS : LOCATE 3,31 : PRINT ' HELP FOR DATA INPUT' 4390 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT
- To continue, press the ';
4400 COLOR 16,7 : PRINT ' space bar '; : COLOR 7,0 : PPINT '.'; : RETURN 4410 Z$=INKEY$ : IF Z80CHR$(32) THEN 4410 ELSE RETURN 4420 Z$=lNKEY$ : IF Z$=" THEN 4420 ELSE 680 4430 I$=INKEY$ : IF Z8 0CHR$(32) THEN 4430 ELSE CLS : If='PRMDATA 6270' : 60SUB 4450 : CHAIN 'PRMDATA' 4440 CLS : It='PRM DATA 340' : GOSUB 4450 : CHAIK 'PRM DATA' 4450 LOCATE 13,18 : PRINT ' LOADING PARAMETERS & DATA MODULE INTO PEMORY' : RETURN 4460 4470 CLS : COLOR 7,0 : KEY OFF : KEY 4,'t'+CHR$(13) : KEY 6,'P+CHR$(13) 4480 LOCATE 25, 2 : PRINT ' Press '; : COLOR 0,7 : PRINT ' F4 '; : COLOR 7,0 : PRINT
- for help';
4490 PRINT ', '; : COLOR 0,7 : PRINT ' F6 '; : COLOR 7,0 : PRINT ' for eenu';
F-9 l
l _ _
APPEl~!!! F: DATA. BAS 4500 PRINT ' -or- Key in the value, and press '; : COLOR 0,7 : PRINT ' ";CHR$(17)+CHR$(196)+CHR$(217);' ';
4510 COLOR 7,0 : PRINT '.' RETURN -
4520 4530 ELS : COLOR 7,0 : KEY OFF : KEY 4,*-9'+CHR$(13) 4540 LOCATE 25, 9 : PRINT ' Press '; ~
COLOR 0,7 : PRINT
- F4 '; : COLOR 7,0 : PRINT
- for help *;
4550 PRINT * -or- Key in the value, and press '; : COLOR 0,7 : PRINT ' *;C!lR$(17)+CHR$(1961+CHR$(217);' ';
4560 COLOR 7,0 : PRINT '.' : RETURN 4570 4500 KEY OFF : KEY 4," : KEY 6," KEY 8,"
4590 CLS : LOCATE 25,2 : COLOR 0,7 : PRINT ' F4 '; : COLOR 7,0 : PRINT * = help, ';
4400 COLOR 0,7 : PRINT ' ';CHR$(25);' '; : COLOR 7,0 : PRINT * =down/right, '; i COLOR 0,7 4610 PRINT * ';CHR$(24);' '; : COLOR 7,0 4620 PRINT * =up/left, *; a COLOR 16,7': PRINT ' F6 '; : COLOR 7,0 : PRINT
- ri.nitiate entry, & ';
4630 COLOR 0,7 : PRINT ' F8 '; : COLOR 7,0 : PRINT * = exit.'; : RETUfiN 4640 4650 LOCATE 25,21 : PRINT 'After responding, strike the '; : COLOR 16,7 4660 PRINT ' ";CHR$(17)+CHR$(196)+CHR$(217);' ';
4670 COLOR 7,0 : PRINT ' key.'; : RETURN 4680 4690 6050B 4940 4700 LOCATE 6, 7 : PRINT *t. If more than one entry need to be corrected, corrections can be' 4710 LOCATE 7,11 : PRINT 'done in any sequence by saving the cursor.'
4720 LOCATE 9, 7 : PRINT '2. The number pad should be locked out, so that the lef t, right, up,'
4730 LOCATE 10,11 : PRINT 'and down arrow keys (the number pad ';CHR$l34);'2';CHR$(34);','CHR$(34);'4';
4740 PRINT CHR$(34);',';CHR$(34);'6';CHR$(34);', and';CHR$(34);'8';CHR$(34);' keys!'
4750 LOCATE 11,11 : PRINT 'will nove the cursor as desired. If the arrow keys are not' 4760 LOCATE 12,11 : PRINT ' working, press the *; : COLOR 0,7 : PRINT ' Nun Lock *; : COLOR 7,0 : PRINT '.'
4770 LOCATE 14, 7 : PRINT '3. To correct the expression for tha date, use quotation marks if' 4780 LOCATE 15,11 : PRINT 'the expression includes a cassa. To correct tiae, use 24-hour' 4790 LOCATE 16,11 : PRINT ' format without a colon separating hours and seconds.'
, 4800 LOCATE 19, 7 : PRINT '4 To correct a nuserical value, nove the cursor to the appropriate' 4810. LOCATE 19,11 : PRINT 'coluan relative to the deciaal point and then key in the digits.'
4820 LOCATE 20,11 : PRINT 'If a wrong digit is keyed in, write over it. The number of" 4830 LOCATE 21,11 : PRINT ' digits entered should be limited to the highlighted field. 00' 4840 LOCATE 22,11 : PRINT 'not press the '; : COLOR C,7 : PRINT ' ';CHR$( 17)+CHR$(196)+CHR$(217);' ';
4850 COLOR 7,0 : PRINT ' key until af ter the last digit is keyed in.'
4960 Z$=INKEY$ : IF Z$=" THEN 4810 ELSE 2110 4870 48B0 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25, 2 : PRINT ' Move cursor with '; : COLOR 0,7 4890 PRINT ' ';CHR$(196)+CHR$(16);' '; : COLOR 7,0 : PRINT ' and '; : COLOR 0,7 4900 PRINT ' ';CHR$(17)+CHR$(196);' '; : COLOR 7,0 : PRINI ' -and- ';
4910 PRINT ' Key in the new value, and press '; : COLOR 16,7 : PRINT * ";CHR$(17)+CHR$(196)+CHR$(217);' ";
4920 COLOR 7,0 : PRINT '.'; : RETURN 4930 4940 COLOR 7,0 : CLS : LOCATE 3,28 : PRINT ' HELP FOR DATA CORRECTION' 4950 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT 'To contirue, press the *;
4960 COLOR 16,7 : PRINT ' space bar '; : COLOR 7,0 : PRINT '.'; : RETURN 4970 4980 F-10
k'4F IDII F: DATA. BAS l 4990 nesenem 5000
- DISPLAY a 5010 useusene 5020 5030 LOCATE 1,2 : FOR !!=2 TO 78 : PRINT CHR$(196); : NEIT 5040 LOCATE 3,2 : FOR 11=2 TO 78 : PRINT CHR$(196); : NEIT 5050 LOCATE 5,2 : FOR !!=2 TO 78 : PRINT CHR$(196); : GIT 5060 LOCATE 14,2 : FOR 11=2 TO 78 : PRINT CHR$(196); : NEIT 5070 LOCATE 19,2 : FOR 11=2 TO 78 : PRINT CHR$(196); : NEIT 5000 LOCATE 24,2 : FDW 11=2 TO 78 : PRINT CHR$(196); NEIT 5090 FOR II= 1 TO 23 : LOCATE II,1 : PRINT CHR$(179) :' NEIT : LOCATE 4,40 : PRINT CHR$(179) 5100 FOR 11=15 TO 23 : LOCATE II,40 : PRINT CHR$(179) : NEIT
'5110 FOR 11= 2 TO 23 : LOCATE 11,79 : PRINT CHR$(179);: NEIT 5120 LOCATE 1, 1 : PRINT CHR$(218);: LOCATE 1,79 : PRINT CHR$(191);
5130 LOCATE 3, 1 : PRINT CHR$(195);: LOCATE 3,79 : PRINT CHR$(180);
5140 LOCATE 5, 1 : PRINT CHR$(195);: LOCATE 5,79 : PRINT CHR$(180);
5150 LOCATE 14, I : PRINT CHR$(195);: LOCATE 14,79 : PRINT CHR$(180);
5160 LOCATE 19, 1 : PRINT CHR$(195);: LOCATE 19,79 : PRIN7 CHR$(180);
5170 LOCATE 3,40 : PRINT CHR$(194); : LOCATE 5,40 : PRINT CHR$(193);
5180 LOCATE 14,40 : PRINT CHR$(194); : LOCATE 19,40 : PRINT CHR$(197);
5190 LOCATE 24,40 : PRINT.CHR$(193);
5200 LOCATE 24, 1 : PRINT CHR$(192); : LOCATE 24,79 : PRINT CHR$(217); : LOCATE 1,1 5210 COLOR 7,0 : BI=5 5220 LOCATE 1,65 : PRINT ' Set';TI;'of';0ATA.SETSI 5230 LOCATE 2,36 : PRINT ' TEST DATA' 5240 LOCATE 4, 8 : PRINT 'Date: '
5250 LOCATE 4,50 : PRINT ' Time (hhea): '
5260 LOCATE 6, 3 : PRINT 'Steaa Generators:'
5270 LOCATE 8, 5 : PRINT ' Steam pressure (psia)*
5280 LOCATE 9, 5 : PRINT ' Fee @ ater flow (sillions of Ib/hr)"
5290 LOCATE 10, 5 : PRINT 'Feedwater teaperature (*;CHR$(248);'F)'
5300 LOCATE 11, 5 : PRINT ' Surface blewdown (gpal' 5310 LOCATE 12, 5 : PRINT 'Bottoe blevdown (gpal' 5320 LOCATE 13, 5 : PRINT ' Water level (inches)'
5330 LOCATE 15, 3 : PRINT ' Letdown Line:'
5340 LOCATE 17, 5 : PRINT ' Flow (gpal' 5350 LOCATE 18, 5 : PRINT 'Teaperature (';CHR$(248);'F)*
5360 LOCATE 20, 3 : PRINT ' Pressurizer:'
5370 LOCATE 22, 5 : PRINT ' Pressure (psia)'
5380 LOCATE 23, 5 : PRINT ' Water Level (inches)'
- 5390 LOCATE 15,42 : PRINT ' Charging Line:'
5400 LOCATE 17,44 : PRINT ' Flow (gpal' 5410 LOCATE 18,44 : PRINT 'Teaperature (';CHR$(248);*F)'
5420 LOCATE 20,42 : PRINT ' Reactor:'
5430 LOCATE 22,44 : PRINT 'T ave (';CHR$(248);'F)'
5440 LOCATE 23,44 : PRINT 'I cold (';CHR$(248);'F)' : RETURN 5450 5460 TTIMEs(TI)=RIGHT$(STR$(TTIMEITII+10000),4) : RETURN 5470 5480 FOR LPII=1 TC LOOPSI : IF LPII=1 THEN S$='A' ELSE IF LPII=2 THEN S$='B' ELSE IF LPII:3 THEN S$='C' 5490 IF LP!I=4 THEN S$='D' 5500 5510 -IF LOOPSI=2 THEN CI=52 ELSE IF LOOPSI:3 THEN CI:42 ELSE IF LOOPSI:4 THEN CI:32 5520 DI=CI+10eLP11 i
?
F-11
APPEZIIFaDATA. BAS 5530 5540 LOCATE 4,15 : PRINT USING '\ \';DDATE$
5550 LOCATE 4,64 : PRINT TTIMEf(TI) 5560 LOCATE 6,DI+2 : PRINT S$
5570 LOCATE 8,DI-1 : PRINT USING 'till.I'; STEAM. PRES (LPil,TI) 5500 LOCATE 9,DI : PRINT USING *t.lil*;FEEDWATER.FLOWILPlI,TI) 5590 LOCATE 10,DI : PRINT USING ' lit.l';FEEDWATER. TEMP (LPII,TI) 5600 LOCATE 11,DI : PRINT USING 'lll.f'; TOP. BLOW (LPl!,TIl 5610 LOCATE 12,DI : PRINT USING ' lit.I'; BOTTOM. BLOW (LPil,TI) 5620' LOCATE 13,DI : PRINT USING 'Sti.l*;SS. WATER. LEVEL (LPil,TZ1 : NEIT 5630 LOCATE 17,33 : PRINT USING '946.I';LETD0 H.FLOWITI) 5640 LOCATE 18,33 : PRINT USIN6 'itt.I'; LETDOWN. TEMP (TI) 5650 LOCATE 22,32 : PRINT USING 'Stil.t';PIR. PRES (TI),
5660 LOCATE 23,33 : PRINT USIN6 'llt.t';PZR. WATER. LEVEL (TI) 5470 LOCATE 17,72 : PRINT USING ' lit.I';CHARGIh6.FLOWITI) 5690 LOCATE 1B,72 : PRINT USING 'lll.l'; CHAR 6!NG. TEMP (TI) 5690 LOCATE 22,72 : PRINT USING 'llt.8';T. AVE (TI) 5700 LOCATE 23,72 : PRINT USING 'itt.I';T. COLD (TI) : RETURN 5710 END F-12
APPENDIX G ANALYSIS. BAS O
9
APPENDIX G: ANALYSIS. BAS TABLE OF CONTENTS Page MENU G- 1 CALCULATIONS G- 2
' Delta Time G- 2 Steam Generators G- 2 Other Components G- 4 Power Dissipated G- 5 Reactor Power- G- 6 STORAGE G- 6 RECALL G- 7
~
TABLES. G- 8 Reduced Variables G- 8 Limits of Applicablity G- 0 Sub-region and Phase Identification G- 9 Sub-region 1 G- 9 Sub-region 2 G-10 Saturation G-13 j G-iii
APPEND!I 6: ANALYSIS. BAS 10 lHHHHHHH' 20 ** ANALYSIS. BAS **
30 *ntunnunte 40 50 GH'HHH 60
- C02 0N '
70 HHHHH 80 90 DEFDBL A-Z 100 110 REM Parameters 120 COMON CARRYOVER.A, CARRYOVER.B, CARRY 0tFR ', CARRYOVER.D, LOSS. COEFFICIENT,NONRERECT. AREA,PIR.!D 130 COMON RISER. NUMBER, RISER.00,ConDUCTIViif INSULATION. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP.EFF,RC. PUMP.PWR,SS.!D,LOCVETS 150 160 REM Data 170 COMON BOTT0M. BLOW O , CHAR 61NS. ROE U LeiAR6 INS. TEMP O ,FEEDWATER. ROW O ,FEEDW ATER. TEMP O ,LETDI C R0W O 180 Ca m 0N LETDOWN. TEMPI),PZR.PRESO ,PIR. WATER. LEVEL O , STEAM. PRES O ,T.AVEO ,T.CDLDO ,TTIMEO , TOP.'tLOWU 190 COM ON SG.NATER. LEVEL O , DATA.SETSI,DDATEl, PLANTS, UNITS 200 210 REM Auxiliary Results 220 C020N A,B, BOTTOM. BLOW.DENSITYO, DELTA. TIME, DRY. STEAM.ENTHALPYU,H,1,M0!STURE.ENTHALPY0,N,P,PSAT$
230 C0mCN PZR.DENSITYO,PIR.ENTHALPY0,SS. CROSS.SECTION,T,TSAT,V,MI,NI,CATA. RAS $,DIASNDSTIC.FLAS$ ,
240 C020N PAR AMETER. R A6 s , PR INT. RAG s, RESULTS. FLAG s , M ,78, Z $
250 260 IF If=' ANALYSIS' THEN 60TO 640 ELSE IF Is=' HEAT BALANCE
- THEh 605UB 3250 : CHA!N ' REPORTS' 270 IF I$=' MENU' THEN 310 280 290 300 unut' ,
310
- MENU '
320 'nnu' 330 340 CLS : TI:10 : BI:16 : LI:ll.: RI 70 .
350 LOCATE TI,LI : PRINT CHR$(201) : LOCATE TI,RI : PRINT CHR$(187) : LCCATE BI,RI : PRINT CHR$(188) 360 LOCATE BI,LI : PRINT CHR$(200) 370 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT-380 LOCATE BI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 390 FOR II=TI'2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEXT 400 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 410 420 LOCATE 25,21 : PRINT 'After responding, strike the '; : COLOR 16,7 430 PRINT * *;CHR$(17)'CHR$(196)+CHR$(217);' ';
440 COLOR 7,0 : PRINT
- key.';
450.
- ANALYSIS MENU ' : LOCATE 12,21 : PRINT '(A) Analyze Data' : LOCATE 12,46 470 PRINT '(C) MASTER MENU' 480 LOCATE 14,21 : PRINT 'IB) Display Results' : LOCATE 14,46 : PRINT '(D) Termination' 490 LOCATE 16,24 : PRINT
- Which would you like (A/B/C/D)? ' : LOCATE 16,57 : INPUT ",Is 500 510 IF If='A' OR Is='a' THEN If=" ANALYSIS' : 605UB SO : CHAIN 'PRMt0ATA' 520 IF If='B' OR I$='b' THEN 605UB 590 : CHAIN 'DISPLA'i' 530 IF If='C' OR I$='c' THEN Is=' INTRO 1920' : 605UB 580 : CHAIN 'INIRO' t 540 IF I$='D' OR Is='d' THEN CHA!N *END' ELSE 310 i
l 6-1 I
APPEGl! Gs ANALYSIS.8AS 550 560 CLS : LOCATE 13,18 : PRINT ' LOADING PARAMETERS & DATA MODULE INTO MEMORY' : RETURN 570 LOCATE 25,20 : PRINT 'To continue, press the '; COLOR 16,7 : PRINT
- space bar '; : COLOR 7,0 : PRINT ' .*;
500 CLS : LOCATE 13,20 : PRINT ' LOADING INTRODUCTION MODULE INTO MEMORY' RETURN 590 CLS : LOCATE 13,23 : PRINT ' LOADING DISPLAY MODULE INTO MEMORY' : RETURN 600 610 620 630 unseenueseen 640 e CALCULATIONS e 650 seuuneeseeen 660 670 CLS : LOCATE 8,36 : PRINT 'COMPUT!Hi' : IF DATA.SETSI:1 THEN 870 680 690 700 se DELTA TIPI **
710 720 FOR TI=1 TO 2 730 740 HR(TIl= INT (iTIME(TIl/100) : MINITI)=(ITIME(TI;i100-HR(TI))e100 : I'ME.HR(II)=HR(TI)+ MIN (TI)160 750 760 IF DIAGNOSTIC.FLA6f()'S' THEN 60TO 790 ELSE LPRINT : LPRINT TAB (12);*TI=';TI;' TIME =';TTIME(TI) 770 LPRINT TAB (12);'HRITIl=';HR(TI);' MIN (TI)=';MINITI);' TIME.HR='; TIME.HR(TI) 780 790 NEIT TI 800 810 IF TIME.HR(2) ( TIME.HR(1) THEN TIME.HR(21= TIME.HR(2)+24 820 DELTA. TIME = TIME.HR(21-TIME.HR(1) 830 B40 IF DIAGNOSTIC.FLA6f()'S' THEN GOTO 870 ELSE LPRINT : LPRINT TAB (12);' DELTA. TIME ='; DELTA. TIME 850 860 870 u STEAM GENERATORS se 880 890 56. CROSS.SECTION=3.1416e(SB.1DeSG.ID - RISER.NUMBEReRISER.0DeRISER.00) / 4 900 910 FOR TI = 1 TO DATA.SETSI 920 930 IF DIAGNOSTIC.FLA6s()'S' THEN BOTO 950 ELSE LPRINT :LPRINT TAB (12);'TI=';TI 940 950 PRINT : PRINT TA9(33);' Data Set';TI;'of'; DATA.SETSI : FRINT 960 970 FOR LI = 1 TO LOOPSI' 980 990 IF LI:1 THEN L$='A' ELSE IF LI=2 THEN L$='B' ELSE IF LI:3 THEN L$='C' ELSE IF LI=4 THEN L$='D' 1000 1010 IF DIABNOSTIC. FLAG $(>'S' THEN GOTO 1030 ELSE LPRINT : LPRINT TABI12);'LI=';LI 1020 1030 PRINT TAB (16); 'Stean Generator *;Ls; 1040 .
1050 B-2
APPENDII 62 ANALYSIS. BAS 1060
1070 1080 PRINT TAB (34);'Feedwater'; : Z$='FEEDWATER' : T= FEE 0 WATER. TEMP (LI,TI) : P= STEAM. PRES (LI,TI) : 605UB 3720 1090 FEEDWATER.ENTHALPY(LI,TI)=H 1100 FEEDWATER. POWER (LI,TI)=He(-FEEDWATER. FLOW (LI,TII)/1000!
1110
!!20 1130
- Surface Blowdown
- 1140 1150 PRINT TAB (34);' Surface Blowdown'; : Y$='TSAT' : Z$=' TOP BLOW' : P= STEAM. PRES (LI,TI) : 60SUB 3720 1160 TOP. BLOW.ENTHALPY(LI,TI)=H :. TOP. BLOW. DENSITY (LI,TI)=1/V 1170'*
1180 IF DIA6NOSTIC.FLA6$()'S' THEN 60TO 1210 ELSE LPRINT TAB (12);'V=';V; 1190 LPRINT ' TOP. BLOW. DENSITY (LI,TI)='; TOP. BLOW. DENSITY (LI,TI) 1200 1210 != TOP.BLCW(LI,TI)/7.48051950 '*60
1220 TOP. BLOW.LB.PER.HR(LI,TI)=I : REM E6 lb/hr 1230 TOP. BLOW. POWER (LI,TI)=TCP. BLOW.ENTHALPY(LI,TI)
- Bottos Blowdown
- 1270 1280 PRINT TAB (34);'Botton Blowdown'; : Z$=' BOTTOM BLOW' : T=(T+FEEDWATER. TEMP (LI,TII)/2 : 605UB 3720 1290 BOTTCM. BLOW.ENTHALPY(LI,TI)=H : BOTTOM. BLOW. DENSITY (LI,TI)=l/V 1300 1310 IF DIAGNOSTIC.FLAS$()'S' THEN BOTO 1340 ELSE LPRINT TAB (12);'V=';V; 1320 LPRINT ' BOTTOM. BLOW. DENSITY (LI,TI)='; BOTTOM. BLOW. DENSITY (LI,TI) 1330 1340 BOTTOM. BLOW.LB.PER.HR(LI,TI)= BOTTOM. BLOW (LI,TI)/7.4805195t*60
- BOTTOM.' BLOW. DENSITY (LI,TI)/1000000!
1350 REM E6 lb/hr 1360 BOTTOM. BLOW. POWER (LI,TI)= BOTTOM. BLOW.ENTHALPY(LI,TI) *BOTTCM. BLOW.LB.PER.HR(LI,TII/1000!
1370 REM E9 BTUs/hr 1380 1390 1400
- Steae
- 1410 1420 PRINT TAB (34); 'Steas'; : Z$=' STEAM' : T=TSAT : GOSUB 3720 : DRY. STEAM.ENTHALPY(LI,TI)=H 1430 1440 IF DIAtiNOSTIC.FLAS$()'S' THEN 60TO 1470 ELSE LPRINT : LPRINT 1450 LPRINT TAB (12);' DRY. STEAM.ENTHALPY(';LI;',';TI;') ='; DRY.$ TEAM.ENTHALPY(LI,TI) 1460 1470 PRINT TAB (34); ' Moisture'; : Z$='M0!STURE' : 605UB 3720 : MalSTURE.ENTHALPY (LI,TI) = H 1480 1490 IF DIA6NDSTIC.FLAS$()'S' THEN 60TO 1520 : LPRINT : LPRINT 1500 LPRINT TAB (12);'MulSTURE.ENTHALPY(';LI;',';TI;') ='; : LPRINT MOISTURE.ENTHALPY(LI,TI) 1510 1520 NEIT LI,TI : Z$=
1530 1540 IF I4 % SETSI=1 THEN 1680 1550 1560 FOR LI=1 TO LOOPSI 1570 1580 !=SG. WATER. LEVEL (LI,2)* BOTTOM. BLOW. DENSITY (LI,21-56. WATER. LEVEL (LI,1)* BOTTOM. BLOW. DENSITY (LI,1) 1590 EICESS.FEEIWATER. FLOW (LI)=SS. CROSS. SECT!0N/1728 *Il0 ELTA. TIME /1000000! : REM E6 lb/hr 6-3
l APPE4Dl! 61 ANALYSIS. BAS 1600 1610 IF DIAGNOSTIC.RAGlO'S' THEN GOTO 1660 : LPRINT : LPRINT TAB (12);'LI=';LI 1620 LPRINT TA8(12);'EICESS.FEEDWATER. FLOW (LI)=';EICESS.FEEDWATER. FLOW (LI)
)
1630 LPRINT TABil2);'80TTOM. BLOW. DENSITY (LI,2)='; BOTTOM. BLOW. DENSITY (LI,2) 1640 LPRINT TAB (12);* BOTTOM. BLOW. DENSITY (LI,1)='; BOTTOM. BLOW. DENSITY (LI,1) 1650 1660 NEIT LZ 1670 1680 FOR TI=1 TO DATA.SETSI : FOR LI:1 TO LOOPSI 1690 IF LI=1 THEN CARRYOVER = CARRY 0VER. A ELSE IF LI=2 THEN CARRYOVER = CARRY 0VER.B 1700 IF LI=3 THEN CARRYOVER = CARRY 0VER.C ELSE IF LI:4 THEN CARRV0VER= CARRYOVER.D 1710 ! =FEEDWATER. RDW ILI, TI) -EICES S . FEEDWATER. FLOW l LI) 1720 ST EAM. FLOW ILI, TI) = I-TOP. BLOW. LB. PER. fir ( LI, TI) -BO TTOM. BLO W. LB. PER. H R ( LI, TI) : REM E6 lb/hr 1730 STEAtl.ENTHALPY(LI,TI)= DRY. STEAM.ENTHALPY(LI,TI)*(1-CARRYOVER /100)+ MOISTURE.ENTHALPY(LI,TI)+CARRYDVER/100 1740 STEAILPOWER(LI,TI)= STEAM.ENTHALPY(LI,TI)* STEAM. FLOW (LI,TII/1000 : REM E9 BTUs/hr 1750 1760 NEIT LI,TI 1770 1780 1790 ** OTHER COMP 0NENTS **
1800 1810 TI=1 1820 PRINT ; PRINT TAB (33);' Data Set';TI;'of'; DATA.SETSI : PRINT l 1830 1840 IF DIABNOSTIC.RA650*S' THEN 60TO 1660 ELSE LPRINT : LPRINT TAB (12);'TI=';II:
1850 1860 PRINT TAB (16);'Other Components';
1870 1880 1890
- Letdown Line
- 1900 1910 PRINT TAB (34);' Letdown Line'; : Z$=' LETDOWN' : T= LETDOWN. TEMP (TI) : P=PIR. PRES (TI) : GOSUB 3720 1920 LETDCWN.ENTHALPY(TII=H -
1930 LEIDOWN.FLCW.LB.PER.HR(TIl= LETDOWN.FLOWITI)/7.49051954*60/V/1000000! : REM E6 lb/hr 1940 LETDOWN. POWER (TI)=H+ LETDOWN.FLON.LB.PER.HRITII/1000!" : REM E9 BTus/hr 1950 1960 1970
- Charging Line
- 1980 1990 PRINT TAB (34);' Charging Line'; : Z$='CHARGINB' : T=CHARSINS. TEMP (TI) : P=PIR. PRES (TI) : 60SUB 3720 2000 chm tNG.ENTHALPY(TI)=H 2010 CHARGINS. FLOW.LB.PER.HR(TI)=-CHARGING.FLOWITII/7.48051951*60/V/1000000! : REM E6 lb/hr 2020 CHAR 6ING. POWER (TIl=H+ CHARGING. ROW.LB.PER.HR(TII/1000! : REM E9 BTUs/hr 2030 2040 2050
- Insulation Losses e 2060 2070 IF INSULATION. THICKNESS = 0 THEN GOTO 2140 2080 2090 != LOSS. COEFFICIENT
- REFLECT. AREA 2100 I NSUL A T I ON . POWER I TI) = (! + CONDUCT!VI TY e NONREFLEC T. AREA * ( T. AVE ( TI)-1001/ INSULAT ION. THICKNES S
- 12) /1 E+09 2110 ,
2120 GOTO 2170 l 2130 6-4
APPENDl! 68 ANALYSIS. BAS 2140 INSULATION. POWER ( TI) = (LOSS. COEFFI CIENDREFLECT. ARE A l / I E+09 2150 2160 2170
- Pressu*izer Level Change e 2180 2190 PRINT TAB (34);' Pressurizer'; IF PIR.WATEF. LEVEL (ID=PZR. WATER. LEVEL (2) THEN 60TO 2200 ELSE GOTO 2210 2200 Y$='TSAT' : Z$='PIR' P=PZR.PRESITI) : GOLUB 3720 : 60TO 2230 2210 T. HOT (TI)=2eT. AVE (TI)-T. COLD (TI) 2220 Z$=' HOT LE6' : PnPIR. PRES (TI) : T=T. HOT (TI) : 60SUB 3720 2230 PZR.ENTHALPY(TIl=H : PZR. DENSITY (TIl=l/V 2240 2250 IF DIAGNOSTIC. RAG $O'S' THEN 60TO 2290 ELSE LPRINT TAB (12);*V=';V; TAB (46);'1/V =';1/V 2260
- PRINT TAB (12);*PZR.ENTHALPY(TIl=';PZR.ENTHALPY(TI); LPRINT' PIR. DENSITY (TI)=';PIR. DENSITY (TI) 2270 LPRINT TAB (12);'PIR. DENSITY (ll=';PZR. DENSITY (1);' PZR. DENSITY (2) s';PIR. DENSITY (2) 2200 2290 IF TI:1 AND DATA.SETSI=2 THEN TI=2 : GOTO 1620 2300 2310 IF DATA.SETSI:1 THEN 2500 2320 2330 PZR. CROSS.SECTION=3.1416*PIR.IDePIR.ID/4 2340 PIR. ROW =PZR. CROSS. SECT!0N/17284(PIR. WATER. LEVEL (2)+PZR. DENSITY (2)-
PIR. WATER. LEVEL (1)*PZR. DENSITY (1)l/ DELTA. TIME /1000000! : REM E6 lb/hr 2350 PZR. PO WER=PIR. ROW e (P ZR. ENTHALPY ( 1) +PIR. ENTH ALPY I 2) l /2/ iOOO ! : REM E9 BTUs/hr 2360 Z$=
2370 2380 IF DIACNOSTIC.RA680'S' THEN 60TO 2500 2390 LPRINT:LPRINT TAB (12);'PZR. WATER. LEVEL (1)=';PZR. WATER. LEVEL (1);' PIR. WATER. LEVEL (2)=';PZR. WATER. LEVEL (2) 2400 LPRINT TAB (12);'PIR.ENTHALPY(1)=';PZR.ENTHALPYt!);' PIR.ENTHALPY(2)=';PIR.ENTHALPY(2)~
2410 LPRINT TAB (12);'PIR.DEhSITY(ll=';PZR. DENSITY (1);' PIR. DENSITY (2)=';PZR. DENSITY (2) 2420 LPRINT TAB (12);'PZR. WATER. LEVEL (2)*PIR. DENSITY (2)-PZR. WATER. LEVEL (llePZR. DENSITY (1)=';
2430 PRINT PIR. WATER. LEVEL (2)*PIR. DENSITY (2)-PIR. WATER. LEVEL (1)*PZR. DENSITY (1) 2440 LPRINT TAB (12);'PIR.RDW+(PIR.ENTHALPY(1)+PZR.ENTHALPY(2))/2/IE3=';
2450 PRINT PZR. ROW +(PIR.ENTHALPY(1)+PZR.ENTHALPY(2))/2/1000!
2460 2470 CLS : LOCATE 13,20 : PRINT ' COMPLETING ANALYSIS AND STORINS RESULTS' 2480 2490 2=00
- Pumps e 2510 2520 RC. PUMP. POWER. BTU.PER.HR=-LOOPSI+RC. PUMP.EFF/100*RC. PUMP.PWR/292.675 : REM E9 BTUs/hr 2530 2540 2550 ** POWER DISSIPATED **
2560 2570
- Stean Generators
- 2580 2590 FOR TI=1 TO DATA.SETSI : FOR L1=1 TO LOOPSI 2600 S6. POWER (LI,TI)= STEAM.POWERILI,TII+ TOP. BLOW. POWER (LI,TI) + BOTTOM. BLOW. POWER (LI,TI)+FEEDWATER. POWER (LI,TI) 2610 NEIT LI 2620 2630
- Other Components e 2640 2650 OTHER. POWER (TI)= LETDOWN. POWER (TI)+CHARBING. POWER (Ill+PIR. POWER +1NSULATION. POWER (TI)+RC. PUMP. POWER. BTU.PER.HR 2660 GTHER. POWER.MWITIl=292.875*0THER. POWER (TI) 6-5 l
APPENDil 6 ANALYSIS. BAS 2670 2680 NEIT TI 2690 2700 CLS : LOCATE 13,20 : PRINT ' COMPLETING ANALYSIS AND STORING RESULTS' 2710 2720 2730 ** REACTOR POWER **
2740 2750 FOR TI:1 TO DATA.SETSI : TOTAL.56. POWER (TI)=0 2760 FOR LI=1 TO LOOPSI : SS. POWER.MWILI,TI)=292.875+SS. POWER (LI,TI) 2770 TOTAL.S6.POWERITI)= TOTAL.SB. POWER (TI)*S6. POWER.MW(LI,TI) : NEIT LI 2700 REACTOR. POWER.MW(TI)= TOTAL.SG. POWER (TI)+0THER. POWER.MWITI) : NEIT TI 2790 -
2000 2810 2820
- STORAGE
- 2830 2840 2850 DPEN 'RCS-CALC.'+ DOCKET $ AS 61 LEN=41 : FIELD 81,1 AS RF$,8 AS PH18,8 AS PH28,8 AS PF$,8 AS PP$,8 AS RPBf 2860 RESULTS.FLA68='S' .
2870 LSET RF$ = RESULTS.FLA68 : LSET PH1$ = MKD$(PIR.ENTHALPY(1)) : LSET PH2$ = MKD$(PZR.ENTHALPY(2))
2880 LSET PFS = MKD$(PIR. FLOW) : LSET PP$ = MKD$(PZR. POWER) : LSET RPB$=MK0$(RC. PUMP. POWER. BTU.PER.HR) 2890 PUT 11,1 : CLOSE il 2900 2910 DPEN 'SG-CALC.'+ DOCKET $ AS 82 LEN=104 292) FIELD 02,8 AS SHS,8 AS SF$,8 AS SPs,8 AS FH$,8 AS Fri,8 AS fps,8 AS IBHS,8 AS TBF$,8 AS TBP$,8 AS BBH$,
8 AS BBF$,8 AS BBP$,8 AS SSP $
2930 2940 FCR TI:1 TO DATA.SETSI : FOR LPI=1 TO LOOPSI 2950 2960 LSET TBHS = MKD$(TOP. BLOW.ENTHALPY(LPI,TI)) : LSET SH$ = MKD$(STEAM.ENTHALPY(LPI,TI))
2970 LSET TBFS = MKD$(T0P. BLOW.LB.PER.HR(LPI,TI)) : LSET SF8 = MKD$(STEAM. FLOW (LPI,TI))
2950 LSET TBPS = MKD$(TOP. BLOW. POWER (LPI,TI)) : LSET SP$ = MKD$(STEAM. POWER (LPI,TI))
2990 LSET BBHs = MKD$lBOTTOM. BLOW.ENTHALPY(LPI,TI)) : LSET FHf = MKD$(FEEDWATER.ENTHALPY(LPI,TI))
3000 LSET BBF$ = MKD$(BOTTOM. BLOW.LB.PER.HR(LPI,TI)) : LSET FFS = MKD$(FEEDWATER. FLOW (LPI,TI))
3010 LSET BSPS = MKD$(BOTTOM. BLOW. POWER (LPI,TI)) : LSET fps = MKD$(FEEDWATER. POWER (LPI,TI))
3020 LSET SGPS = MKD$lSS. POWER (LPI,TI))
3030 3040 PUT 82, (TI-1)
- LOOPSI + LPI : NEIT LPI,TI : CLOSE #2 3050 3060 OPEN '0C-CALC.'+ DOCKET $ AS 13 LEN=88 3070 FIELD 13,8 AS LH$,8 AS LF$,8 AS LPs,8 AS CH$,8 AS CF$,8 AS cps,8 AS 198,8 AS ops,8 AS OM$,8 AS RIPS,8 AS T*
3080 3090 FOR TI = 1 TO DATA.SETSI 3100 3110 LSET LHs = MKD$(LETDOWN.ENTHALPY(TI)) : LSET IP$ = MKD$(INSULATION. POWER (II))
3120 LSET LF$ = MKD$(LETDOWN. FLOW.LB.PER.HRITI)) : LSET OP$ = MKD$(OTHER. POWER (TI))
3130 LSET LPs : MKD$(LETDOWN. POWER (III) : LSET OM8 = MKD$(OTHER. POWER.MWITI))
3140 LSET CH$ = MKD$(CHARGING.ENTHALPY(TI)) : LSET RIPS = MKO$(REACTOR. POWER.MWITI))
3150 LSET CF8 = MKOf(CHAR 61NG. FLOW.LB.PER.HR(TI)) : LSET T8 = MKD$(TTIME(II))-
3160 LSET CPS = MKD$(CHARGING.POWERITII) 3170 3180 PUT 83, II : NEIT : CLOSE 83 : GOTO 310 3190 6-6
APPENDII 6: ANALYSIS. BAS 3200 PRINT : PRINT : PRINT : PRINT TAB (23);' CHECK DIRECTORY FOR RESULT.*;DOCKETf;' FILE' : PRINT : PRINT 3210 PRINT : STOP 3220 3230 3240 **********
3250
- RECALL
- 3260 ********H 3270 3280 3290 OPEN DOCKET $ A.i il LEN=159 3300 FIELD 01,32 AS PS,1 AS U$,3 AS D$,2 AS Ls,121 AS Is 3310 ET 51,1 LOOPSI = CVI(L$) : CLOSE 81 3320 3330 OPEN 'RCS-CALC.'+ DOCKET $ AS 41 LEN=41 : FIELD 01,1 AS RF$,8 AS PH1$,8 AS PH2$,8 AS PF$,8 AS PPs,8 AS RPBS 3340 SET 01,1 : PIR.ENTHALFY(1) = CVD(PHis) : PIR.ENTHALPY(2).= CVD(PH2$1 : PZR. FLOW = CVDfPF81 3350 PIR. POWER = CVD(PPs) : RC. PUMP. POWER. BTU.aER.HR = CVD(RPB$) : RESULTS. FLAGS = RF$ : CLOSE il 3360 3370 IF (RESULTS.FLA680'S' AND RESULTS.FLA6$0'C') THEN GOTO 3670 3380 3390 OPEN 'SG-CALC.'+ DOCKET $ AS 82 LEN=104 3400 FIELD 02,8 AS SHs,8 AS SF$,8 AS SPs,8 AS FHs,8 AS FFS,8 AS fps,8 AS TBHS,8 AS TBF$,8 AS TBPs,8 AS 5BH$,
3410 3420 TI:1 : LI=1 : FOR TI=1 TO DATA.SETSI : FOR LPI=1 TO LOOPSI : GET 82, (TI-1)
3440 TOP. BLOW.LB.PER.HR(LPI,TI) = CVD (TbF$) : STEAM. FLOW (LPI,TI) = CVD (SF8) 3450 TOP. BLOW. POWER (LPI,TIl = CVD (TBPS) : STEAM. POWER (LPI,TI) = CVD (SPs) 3460 BOTTOM. BLOW.ENTHALPY(LPI,TI) = CVD (BBH$1 : FEEDWATER.ENTHALPY(LPI,TI) = CVD (FH$)
3470 BOTTOM. BLOW.LB.PER.HR(LPI,TI) = CVD (BBF$1 : FEEDWATER. FLOW (LPI,TI) = CVD (FFS) 3480 BOTTOM. BLOW. POWER (LPI,TI) = CVD (BBP$1 : FEEDWATER. POWER (LPI,TI) = CVD (fps) 3490 SS. POWER (LPI,TI) = CVD (56Pfl 3500 3510 NEIT LPI,TI : CLOSE 82 3520 3530 OPEN '0C-CALC.'+ DOCKET $ AS 83 LEN=88 3540 FIELD 03,8 AS LHS,8 AS LF$,8 AS LPs,8 AS CHs,8 AS CF$,8 AS CP8,8 AS IPs,8 AS 0P8,8 AS oms,8 AS RIPS,8 AS T$
3550 3560 FOR TI = 1 TO DATA.SETSI : GET 83, TI 3570 3580 LETDOWN.ENTHALPY(TI) = CVD (LHS) : INSULATION. POWER (TI) = CVD (IPs) 3590 LETDOWN. FLOW.LB.PER.HRITIl = CVD (LF8) : OTHER.P0WER(TI) = CVD (ops) 3600 LETDOWN. POWER (TI) = CVD (LPS) : OTHER. POWER.MWITI) = CVD (0M$1 3610 CHARSING.ENTHALPY(TI) = CVD (CH$) : REACTOR. POWER.MWITI) = CVD (RIPS) 3620 CHARGING. FLOW.LB.PER.HR(TI) = CVD (CF8) : TTIME(TI) = CVD (TS) 3630 CHARGING. POWER (TI) = CVD (CPS) 3640 3650 NEIT : CLOSE 43 : RETURN 3660 3670 PRINT : PRINT : PRINT : PRINT TAB (23);' CHECK DIRECTORf FOR RCS-CALC.*; DOCKET $;' FILE' : PRINT : PRINT 3680 PRINT : STOP 3690 3700 6-7 1
1 l
APPENDII 62 ANALYSIS. BAS i 3710 ********** '
3720
- TABLES
- 3730 **********
3740 3750 IF Y$='TSAT' THEN 60TO 4580 3760 3710 37E0 ** RELUCED VARIABLES H 3170 3800 THETA = (T+459.671/1165.14 : BETA = P/3208.23488 3810 3820 IF DIA6NOSTIC.FLA6$(>'3' THEN 60TO 3850 3830 LPRINT:LPRINT TAB (12);'T=';T;' P=';P;' (ANALYSIS, LINE 6733)'
3840 3850 IF Y$='TSAT' THEN Y$=" : 60TO 4730 3860 3870 3880 ** LIMITS OF APPLICABILITY **
3890 3900 L0 = 15.743733270 : L1=-34.170619784 : L2 = 19.313807074 3910 THETA.1 = .96269117874 : THETA.2 = 1.3334620736 : THETA.3 = 1.6578866068 : THETA.T = .42199607316 3920 BETA.2 = 4.520795668 : BETA.L = LO+Ll* THETA +L2* THETA ^2 : BETA.L. PRIME = L1+2*L2* THETA 3930 3940 IF Is='M0!STURE' THEN SOTO 4730 ELSE IF Z$=' STEAM' THEN 60TO 5170 3950 3960 IF THETA ( THETA.T THEN 3970 ELSE 3990 3970 PRINT TAB (18);' Temperature is out of range. It is below' 3980 PRINT TA8(18);'the triple point (32.018 Fl.' : 60TO 4510 3990 4000 IF BETA (s yuFN 4010 ELSE 4030 4010 PRINT TAB (18);'AbsoPite pressure is zero or negative."
4020 PRINT TAB (18);' Negative esclute pressure is impossible.' : 60TO 4510 4030 4040 IF THETA ) THETA.3 THEN 4050 CLSE 4070 4050 PRINT TAB (IB);* Temperature is out of range. The upper limit is' r
4060 PRINT TAB (18);'1472 degrees F.* : 60TO 4510 4070 4000 IF THETA >= THETA.T AND THETA (= .6 AND BETA > 18.2* THETA-6.4 THEN 4090 ELSE 4150 4090 PRINT TAB (18);' Pressure is out of range. For tesperature' 4100 PRINT TAB (18);' equal to ';
- PRINT USING 'llle.t';T; 4110 PRINT ' degrees F,'; i PRINT
- the limit on pressure';
4120 PRINT TAB (18);'is ';
4130 PRINT USING '06448.I';3208.235+(18.2* THETA-6.4);
4140 PRINT
- psia." : GOTO 4510 4150 4160 IF THETA > .6 AND THETA (= THETA.1 AND BETA > BETA.2 THEN 4170 ELSE 4200 4170 PRINT TAB (18);' Pressure is out of range. For tesperature in' 4180 PRINT TAB (18);*the range from 239.4 to 662.0 degrees F, the' 4190 PRINT TAB (18);' upper limit is 14,503 psia.' : GOTO 4510 4200 4210 IF THETA > THETA.1 AND THETA ( iHETA.2 AND BETA > BETA.L THEN 4220 ELSE 4280 4220 PRINT TAB (18);' Pressure is out of range. For temperature' 423 FRINT TAB (18);' equal te '; : PRINT USING 'llit.l*;T; 4240 PRINT ' degrees F,'; : PRINT ' the limit on pressure';
6-8
APPENDII 63 ANALYSIS. BAS 4250 PRINT TAB (18);'is *;
4260 PRINT USING 'Ittet.t';221.2514.50377384* BETA.L; 4270 PRINT ' psia.' s GOTO 4510 4290 4290 IF THETA >= THETA.2 AND THETA (= THETA.3 AND BETA > BETA.2 THEN 4300 ELSE 4560 4300 PRINT TAB (18);' Pressure is out of range. For temperature in' 4310 PRINT TAB (18);'the range free 1094 to 1472 degrees F, the' 4320 PRINT TAB (18);' upper limit is 14,503 psia.' : 60TO 4510 4330 4340 IF T > 705.47 THEN 4350 ELSE 4380 4350 PRINT TAB (18);'Teeperature is out of range. It is above the' 4360 PRINT TAB (18);' critical point (705.47 degrees F). Pressure' 4370 PRINT TAB (18);'uill not condense supercritical steae.' : GOTO 4510 4300 4390 IF T ( 32.018 THEN 4400 ELSE 4580 4400 PRINT TAB (18);'Teeperature is out of range. It is below' 4410 PRINT TAB (18);'the triple point (32.018 F).' : GOTO 4510 4420 4430 IF P > 3208.2 THEN 4440 ELSE 4460 4440 PRINT TAB (18);' Pressure is out of range. It is above the' 4450 PRINT TAB (18);' critical point (3208.2 psia).' : GOTO 4510 4460 4470 IF P ( 8.864999E-02 THEN 4480 ELSE 4580 4480 PRINT TAB (18);' Pressure is out of range. It is below' 4490 PdlNT TAB (18);'the triple point (0.08865 psia).' : GOTO 4510 4500 4510 LOCATE 25,1 : PRINT SPC(79); LOCATE 25,22,0 : PRINT
- To continue, press the ';
4520 CDLOR 16,7 : PRINT
- spaca bar '; : COLOR 7,0 : PRINT '.';
4530 Z$=lNKEY$: IF Z$(>CHR$(32) THEN 4530 ELSE GOTO 310 4540 4550 4560 ** SUB-REGION AND PHASE IDENTIFICATION et 4570 4580 Skit =-7.6912345648 : SK20=-26.080236968 : SK3t=-168.17065468 : SK4t= 64.232855048 : SK5t=-!!8.96462251 4590 SK60= 4.167117328 : SK70= 20.97506764 : SK88= IE+09 : SK99= 6 4600 4610 IF THETA > 1 THEN 60TO 4680 ELSE IF Y$="TSAT' THEN GOSUB 6680 : T=TSAT : GOTO 3790 4620 4630 C = 1 - THETA : SISMA = SKiliC+SK21*C^2+SK3t+C^3+SK48tC^4+EK5teC'5 4640 BETA.K = EIP(S!6MA/(THETA *(1+SK6teC+SK71*C^2))-C/(SK81st^2+SK9ti) 4650 4660 IF THETA >= THETA.T AND THETA (= THETA.1 AND BETA > BETA.K THEN RE610Nf='l' 4670 IF THETA >= THETA.T AND THETA (= THETA.1 AND BETA ( BETA.K THEN RE610Nf='2' 4680 IF THETA >= THETA.! AND BETA (= BETA.L THEN RE610NI='2' 4690 4700 IF REGION $='l' THEN GOTO 4730 ELSE IF RE610Nf='2' THEN BOTO 5170 4710 4720 4730 * ** SUB-REGIGN 1 **
4740 4750
- Constants e s/60 4770 SA1 =.84383754058 : SA2 =.00053621621628 : SA3 =1.72 : SA4 =.07342278499d : SAS =.04975358871 4780 SA6 =.65371543t : SA7 =1.15E-06 : SA8 =1.5108E-05 : SA9 =.14188 : SA10=7.002753!658 6-9
l APPE"21161 AliALYSIS. BAS -
4790 SA!!=.00029952849264 : sal 2=.204 4800 4810 A0 = 6824.6877414 : A1 =-542.20636734 : A2 =-20966.662054 : A3 = 39412.867878 : A4 =-67332.777398 4820 A5 = 99023.8102B4 : A6 =-109391.17744 : A7 = 85908.416674 : A8 =-45111.687424 : A9 = 14181.389264 4830 A10=-2017.271tl30 : All= 7.9826927176 : A12= .026165718434 : A13= .001522411796 : A14= .022842790544 4840 A15= 242.16470038 : A16= 1.2697160880-10 : A17= .00000020748383284 : AIB= .00000002714020354 4850 A19= 1.105710498D-09 : A20= 12.934419345 : A21= .000013081190728 : A22= 6.0476263380-14 4860 4870 IF !$=' ANALYSIS' THEN 60TO 4900 4880 4890 4900
- Enthalpy
- 4910 4920 Y=1-sal
- THETA ^2-SA2* THETA *(-6) ,
4930 Y. PRIME =-2* sal
- THETA +6*SA2* THETA *(-7) 4940 Z=Y+(SA36Y^2-2*SA4* THETA +2*SA5eBETAl^.5 : IE=-5/17 4950 4960 CEl=A0* THETA +Al-A3* THETA'2-2*A4* THETA ^3-3*A5+ THETA ^4-4*A6* THETA *5-55A7' THETA ^6-6*AS* THETA ^7-7+A9* THETA ^8
-8eA10* THETA ^9 4970 CE2=A11*(Ze(17+(Z/29-Y/12)+5+ THETA *Y. PRIME /12)+SA4* THETA -(SA3-1)* THETA *YiY. PRIME)*Z^ZE 4980 CE3=(Al2-A14* THETA'2+A15*(9eTHETA+SA6)*SGN(SA6-THETA)*(ABS (SA6-THETA))^9
+A16*(20* THETA ^19+SA7)*(SA7+ THETA *19)^(-21)* BETA 4990 CE4=-(12* THETA ^11+SA8)*(SA8+ THETA ^11)^(-2)*(A17* BETA +A1B+ BETA ^2 +A19eBETA^3) 5000 CE5=A20* THETA'18e(17+SA9+19eTHETA'2)*(ISA10+5ETAlat-3)+SA11* BETA) 5010 CE6=+A21*SA12* BETA ^3 : CE7=+21*A22* THETA'(-20)* BETA ^4 5020 5030 EPSILON.1=CEl+CE2+CE3+CE4+CES+CE6+CE7 : H=2.212E+07*.00317tEPSILCN.1/2326 : PRINT TA8(51);'Enthalpy';
5040 IF Z$='M01STURE' OR Z$='FEECWATER' THEN PRINT : RETURN 5050 5060
- 5070
- Specific Volume
- 5000 5090 CVI=A11*SA5eZ^ZE+(A12+A13* THETA +A14* THETA *2 +A15*(AB3(SA6-THETAll^10+A16/(SA7+ THETA ^19))
5100 CV2=-(SA8+ THETA *11)^(-1)*(A17+2*A1865 ETA +3*A19' BETA ^2) 5110 CV3=-A20* THETA ^18+(SA9+ THETA'2)*(-3*(SA!C+BETAl^(-4)+SA11)+3*A21*(SA12-THETA)* BETA ^2+4*A22* THETA ^(-20)* BETA ^3 5120 5130 CHl.1=CVl+CV2+CV3 : V=.00317*.45359237t* CHI.1/.3048^3 : PRINT TAB (60);' Density' 5140 IF Z$=' TOP BLOW' OR Z$=' BOTTOM BLOW' OR Z$='LETDCWN' OR Z$=' CHARGING' OR Z$='PZR' OR Z$=' HOT LEG' intN RETURN 5150 5160 5170 ** SUB-REGION 2 **
5180 5190
- Constants e 5200 5210 ALPHA.0 = 0 5220 5230 00 = 16.835992744 : B(0,1) = 28.560677968 : B(0,2) =-54.389233294 : B(0,3) = .43306628346 5240 B(0,4) = .65477116974 : Bl0,5) = .085651820584 : B(1,1) = .066703759184 : B(1,21 = 1.3889838019 5250 B(2,1) = .083901043284 : B(2,2) = .026146708938 : B(2,3) = .033734394531 : B(3,1) = .45209189046 5260 B(3,2) = .10690366144 : B(4,1) = .59753367078 : B(4,2) : .088475353048 : B(5,1) = .59580516098 5270 B(5,2) = .51593033738 : 8(5,3) = .20750211224 : B(6,1) = .11906102718 : B(6,2) = .098671741321 5280 B(7,1) = .16839988036 : B(7,21 .05609435001 : B(8,1) = .0065523901268 : B(8,2) = .00057102156494 5290 B(9,01 = 193.65875586 : B(9,1) =-1388.5224258 : B(9,2) = 4126.6072198 : B(9,31 =-6500.2116774 5300 B(9,4) = 5745.984054' : B(9,5) =-2693.08S3658 : B(9,6) = 523.57186234 G-10
APPENDI! 6 ANALYSIS. BAS 5310 5320 11 = 4.2603211486 5330 5340 SB = .76333333330 : SB(6,1)= .40060739484 : SB(7,1)= .086360816270 : SB(8,11= .85323229214 5350 S9(8,2)= .34602008616 5360 5370 11(6,1)=14 : 11(7,1)=19 : II(8,1)=54 : 11(8,2)=27 5380 5390 ZI(1,1)=13 : II(1,2)=3 : ZI(2,1)=18 : II(2,2)=2 : 21(2,3)=1 : ZI(3,1)=18 : ZI(3,2)=10 : ZI(4,11=25 5400 ZIl4,2)=14 : ZI(5,1)=32 : II(5,2)=28 : II(5,31=24 : ZI(6,1)=12 : II(6,21=ll : ZI(7,1)=24 : II(7,2)=18 5410 2118,1)=24 : II(8,2)=14 5420 5430
$440
- Enthalpy
- 5450 5460 CE3=0 : CE4=0 : CE5=0 : DE4(ll:0 : DE4(2)=0 : DE4(31=0 : DE4(4)=0 : DE4(5)=0 : DE6=0 : CE6:0 5470 5480 1 = EIP(SB+(1-THETAll : CE1= ALPHA.0 : CE2=B0* THETA 5490 5500 FOR NUI = 1 TO 5 5510 CE3=CE3+B(0,NullethU1-2)*THETAa(N'JI-1) 5520 NEIT NUI 5530 5540 FOR MUI = 1 T0,5 5550 IF MUI:1 THEN NTI=2 ELSE IF MUI:2 THEN NTI:3 ELSE IF MUI=3 THEN hTI=2 ELSE IF MUI=4 THEN_NTI=2 5560 IF MUI=5 THEN NTI:3 5570 FOR NUI = 1 TO NTI 5580 DE4(MUIl=DE4(MUI)+B(MUI,NUII*i1+ZI(MUI,NUIleSB* THETA)*WI(MUI,NUI) 5590 IF DIAGNOSTIC. FLAG $O 'S' THEN 60TO 5620 5600 LPRINT TAB (12);'DE4(MUIl=';DE4(MUI);' B(MUI,NUI)=';B(MUI,NUI) 5610 LPRINT TAB (12);'(1+ZI(MUI,NUI)*SB+THETAl=';(1+ZI(MUI,NUIleSBeTHETA);' I^ZI(MUI,NUI)=',1^ZI(MUI,NUI) 5620 NEIT NUI 5630 CE4=CE4+ BETA ^MUI*DE4(MUI) 5640 IF DIAGNOSTIC.FLAGt O'S' THEN GOTO 5660 5650 LPRINT TABIL2);'CE4=";CE4;" DE4(Mull =';DE4(MUI) 5660 NEIT MUI 5670 -
5680 FOR MUI = 6 TO 8 5690 DE5=0 5700 IF MUI:6 THEN NTI:2 : LTI 1 ELSE IF MUI=7 THEN NTI=2 : LTI:1 ELSE IF MUI=8 THEN NTI=2 : LTI:2 5710 5720 FOR NUI = 1 TO NTI 5730 DN5=0 : 005:0 5740 FOR LAMBAI= 1 TO LTI 5750 DN5=DN5tII(MUI,LAMBAll*SB(MUI,LAMBAI)*I^II(MUI,LAMBAI) 5760 DD5:005+SB(MUI,LAMBAll'I^II(MUI,LAMBAI) 5770 NEIT LAMBAI 5780 DE5= DES +B(MUI, hull *I'ZI(MUI,NUI) +((1+ZI(MUI, Null 6SB6 THETA)-(SB+ THETA +DN51/t1/ BETA *(-2+MUII+DD5il 5790 NEIT NUI 5800 CE5=CE5+DE5/(1/ BETA ^(-2+MUII+005) 5810 NEIT MUI 5820 G-11
APPENDII 6: ANALYSIS. BAS 5830 FOR NUI = 0 TO 6 5840 DE6=DE6+(1+ THETA *(10* BETA.L.PR!t!E/ BETA.L+NUInSBI)+B(9,NUIle!'NUI 5850 NEIT NUI 5860 5870 CE6= BETA *(BETA / BETA.Ll'10*DE6 5880 5890 EPSILON.2=CEl+CE2-CE3-CE4-CES+CE6 : H=2.212E+07f.00317eEPSILON.2/2326 : PRINT TAB (Sil;'Enthalpy';
5900 5910 IF DIA6MOSTIC.FLA680'S' TEN 60TO 5980 5920 LPRINT TAB (12);' THETA ='; THETA;' BETA ='; BETA 5930 LPRINT TAB (12);'CEl=';CEl;' CE2=';CE2;' CE3=';CE3 5940 LPRINT TAB (12);'CE4=';CE4;' CE5=';CE5;' CE6=';CE6 5950 LPRINT TAB (12);'EPSILOW.2='; EPSILON.2;' H=';H 5960 5970 PRINT ' TABLES, LINE 9278: LI=';LI 5980 IF Z$=' STEAM' OR Z$='FEEDWATER' THEN RETURN 5990 6000 6010
- Specific Volume e 6020 6030 CV2=0 : CV3=0 : DV2(11=0 : DV2(21=0 : DV2(31=0 : DV2(4)=0 : DV2(51=0 : DV4=0 6040 6050 CVi=I1* THETA / BETA 6060 6070 FOR MUI = 1 TO 5 6CG0 IF MUI=1 THEN NTI:2 ELSE IF MUI:2 THEN NTI=3 ELSE IF MUI=3 THEN NTI:2 ELSE IF MUI 4 THEN NTI:2 6090 IF PUI:5 THEN NTI=3 6100 FOR NUI = 1 TO NTI 6110 DV2(MUIl=DV2(MUIl+B(MUI,NUII*I^ZI(MUI,NUI) 6120 NEIT NUI 6130 CV2=CV2+MUI* BETA ^(MUI-1)*DV2(MUI) 6140 NEIT MUI 6150 6160 FOR MUI = 6 TO 8 6170 DN3:0 : DD3=0 6183 IF MUI:6 THEN NTI=2 : LI=1 ELSE IF MUI=7 THEN NTI=2 : LI=l ELSE IF MUI=8 THEN NTI=2 : LI:2 6190 FOR NUI = 1 TO NTI 6200 DN3=DN3+B(MUI, Null *I^ZI(MUI,NUI) 6210 NEIT NUI 6220 FOR LAMBAI = 1 TO LI 6230 DD3=DD3+SB(MUI,LAMSAIleI^II(MUI,LAMBAI) 6240 NEIT LAMBAI 6250 CV3=CV3+(MUI-2)* BETA ^(1-MUIl*DN3/(BETA'(2-MUII+DD3)^2 6260 NEIT MUI 6270 62W FOR NUI - 0 TO 6 : DV4=DV4tB(9,NUllel^NUI : NEIT
~6290 6300 CV4=11*(EETA/ BETA.L)^10tDV4 6310 6320 CHI.2=CV1-CV2-CV3*CV4 : V=.003176.453592370+ CHI.2/.3048^3 : PRINT TAB (60);' Density' 6330 6340 IF Z$='TCP BLOW' OR Z$=' BOTTOM ELOW' GR Zs=' LETDOWN' OR Z$=' CHARGING' GR Z$='PZR' THEN RETURN 6350 6360 PRINT : PRINT : PRINT 6-12
APPEZ II 61 ANALYSIS. BAS 6370 6380 6390 ** SATURATION sf 6400 6410
- Pressure
- 6420 6430 IF THETA (=1 TEN PSATI = 3208.234BitBETA.K ELSE 60TO 6560 6440 6450 IF PRINT.FLA65='S' THEN 60TO 6580 ELSE GOTO 6470 6460 6470 PRINT TAB (A+4);' Saturation Pressure = ';
6480 6490 IF T)580 TEN PRINT USING 'llit.4';PSATi; : 60TO 6540 6500 IF T)430 THEN PRINT USING 'llit.ll';PSAil; : 60TO 6540 6510 IF T)180 TEN PRINT USING 'llit.let';PSAil; : GOTO 6540 6520 IF T)105 THEN PRINT USING 'liti.itti";PSAil; : 63TO 6540 ELSE PR!hi USING 'llit.flill';PSAit; 6530 6540 PRINT ' psia' 6550 6560 RETURN 6570 65B0 LPRINT TAB (A+4);' Saturation Pressure = ';
6590 6600 IF T)$80 THEN LPRINT USING 'llit.t';PSATl; : GOTO 6650 6610 IF T)430 THEN LPRINT USING 'liti.it';PSAit; : 60TO 6650 6620 IF T)180 TEN L.'RINT USING 'titt. lit';PSAil; : 60TO 6650 6630 IF T)105 THEN LPRINT USING 'ilit.itil';PSAit; : SOTO 6650 ELSE LPRINT USING .'llit.llill';PSATl; 6640 6450 LPRINT ' psia' : RETURN 6660 6670 6680
- Teeperature
- 6690 6700 DUMY.THETAl=.5 6710 DUMY.Ct = 1 - DUMY.THETAt 6720 SUMY.SIBMA8 = SKif*DUMY.Cl+SK25tDUMY.Cl^2+SK38500MY.Cl*3+SK44*DUMY.Cl^4 +SK5teDUMY.Cl^5 6730 CUMY. BETA.Kt = EIP(DUMY.S!6 mal /(DUMY.THETAle(1+SK64*DUMY.Cl +5K7t*DUMY.Cl^2))
-DUMY.Cl/(SK86*DUMt.C4'2+SK9tD 6740 PSAit=3208.23486*DUMY. BETA.Kt 6750 P.ERRORl= P- PSAit 6760 6770 IF ABS (P.ERRORil)2500 THEN DAMPING =1!
6780 IF ABS (P.ERRORel(=2500 AND ABS (P.ERRORil>2000 THEN DAMPING =.5 6790 IF ABS (P.ERRORil(=2000 AND ABS (P.ERRORil)1500 THEN DAMPIN6=.35 6800 IF ABS (P.ERRORel(=1500 AND A3S(P.ERRORil)l100 THEN DAMPING =.25 6810 IF ABS (P.ERRORil(=1100 AND ABS (P. ERROR 41) 100 THEN DAMPING =.15 6820 IF 100)= ABS (P.ERRORI) THEN DAMPING =.1 6830 6840 IF P)1000 THEN ACCEPTABLE. ERROR =.0018 6850 IF Pi=1000 AND P)50 THEN ACCEPTABLE. ERROR =.00011 6860 IF P(=50 THEN ACCEPTABLE. ERROR =.0000lt 6870 6880 IF ABS (P.ERRORil> ACCEPTABLE. ERR 02 THEN 6B90 ELSE 60TO 6930 6890 DUMY. THETA 4 = DUMY.THETAl+(((DAMPIN6*P.ERRORil/Pl*DUMt.THETAI) 6-13
__ _ _ _.. . _ . -.... _ _.. . _. . _ _ . . . - _ _ , _ . . . _ _ _ - ___ . _ _ _m._ ,_ ._..____ _ _ _ . _ _ _ _ _ _ ___
- j ..
APPEllBl! Ea ANALYSIS. BAS
[- 6900 -IF BUINIY. THETA 4)=1 THEN DufNtY.THETAt=.99999 6910 GOTO 6710 -
! 6920~
- 6930 TSAT=ll65.14*DUMlY.TNETA4-459.67 : RETURN I i
. ' 6940 Elt0 i t ,
a ,
J 1
t h
1 L
4 0 >
I.
i i
r Y
i l
t t
i i
I J
J 4
t i
1 4
?
i k
- j t i '
i e
i
. G-14 i
I, 1-yy e-ry t+ m-,--74-t-yry T +v- --T--=wv-* -v--v-- w - WN 7vt -*f*7 'Fw w 4 v7-Mm-'*-prTr ?- '-t""T**-*NT-Tf*wvM*-NTV'w'<-v'-v-**efa F'**'"M"""W8E '7 tr W MWPv --Wh
9 i
)
t APPENDIX H DISPLAY. BAS e
6
APPENDl! H: DISPLAY.SAS 10
- usennesuse 20 ** DISPLAY. BAS **
30 ents******* Hee 40 50 ** COMON to 60 70 KFDBL A-Z 80 90 REM Paraseters 100 COMON CARRYOVER. A. CARRY 0VER.B CARRY 0VER.C. CARRYOVER.D LOSS. COEFFICIENT,NONRERECT. AREA,PZR.!D 110. COMON RISER. NUMBER, RISER.00, CONDUCTIVITY, INSULATION. THICKNESS,LIC. POWER,LOOPSI,PLECT. AREA 120 COMON RC. PUMP.EFF.RC. PUMP.PWR,S6.!D, DOCKET $
130 140 REM Data 150 COMON BOT TOM. BLOW O , CHAR 6 ING. FLOW O , CHAR 6IN6. TEMP O , FEE 0 WA TER. RDW O ,FEEDW ATER. TEMP O , LETDOWN. ROW O 160 i,0 MON LETDOWN. TEMP (1,PIR.PRESO,PZR. WATER.LEVELO, STEAM.PRESO,T.AVEO,T.COLDO,TTIMEO, TOP.BLOWO 170 COMON S6. WATER.LEVELO, DATA.SETSI,DDATE$, PLANT $, UNITS 180 190 REM Auxiliary Results 200' COMON A,B,BOTTON. BLOW.DENSITYO, DELTA. TIME,0RY. STEAM.ENTHALPYO,H,I, MOISTURE.ENTHALPYO,N,P,PSATI 210 COMON PZR. DENSITY O ,PZR.ENTHALPY U ,56. CROSS.SECTION, T, TS AT,V,MI,NI,D ATA.RA6 $, DI A6NOSTIC.RA6$
220 COMON PARAMETER. RA68, PR I N T. FL AG 5, RESULTS. RA 6 $ ,1 $ , Y $ , Z $
230 240 250 ** RECALL **
260 270 OPEN DOCKET $ AS 81 LEN=127 260 FIELD B1,32 AS P$,1 AS U$,3 AS D$,2 AS L$,8 AS RP$,8 AS S!$,8 AS RO$,8 AS RN$,8 AS CO$,8 AS PI$,8 AS RA$,
8 AS LC$,8 AS NAS,8 AS IT$,8 AS C3,1 AS PFs 290 SET 01,1 : LOOPSI = CVI(L$) : CLUSE il 300 310 CPEN ' PLANT-ID.'+ DOCKET $ AS 11 LEN=59 : FIELD 01, 33 AS 15, 20 AS D$ : SET 11,1 : DDATES=D$ : CLOSE #1
-320 330 FOR II=19 TO 1 STEP-1 : IF MID$(DDATE$,II,1) O ' ' THEN DDATEf=LEFis(DCATE$,II) : 60TO 360 340 NEIT II 350 360 OPEN 'RCS-CALC.'+ DOCKET $ AS 81 LEN=41 : FIELD #1,1 AS RFS,8 AS PH1$,8 AS PH2$,8 AS PF$,8 AS PP$,8 AS RPBS 370 SET 01,1 : PZR.ENTHALPY(1) = CVD(Prill) : PZR.ENTHALPY(2) = CVD(PH25) : PZR. ROW = CVD(PF$1 380 PZR. POWER = CVD(PP$F : RC. PUMP. POWER. BTU.PER.HR = CU(RPB$).: RESULTS.RA6s = RF$ : CLOSE il 390 400 IF (RESULTS. FLAG $O'S' AND RESULTS. RAS $0'C') THEN 60TO 700 410 420 OPEN 'S6-CALC.'+ DOCKET $ AS 82 LEN=104 430 FIELD 02,8 AS SH$,8 AS SFs,8 AS SP$,8 AS FHS,8 AS FF$,8 AS FP$,8 AS TBH$,8 AS TBF$,8 AS TBP$,8 AS BEH$,
8 AS BBFS,8 AS BBP$,8 AS 56P5 440 450 T!=1 : LPI=1 : FOR TI=1 TO DATA.SETSI : FOR LPI=1 TO LOOPSI : SET 82, (TI-1)
- LOOPSI + LPI 460 TOP. BLOW.ENTHALPY(LPI,TI) = CVD (TBH$1 : STEAM.ENTHALPY(LPI,TI) = CVD (SH5) 470 TOP. BLOW.LB.PER.HR(LPI,TI) = CVD (1975) : STEAM. ROW (LPI,TI) = CVD (SF$)
480 TOP. BLOW. POWER (LPI,TI) = CVD (TBPfl : STEAM. POWER (LPI,TI) = CVD (SPs) 490 BOTTOM. BLOW.ENTHALPf(LPI,TIl = CVD (BEH$1 : FEEDWATER.ENTHALPY(LPI,TI) = CVD (FH$)
500 BOTTOM. BLOW.LB.PER.HR(LPI,TI) = CVD (BBFs) : FEEDWATER. FLOW (LPI,TI) = CVD (FFs) 510 00TTOM. BLOW. POWER (LPI,TI) = CVD (BBPfl : FEEDWATER. POWER (LPI,TI) ' = CVD (FP85 520 S6. POWER (LPI,TI) = CVD (SSPfl H-1
APPENDil H: DISPLAY. BAS 530 540 NEIT LPI,TI : TI=1 : LPI:1 : CLOSE 82 550 560 OPEN '0C-CALC.'+ DOCKET $ AS 13 LEN=88 570 FIELD 83,8 AS LH$,8 AS LFS,8 AS LPs,8 AS CH$,8 AS CFf,8 AS CP$,8 AS IPs,8 AS OP$,8 AS GM$,8 AS RIPS,8 AS T$
580 590 FOR TI = 1 TO DAT'A.SETSI 600 SET 63, TI 610 LETDOWN.ENTHALPY(TIl = CVD (LH$) : INSULATION. POWER (TI) = CVD (IPS) 620 LETDOWN. FLOW.LB.PER.HRITI) = CVD (LF8) : OTHER. POWER (TI) = CVD (OPS) 630 LETDOWN. POWER (TI) = CVD (LP$) : OTHER. POWER.MW(TI) = CVD (DMS) 640 CHAR 6ING.ENTHALPY(TI) = CVD (CH." : REACTOR. POWER.MW(TI) = CVD (RIPS) 650 CHAR 61N6. FLOW.LB.PER.HR(TI) = CVD (CF$) : TTIME(TI) = CVD (T$)
660 CHARGIN6.POWERITI) = CVD (CP81 670 680 NEIT TI : TI=1 : CLOSE E3 : GOTO 740 i 690 700 PRINT : PRINT : PRINT 710 PRINT TAB (23);' CHECK DIRECTORY FOR RCS-CALC.'; DOCKET 8;' FILE' 720 PRINT : PRINT : PR!di : STOP 730 740 OPEN 'RCS-CALC.'+ DOCKET $ AS 41 LEN=45 : FIELD #1,1 AS liF$,8 AS PFS,8 AS PPS,8 AS RPBS,20 AS D$
750 SET 51,1 : RESULTS.FLA68 = RFs : CLOSE il 760 770 IF (RESULTS.FLA6fD'S' AND RESULTS.FLAS$0'C') THEN GOTO 910 780 790 GPEN 'OC-DATA.'+ DOCKET $ AS 62 LEN=72 000 FIELD 62,8 AS T$,8 AS LF$,8 AS LTS,8 AS CFS,8 AS CT$,8 AS PP$,8 AS PW8,8 AS TAS,8 AS TC$
810 TI=1 : FOR TI=1 TO 2 : EET 82,TI : TTIME(TIl= W ITs) : NEIT : CLOSE 82 820 830 TI=1
,0 84 FOR TI:1 TO DATA.SETSI B50 1 TIMES (TIl=RIGHT$(STR$(TTIME(TII+10000),41 : REM Numeric to literal
- ' ' 860 NEIT TI -
870 TI=1 880 890 IF RESULTS.FLA68='S' THEN 60TO 970 ELSE GOTO 910 900 910 CLS : LOCATE 13,26 : PRINT ' Data have not been analyzed.'
920 LOCATE 25,1 : PRINT SPC(79) : LOCATE 25,22,0 : PRINT 'To continue, press the '; : COLOR 16,7 930 PRINT ' space bar '; : COLOR 7,0 : PRINT ".'; ,
940 Z$=lNKEY$: IF Z80CHR$(32) THEN 940 ELSE 1720 '
950 960 970 ** SCREEN **
980 990 CLS 1000 1010 1020 A=8 : B=A+21 : C=B+14 : D=C+13 : E=D+12 1030 1040 H-2
APPENDif H: DISPLAY. BAS 1050 LOCATE 11,35 : PRINT ' HEAT BALANCE' 1060 PRINT TAB (INT ((82-LEN(PLANT $+ UNIT $)-il/2)); PLANT 8;' '; UNIT $
1070 PRINT TAB (INT ((82-LEN(DDATES))/2)); DDATE$
1000 1090 GOSUB 1810 : REM Stop 1100 1110 TI=1 : LPI=1 1120 FOR TI:1 TO DATA.SETSI : F=2
!!30 1140 GOSUB 1850 : REM Table heading 1150 1160 .FOR LPI=1 TO LOOPSI : F=2 1170
!!80 IF LPI=1 THEN Y$='A' ELSE IF LPI=2 THEN Y$='B' ELSE IF LPI=3 THEN Y$='C' ELSE IF LPI=4 THEN Y$='D' 1190 1200 PRINT TAB (A);' STEAM SENERATOR ';Y$ : PRINT 1210 1220 PRINT TAB (A);' Steas'; TAB (B+2); : PRINTUSINS'llit.I'; STEAM.ENTHALPY(LPI,i.);
1230 PRINT TAB (C-2); : PRINT USING '88.810'; STEAM.FLOWILPI,TI); : PRINT TAB (D-2);
1240 PRINT USING 'll.lil'; STEAM. POWER (LPI,TI) 1250 1260 PRINT TAB (A);' Feedwater'; TAB (B+2); : PRINT USING 'llit.l';FEEDWATER.ENThsLPY(LPI,TI);
1270 PRINT TAB (C-3); : PRINT USING ' lit.lil'; -FEEDNATER.FLOWILPI,TI); : PRINT TAB (D-2);
1280 PRINT USING 'll.lil'; FEEDWATER. POWER (LPI,TI) 1290 1300 PRINT TAB (A);' Surface Blowdown';TABIB+2); ; PRINT USINS 'llit.I'; TOP. BLOW.ENTHALPY(LPI,TI);
1310 PRINT TAB (C-1); : PRINT USING 't.llill'; TOP. BLOW.LB.PER.HR(LPI,TI); : PRINT TABID-1);
1320 PRINT USING 't.llill'; TCP.BLCW.P0WER(LPI,TI) 1330 1340 PRINT TAB (A);' Botton Blowdown'; TAB (B+2); : PRINT USINS 'llit.I'; BOTTOM. BLOW.ENTHALPY(LPI,TI);
1350 PRINT TAB (C-1); : PRINT USINS 't.llill';BOTTGM. BLOW.LB.PER.HR(LPI,TI); : PRINT TAB (D-1);
1360 PRINT USING 't.flill*; BOTTOM. BLOW. POWER (LPI,TI) 1370 PRINT TAB (D-1);'
1380 1390 PRINT TAB (A);' Power Dissipated'; TAB (D-2); PRINT USING 'll. fill';SG. POWER (LPI,TI);
1400 PRINT TAB (E-1); : PRINT USINS 'llit.I';292.875+55. POWER (LPI,TI) 1410 PRINT 1420 1430 IF (LPI:2 AND LOOPSI:2) OR (LPI:4 AND LOCPSI=4) THEN F=6 1440 IF LPI=2 OR LPI=4 THEN 605UB 1810 : 605UB 1850 1450 1460 NEIT LPI 1470 1480 PRINT TAB (A);'0THER COMP 0NENTS' : PRINT 1490 1500 PRINT TAB (A);' Letdown Line'; TAB (B+2); : PRINT USING 'llit.I';LETDOW.ENTHALPY(TI);
1510 PRINT TAB (C-1); : PRINT USING 't.filli'; LETDOWN.FLCW.LB.PER.HR(TI); : PRINT TAB (D-1);
1520 PRINT USING 't.llill'; LETDOWN. POWER (TI) 1530 1540 PRINT TAB (A);' Charging Line'; TAB (B+2); : PRINT USING 'llit.I'; CHARS!NS.ENTHALPY(TI);
1550 PRINT TAB (C-2); : PRINT USING 'll.llill'; CHARGING.FLCW.LB.PER.HR(TI); : PRINT TAB (D-2);
1560 PRINT USING 'll.llill';CHARSING. POWER (TI) 1570 H-3
APPECl!H2 DISPLAY. BAS 1580 IF DATA.SETSI=1 THEN 1630 1590 PRINT TABIA);' Pressurizer'; TAB (B+2); : PR;NT USIN6 'llet.I';PZR.EXTHALPY(TI); -
1600 PRINT TAB (C-2); PRINT USING 'll.itill';PIR. FLOW; : PRINT TAB (D-2);
1610 PRINT USING 'll.04440'; PZR. POWER 1620 1630 PRINT TAB (A);' Pumps'; TAB (D-2); : PRINT USING 'll.litil';RC. PUMP. POWER BTU.PER.HR 1640 1650 PRINT TAB (A);" Insulation Losses *; TABID-1); : PRINT USING '4.lilli";!NSULATICN.POWERITI) 1660 PRINT TAB (D-1);
- 1670 1680 PRINT T!.B(A);" Power Dissipated"; TAB (D-2); : PRINT USING '95.8888t'; OTHER. POWER (TI);
1690 PRINT TAB (E-1); : PRINi USING 'ttet.I';0THER. POWER.MW(II) 1700 PRINT TAB (E-1);
- 1710 1720 PRINT TAB (A);' REACTOR FUWER';TA9(E-1); : PRINT USING 'till.8'; REACTOR. POWER.MW(II) 1730 1740 60SUB 1810 : REM Stop 1750 1760 NEIT TI 1770 1780 CLS : LOCATE 13,22 : PRINT 'LOADINS ANALYSIS MODULE INTO MEMORY" 1790 I$=' MENU' : CHAIN ' ANALYSIS' 1800 1810 COLOR 7,0 : LOCATE 25,23,0 : PRINT 'To continue, press the '; : COLOR 16,7 : PRINT
- space bar ';
1820 COLOR 7,0 : PRINT '.';
1830 Z$=lNKEY$ IF Z80CHR$(32) THEN 1830 ELSE CLS : RETURN 1840 1850 CLS : LOCATE F,A : PRINT ' DATA SET';TI; TAB (B);'ENTHALPY'; TAB (C);'fLCW'; TAB (D-1);' POWER'; TAB (E);' POWER' 1860 PRINT TAB (A);TTIMEf(TI);' hours'; TAB (B);'(BTUs/lb)'; TAB (C-3); '(E6 lb/hrl';TA2(D-4);'(E9 BTUs/hr)';
1870 PRINT TAB (E);'(MWt)' : PRINT : RETURN 1880 1890 1900 END H-4
APPENDIX I TABLES. bas 9
+
v , " " ~ -
APPENDIX 1: TABLES. BAS 1
TABLE OF CONTENTS Page Independent Variables I- 1 Limits of Applicability I- 2
'Sub-region and Phase Identification I- 3 Sub-region i I- 4 Sub-region 2 I- 8 Saturation I-13
't I
d O
9 i
I-iii
l APPEN0l! I: TABLES. BAS 1 1
10 **uuten**u 20' ** TABLES. BAS **
30 **************
40 50 *nuniu 60 u COMON **
70 ****n ute 80 90 DEFDBL A-Z 100 110 REM Parameters 120 COMON CARRYOVER.A, CARRYOVER.B, CARRY 0VER.C, CARRY 0VER.D LOSS. COEFFICIENT,NONREFLECT. AREA,PZR.!D 130' COMON RISER. NUMBER, RISER.0D, CONDUCTIVITY, INSULATION. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP.EFF,RC. PUMP.PWR,59.ID, DOCKET $
150 160 REM Data 170 COMON BOTTOM. BLOW O ,CH ARBING. FLOW O ,CHARSINS. TEMP O , FEED WA TER. FLOW O ,FEEDWATER. TEMP O , LETDOWN. FLOW O 180 C0 MON LETDOWN. TEMPO,PZR.PRESO,PIR. WATER. LEVEL 0, STEAM.PRESO,T.AVEO,T. COLD 0,TTIMEO, TOP.BLOWO 190 COMON S6. WATER.LEVELO, DATA.SETSI,DDATEs, PLANT $, UNIT $
200 210 REM Auxiliary Results 220 COMON A,B,BOTTON. BLOW.DENSITYO, DELTA. TIME, DRY. STEAM.ENTHALPYO,H,I, MOISTURE.ENTHALPfD,N,P,PSATI 230 COMON PIR. DENSITY 0,PIR.ENTHALPYO,SB. CROSS.SECTION,T,TSAT,V,MI,NI, DATA.FLAS$,DIASN05 TIC. FLAGS 240 C0 MON PARAMETER.FLA68, PRINT. FLAG $,RESULTS.FLA6$,18,Y$,Z$ ,
250 260 270 eunintunnuutuus 280
- INDEPENDENT VARIABLES
- 290 suutuutuununun 300 310 Ref: Chapter IV and Appendix 1, Sections 2.1 and 0.1 320 330 u STEAM TA3LES MEkU u 340 350 CLS : TI= 3 : BI:20 : L1= 12 : RI=69 360 LOCATE TI,LI : PRINT CHR$(200 :-LOCATE TI,RI : PRINT CHR$l187) : LOCATE BI,RI : PRINT CHR$(IG8) 370 LOCATE SI,LI : PRINT CHR$(200) 380 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 390 LOCATE BI,LD1 : FOR 1I=1 TO RI-LI-1 : PRINT CHR$(205); : NEIT 400 FOR II=TI+2 TO BI : LOCATE II-1,LI : PRINT CHR$ 086) : NEIT 410 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(186) : NEIT 420 430 LOCATE 25,23 : PRINT 'After responding, press the '; : COLOR 16,7 440 PRINT * *;CHR$(171+CHR$(196)+CHR$(217);' ';
450 COLOR 7,0 : PRINT
- key.*;
460 470 LOCATE 3,31 : PRINT ' STEAM TABLES MENU '
480 LOCATE 6,19 : PRINT 'You can calculate enthalpy, specific voluse, 490 LOCATE 7,19 : PRINT 'and density for any of the follcuing coolant 500 LOCATE 8,19 : PRINT ' conditions:'
- 510 LOCATE 10,22 : PRINT '(A) Saturated at known temperature,'
520 LOCATE 12,22 : PRINT '(B) Saturated at known pressure, *
- 530 LOCATE 14,22 : PRINT '(C) Unsaturated at known temperature' 540 LOCATE 15,27 : PRINT 'and pressure, or' I-1
APP C II I: TABLES. BAS
'550 LOCATE 17,22 : PRINT 'ID) Return to the MASTER MENU.' : LOCATE 20,57 : PRINT '
560 LOCATE 20,24 : INPUT
- Enter your selection (Ala/C/D):
- W$ ,
570 CLS 580 590 IFW$='D'ORW$='d'THENIt'='INTRU1920':C'HAIN' INTR 0' 600 610 IF (W$()'A' AND W$()*a' AND W5(>'B' AND Ws()'b' AND W8()'C' AND W8()'c") THEN 350 ELSE 620 620 IF.W$='B' OR W$='b' THEN W$="B' s BOTO 670 630 640 CLS : LOCATE 12,19 : INPUT ' Type coolant temperature in degrees F: 'T, 650 IF W$='A' OR W$='a' THEN W$='A' : CLS : GOTO 740 660 670 LOCATE 13,23 : INPUT ' Type systes pressure in psia: *P ,
680 690 IF W$='B' THEN PRINT : PRINT : PRINT : 60TO 1410 700 710 720 ** REDUCED VARIABLES **
730 740 PRINT : PRINT : PRINT 750 THETA = IT+459.671/1165.14 : IF W$='A' THEN 60TO 1320 760 BETA = P/3208.23488 770 780 790 unuununununune 800
- LIMITS CF APPLICABILITY
- 810 unnuunsununenus 820 830 Ref: Appendix 1, Section B .
840 850 L0 = 15.743733278 : L1=-34.170619781 : L2 = 19.313807078 860 870 THETA.1 = .96269117871 : THETA.2 = 1.3334620738 880 THETA.3 = 1.6578866068 : THETA.T = .42199607318 890 900 BETA.2 = 4.520795668 910 BETA.L = LO+Ll* THETA +L2* THETA ^2 : BETA.L. PRIME = L1+2*L2* THETA 920 -*
930 IF THETA ( THETA.T THEN CLS : LOCATE 12 : GOTO 940 ELSE 960 940 PRINT TAB (18);'Teeperature is out of range. It is below' 950 PRINT TAB (18);'the triple point (32.018 F).' : SOTO 8490 960 970 IF BETA (= 0 THEN CLS : LOCATE 12 : GOTO 980 ELSE 1010
-980 PRINT TAB (18);' Absolute pressure is zero or negative.'
990 PRINT TAB (18);' Negative absolute pressure is impossible.'
1000 60TO 8490 1010 1020 IF THETA > THETA.3 THEN CLS : LOCATE 12 : 60TO 1030 ELSE 1050 1030 PRINT TAB (18);' Temperature is out of range. The upper limit is'-
1040 PRINT TAB (10);'1472 degrees F.' : 60TO 8490 1050 1060 IF THETA >= THETA.T AND THETA (= .6 AND EETA > 18.2* THETA-6.4 THEN CLS : LOCATE 12 : 60TO 1070 ELSE 1130 1070 PRINT TAB (IB);' Pressure is out of range. For temperature' 1080 PRINT TAB (18);' equal to '; : PRINT USING 'llet.I';T; 1-2
APPEC II 1: TABLES. BAS 1090 PRINT ' degrees F,'; : PRINT
- the limit on pressure';
1100 PRINT TAB (18);'is '; ,
1110 PRINT USING '90048.I';3208.235e(18.2eTHETA-6.4);
-1120 PRINT
- psia.' : 60TO 8490 1130 1140 IF THETA > .6 AND THETA (= THETA.1 AND BETA > LETA.2 THEN CLS : LOCATE 12 : 60TO 1150 ELSE !!80 1150 PRINT TAB (18);' Pressure is out of range. For temperature in' 1160 PRINT TAB (18);'the range from 239.4 to 662.0 degrees F, the' 1170 PRINT TAB (18);' upper limit is 14,503 psia.' : 60TO 8490 1180
.1190 IF THETA > THETA.1 AND THETA ( THETA.2 AND BETA > SETA.L THEN CLS : LOCATE 12 : 60TO 1200 ELSE 1260 1200 PRINT TAB (18);' Pressure is out of range. For temperature' 1210 PRldT TAB (18);' equal to *; : PRINT USING 'litt.I';T; 1220 PRINT ' degrees F,'; : PRINT ' the limit on pressure';
1230 PRINT TAB (IB);'is ';
1240 PRINT USINS 'Ittil.I';221.2el4.50377380eBETA.L; 1250 PRINT ' psia.' : 60TO 8490 1260 1270 IF THETA >= THETA.2 AND THETA (= THETA.3 AND BETA > BETA.2 THEN CLS : LOCATE 12 : 60TO 1280 ELSE 1510 1280 PRINT TAB (18);' Pressure is out of range. For temperature in' 1290 PRINT TAB (18);'the range from 1094 to 1472 degrees F, the' 1300 PRINT TAB (181;' upper limit is 14,503 psia.' : GOTO 8490 1310 1320 IF T ) 705.47 THEN CLS : LOCATE 12 : 60TO 1330 ELSE 1360 1330 PRINT TAB (!B);' Temperature is out of range. It is above the' 1340 PRINT TAB (18);* critical point (705.47 degrees F). Pressure'
,1350 PRINT TAB (18);'will not condense supercritical steas." : 60TO 8490 1360 1370 'IF T ( 32.018 THEN CLS : LOCATE 12 : GOTO 1350 ELSE 1580 1380 PRINT TAB (18);'Teeperature is out of range. It is below' ,
1390 PRINT TAB (18);'the triple point (32.018 Fl.' : GOTO 8490 1400 1410 IF P > 3208.2 THEN CLS : LOCATE 12 : GOTO 1420 ELSE 1440 1420 PRINT TAB (18);' Pressure is out of range. It is above the' 1430 PRINT TAB (18);' critical point (3208.2 psia).' : 60TO 8490 1440 ,*
1450 IF P ( 8.864999E-02 THEN CLS : LOCATE 12 : 60TO 1460 ELSE 1580 1460 PRINT TAB (18);' Pressure is out of range. .It is belc='
1470 PRINT TAB (18);'the triple point (0.08865 psia).' : 60TO 8490 1480 1490 1500 etennenenneennunuseentennen 1310
- SUB-REGION AND PHASE IDENTIFICATION
- 1520 seennunununnenneeeenensee, 1530 1540 Ref: A'ppendix I; Sections 3, 5 and 7.1.5 1550 1560 IF W$='A' THEN 1840 ELSE IF W$='B' THEN 1640 1570 1580 SK14=-7.6912345648 : SK20=-26.080236968 : SK3t=-168.17065464 1590 SK44= 64.232855048 : SK5t=-l!8.96462251 : SK6t= 4.167117321 1600 SK78= 20.97506764 : SK8t= IE+09 : SK9t= 6 1610 1620 IF W$='B' THEN CLS : LOCATE 5,25 : FRINT 'Coaputing Saturation Temperature': 60TO 7090 1-3
APPE 3 1 I TABLES. BAS 1630 1640 IF THETA > 1 60TO 1770 1650 1660 C = 1 - THETA 1670 1680 SI6MA = Skit *C+5K20*C^2+SK34*C^3+SK485C^4+SK50*C^5 1690 1700 BETA.K = EIP(SIGMA /(THETA *(1+SK68+C+5K78+C^2))-C/(SKBl*C^2+SK941) 1710 1720 IF W$='A' THEN 6810 1730 IF W$='B' THEN 1840 1740 1750 IF THETA >= THETA.T AND THETA (= THETA.1 f.ND BETA > BETA.K THEN RE610N$='1' 1760 IF THETA >= THETA.T AND THETA (= THETA.1 AND BETA ( BETA.K THEN REG 10Ns='2' 1770 IF THETA >= THETA.1 AND BETA <= BETA.L THEN REGION $='2' 1780 1790 IF REGIONS ='1' THEN 1840 1800 IF REGIONS ='2' THEN 3J80 1810 1920 1830 1840
- SUS-REGION 1 e 1850 **ts************
1860 1870 Ref: Appendix 1; Sections 7.1.1 and 9.1 1980 1890 IF (W$='A' OR W$**B') THEN 1910 ELSE 1900 1900 CLS : LOCATE 5,26 : PRINT ' Coolant is in the WATER phase' 1910 1920 1930 ** CONSTANTS **
1940 1950 SA1 =.84383754058 : SA2 =.00053621621628 : SA3 =1.72 1960 S44 =.073422784898 : SA5 =.04975B58571 : SA6 =.653715434 1970 SA7 =1.15E-06 : SA8 =1.5108E-05 : SA9 =.14188 1980 SA10=7.0027531654 : Salt =.00029952849268 : SA12=.204 1990 2000 A0 = 6824.6877418 : A1 =-542.20636738 : A2 =-20966.662054 2010 A3 = 39412.867878 : A4 =-67332.777398 : A5 = 99023.810284 2020 A6 =-109391.17744 : A7 = 85908.416674 : AB =-45111.687421 2030 A9 = 14181.389268 : A10=-2017.2711138 : Allu 7.9826927178 2040 A12= .026165718438 : A13= .001522411794 : A14: .022842790544 --
2050 A15= 242.16470038 : A16= 1.269716083D-10 : A17= .00000020748383281 2060 AIB= .00000002714020358 : A19= 1.105710498D-09 : A20= 12.934419340 2070 A21=.000013081190728 : A22= 6.0476263380-14 2000 2090 2100 ** ENTHALPY **
2110 2120 PRINT : PRINT : PRINT : PRINT TAB (27); 'Casputing Enthalpy of Water' : PRINT : PRINT 2130 2140 Y=1-sal
- THETA *2-SA2* THETA *(-6) : Y. PRIME =-2* sal
- THETA +6*SA2* THETA ^(-7) 2150 PRINT TA9(40); '5' 2160 1-4
APPENDII 1: TABLES. BAS 2170 Z Y+(SA36Y^2-2*SA4* THETA +2*SA5+ BETA)^.5 : ZE=-5/17 2180 2190 CE!=A0* THETA +Al-A3* THETA ^2-2*A4* THETA ^3-3*A5* THETA ^4-4*A6* THETA ^5-5+A7eTHETA^6-6tA85 THETA ^7-7sA95 THETA *8-B+A10* THETA ^9 2200 PRINT TAB (40); '4' 2210 2220 CE2=All*(Ze(17+(Z/29-Y/12)+5eTHETA*Y. PRIME /12)+SA4eTHETA -(SA3-1)eTHETA*VeY. PRIME)*Z^ZE 2230 PRINT TAB (40); '3' 2240 2250 CE3=(Al2-A14* THETA'2+A15e(9eTHETA+SA6)eSSN(SA6-THETA)*(ABS (SA6'-THETA))^9
+A16*(20* THETA *19+SA71s(SA7+ THETA ^19)^(-2))fBETA 2260 PRINT TAB (40); '2' 2270 2280 CE4=-(12* THETA'11+SA8)*(SA8+ THETA *11)a(-2)e(A175 BETA +A185 BETA ^2 +A19eBETA^3)'
2290 PRINT TAB (40); '1' 2300 2310 CE5=A20eTHETA*186(175SA9+19eTHETA*2)*((SA10+ BETA)^(-3)+5All* BETA 1 2320 2330 CE6=+A21eSA12* BETA'3 : CE7=+21*A22* THETA ^(-20)* BETA ^4 2340 2350 EPSILON.1=CEl+CE2+CE3+CE4+CES+CE6+CE7 : H=2.212E+07*.00317+EPSILCN.1/2326 2360 H=2.212E+076.00317+ EPSILON.1/2326 2370 2360 PRINT : PRINT : PRINT 2390 2400 -
2410 ** SPECIFIC VOLUME n 2420 2430 PRINT TAB (23); 'Cosputing Specific Voluse of Water' : PRINT : PRINT 2440 2450 CVl=AlteSA5+Z^ZE+(A12+A13* THETA +A14* THETA'2 +A15*(ABS (SA6-THETA))^10+A16/(SA7+ THETA ^19))
2460 PRINT TAB (40);*4' 2470 2480 CV2=-(SA8+ THETA'!!)^(-1)*(A17+2*A1EiBETA+3eA19aBETA'2) 2490 PRINT TAB (40);'3' 2500 2510 CV3=-A20* THETA *18t(SA9+ THETA ^2)*(-3*(SA10+ BETA)^(-4)+SA11)+3*A21*(SA12-THETA)* BETA'264*A22tTHETA'(-20HBETA^3 2520 PRINT TAP,(40);'2' 2530 2540 CHI.1=CV1+CV2+CV3 : V=.003174.453592371* CHI.1/.3048^3 2550 PRINT TAB (40);'1';
2560 2570 2580 ** DUTPUT **
2590 2600 IF W$='A' OR Win'B' THEN 2620 ELSE 2640 2610 2620 VF=V s iF=H : 60TO 3820 2630 2640 IF PRINT.FLAGt='S' THEN 2900 2650 2660 A=15 : CLS : LCCATE 9, A+6 : PRINT ' Water Teaperature = '; : PRINT USING 'till.it';T; 2670 PRINT ' degrees F' I-5 ad .n :
APPECl! la TABLES. BAS 2600 PRINT TAB (A+8);'Systen Pressure ='; : PRINT USIN6 'lliti.it';P; 2690 PRINT ' psia' 2700 2710 PRINT: PRINT TAB (A+4);'NATER PROPERTIES :"
2720 PRINT : PRINT TAB (A+15);'Enthalpy = *;
2730 IF P)3000 THEN PRINT USING 'Stt.t';H; ELSE PRINT USING ' lit.il';H; 2740 PRINT ' BTUs/ pound' 2750 2760 PRINT TAB (A+8);' Specific Volume = ';
2770 IF P)l00 THEN PRINT USING 't.64400';V; ELSE PRINT USING 'i.iltill';V; 2780 PRINT
- cubic foot / pound' 2790
- 2000 PRINT TAB (A+16);' Density = '; : PRINT USING 'll.it';1/V; 2810~ PRINT
- pounds / cubic foot' : PRINT 2820 2830 PRINT PRINT : PRINT 2840 LOCATE 25,23 : PRINT 'To continue, press the '; : COLOR 16,7 : PRINT ' space bar '; COLOR 7,0 : PRINT '.';-
2850 18 !NKEYS : IF If0CHR$(32) TPEN 2850
-2860 2870 60TO 3270 2680 2890 2900 '
- Printer Routine +
2910 2920 A=10 : ON ERROR 60TO 3210 2930 ON ERROR GOTO 3210 2940 2950 LPRINT TAB (A+6);' Water Temperature ='; : LPHINT USING 'llit.ll';T; 2960 LPRINT
- degrees F' 2970 LPRINT TAB (A+8);'Systen Pressure ='; : LPRINT USING 'lilit.ll';P; 2980 LPRINT ' psia' 2990 3000 LPRINT:LFRINT TAB (A+4);' WATER PROPERTIES :'
3010 LPRINT : LPRINT TAB (A+15);'Enthalpy = '; -
3020 IF P)3000 THEN LFRINT USING ' lit.I';H; ELSE LPRINT USINGlli.it';H; 3030 LPRINT ' BTUs/ pound' 3040 3050 LPRINT TAB (A+8);' Specific Volume = ';
3060 IF P)l00 THEN LPRINT USING 't.llitt';V; ELSE LPRINT USINS 't.Ilelli';V;.
3070 LPRINT ' cubic foot / pound' 3080 3090 LPRINT TAB (A+16);' Density = '; : LPRINT USING 'll.it';1/V; 3100 LPRINT ' pounds / cubic foot' : LPRINT 3110 3120 IF I!=' ANALYSIS' THEN CHAIN ' ANALYSIS' 3130 LPRINT : LPRINT : LPRINT 3140 IF PRINT.FLA68='C' THEN GOTO 3150 ELSE GOTO 3170 3150 INPUT
- To continue, press RETURN.'; Ds 3160 3170 A=0 3160 3190 LPRINT : LPRINT : LPRINT 3200 GOTO 2660 3210
- PRINTER ERROR TRAP ROUTINE l-6
APPENDl! 1: TABLES. BAS 3220 IF ERR =25 THEN 3230 ELSE RESUME 3230 SOUND 2000,5 : SOUNO 32767,20 3240 CLS : LOCATE 13,25 : PRINT 'PLEASE TURN ON THE PRINTER !!'
3250 RESUME 3260 3270 ** DIAGNOSTICS **
3290 3290 IF DIA6NOSTIC. FLAG $='S' THEN 3300 ELSE GOTO B510 3300 IF PRINT.FLA68='S' THEN A=30 : B=A+5 : 60TO 3620 ELSE A=4 3310 B=A+5 3320 PRINT: PRINT TAB (A);' Diagnostics for preceding computation:': PRINT 3330 3340 PRINT TAB (B);' THETA = '; THETA : PRINT TAB (B);' SIGMA = '; SIGMA 3350 PRINT TAB (B);' BETA.K = *; BETA.K : PRINT TAB (B);' BETA = '; BETA 3360 3370 PRINT TAB (B);'Y = ';Y : PRINT TABIB);'Y. PRIME = ';Y. PRIME 3380 PRINT TAB (B);*Z = ";Z : PRINT TAB (B);'IE =.';ZE 3390 3400 PRINT TAB (B);'CEI = ';CE! : PRINT TAB (B);'CE2 = ';CE2 3410 PRINT TAB (B);'CE3 = ";CE3 : PRINT TAB (U;'CE4 = ';CE4 .
3420 PRINT TAB (B);'CES = ";CES : DRINT TAB (B);'CE6=';CE6 3430 PRlhi TAB (B):'CE/=';CE7 3440 3450 PRI.U TAB (B);' EPSILON.! = ';EPSILOM.!
3460 3470 PRINT TABIB);'CV! = ';CVI : PRINT TABIB);'CV2 = ';CV2 3480 PRINT TAB (B);'CV3 = ';CV3 3490 3500 PRINT TAB (B);'CHl.1= ';CHl.1 3510 3520 IF PRINT.FLAGl='C' THEN GOTO 3560 3530 3540 PRINT CHR$(12) : : A=0 3550 '
3*60 GOTO B510 3570 3580 3590
- Printer Routine
- 3600 ON ERRCR 60TO 321C 3410 3620 LPRINT:LPRINT TAB (A);'Diagncstics fcr preceding cceputation:LPRINT 3430 3640 LPRINT TAB (B);' THETA = '; THETA : LPRINT TAB (B);' SIGMA = '; SIGMA 3650 LPRINT TABIB);' BETA.K = '; BETA.K : .LPRai TAB (B);' BETA = *; BETA 3660
3670 LPRINT TAB (B);'Y = ';Y : LPRINT TAB (B);'f PRIME = ';Y. PRIME 3650 LPRINT TAB (B);'l = ';Z : LPRINT TAB (B);'ZE = ';ZE 3490 ,'
3700 'LPRINT TAB (B);'CE! = *;CEI : LDRINT TABIB);'CE2 = *;CE2 3710 LPRINT TAB (B);'CE3 : ';CE3 : LFRINT TAB (B);'CE4 = ';CE4 3720 LPRINT TAB (B);'CE5 = ';CES : LPRINT TAB (B);'CE6=';CE6
.3730 LPRINT TAB (B);'CE7=';CE7 3740 3750 LPRINT TAB (B);'EP31LGN.! = "; EPSILON.l 1-7
APPE"21I I: TABLES.BA3 3760 3770 LPRINT TAB (B);'CVI = ';CVI : LPRINT TABIB);'CV2 = ';CV2 3780 LPRINT TAB (B);'CV3 = *;CV3 3790 3000 LPRINT TABIB);'CHl.1= ';CHl.1 .
3810 3820 PRINT CHR$(12) : A=0 3830 3840 60TO 8510 3850 3860 3870 **********+++++*
3880
- SUB-RESIGN 2
- 3890 3900 ,
3910 Ref Appendia I; Sections 6.2, 7.1.2 and 9.2 3920 3930 IF (W$='A' DR W$='B') THEN 3950 ELSE 3?40 3940 PRINT TAB (26);' Coolant is in the STEAM phase' 3950 3960 4 3970 ** CONSTANTS **
3980 3990 ALPHA.0 = 0 4000 4010 80 = 16.835992744 : B(0,1) = 28.560677968
- 4020 B(0,2) =-54.389233298 : B(0,31 = .43306628346 4030 B(0,4) = .65477116976 : B(0,5) = .0856518205B4 4040 B(1,1) = .066703759188 : B(1,21 = 1.3889838010 4050 B(2,1) = .083901043288 : B(2,21 = .026146708934 4060 B(2,31 = .033734394538 : B(3,Il = .45209189048 4070 B(3,2) = .10690366144 : B(4,1) = .59753367078 4080 B(4,21 .068475358044 : B(5,1) = .59580516094 4090 B(5,2) : .51593033734 : B(5,31 = .20750211228 4100 B(6,ll = .!!906102716 : B(6,2) : .098671741324 4110 B(7,1) = .16839988034 : B(7,2) = .058094380011 4120 B(8,l) = .0065523901260 : B(8,2) = .00057102166494 4130 B(9,0) = 193.65875588 : B(9,1) =-1388.5224256 4140 B(9,2) = 4126.6072198 : B(9,3) =-6508.2116776 4150 B(9,41 = 5745.9840544 : B(9,5) =-2693.0883650 4160 B(9,6) = 523.57186236 4170 4100 !! = 4.2603211420 4190 4200 SB = .76333333334 : SB(6,1)= .40060739498 4210 SB(7,1) .086360816274 : SB(8,1t= .85323229214 4220 S918,2): .346020W614 4230 4240 11(6,1):14 : 11(7,1)=19 : 11(8,1)=54 : 11(8,2)=27 4250 4260 21(1,1)=13 21(1,2)=3 : ZI(2,1)=1B : ZI(2,21=2 : ZI(2,3)=1 4270 21(3,1)=18 : ZI(3,2)=10 21(4,11=25 : ZI(4,2)=14 : 21(5,1)=32 4280 ZI(5,2)=28 : ZI(5,3)=24 : III6,1)=12 : Z!(6,21=11 : 2117,1)=24 4290 21(7,2):18 : ZI(8,1)=24 : II(8,2):14 l-8
APPENDl! I: TABLES. BAS 4300 4310 4320 ** ENTHALPY **
4330 4340 PRINT : PRINT : PRINT : PRINT TAB (27); ' Computing Enthalpy of Steas' : PRINT : PRINT 4350 4360 CE3=0 : CE4:0 : CES=0 : DE6=0 : CE6:0 4370 4380 I = EIP(SB+(1-THETA)) : CE1= ALPHA.0 : CE2=B0eTHETA 4390 4400 FOR NUI = 1 TO 5 4410 CE3=CE3+B(0,NUIle(NUI-2)* THETA'(NUI-1) 4420 NEIT NUI 4430 4440 FOR MUI = 1 TO 5 4450 IF MUI:1 THEN NTI 2 4460 IF MUI=2 THEN NTI 3 4470 IF MUI=3 THEN NTI:2 4480 IF MUI=4 THEN NTI:2 4490 IF MUI:5 THEN NTI:3 4500 FOR NUI = 1 TO NTI 4510 DE4(MUI)=DE4(MUI)+B(MUI,NUI)s(1+ZI(MUI,NUI)+SB* THETA)el^ZI(MUI,NUI) 4520 IF DIAGNOSTIC.FLAGIO'S' THEN GUTO 4550 4530 LPRINT TAB (12);'DE4(MUI)=';DE4(MUI);' B(MUI,NUI)=*;B(MUI,NUI) 4540 LPRINT TAB (12);'(1+ZI(MUI,NUI)*SB*THETAl=';(1+ZI(MUI,NUI)*SB* THETA);' I^ZI(MUI,NUI)=',1^ZI(MUI,NUI) 4550 NEIT NUI 4560 CE4=CE4+ BETA ^MUI*DE4(MUI) 4570 IF DIAGNOSTIC.FLA680'S' THEN GOTO 4590 4580 LPRINT TAB (12);'CE4=';CE4;' DE4(MUI)=';DE4(MUI) 4590 PRINT TAB (39);16-MUI 4600 NEIT MUI 4610 4620 FOR MUI = 6 TO 8
, 4630 DE5=0 .
4640 IF MUI:6 THEN NTI:2 : LI:1 4650 IF MUI=7 THEN NTI=2 : LI:1 4660 IF MUI=8 THEN NTI:2 : LI=2 4670 FOR NUI = 1 TO NTI 4680 DN5=0 : DD5=0 8690 FOR LAMBAI= 1 TO LI 4700 225=DN5+II(MUI,LAMBAI)*SB(MUI,LAMBAI)*I^II(MUI,LAMBAI) 4710 DD5=DD5+SB(MUI,LAMBAllel^II(MUI,LAMBAI) 4720 NEIT LAMBAI 4730 DE5=DE5tB(MUI,NUllel^ZI(MUI,NUI) el(1+II(MUI,NUI)*SB* THETA)-(SB+ THETA *DN5)/(1/ BETA *(-2+MUII+DD51) 4740 NEIT NUI 4750 CE5=CE5+DE5/II/ BETA ^(-2+MUI)+005) 4760 IF MUI( 7 THEN PRINT TAB (39);16-MUI 4770 IF MUU =7 THEN PRINT TAB (40);16-MUI 4780 NEIT MUI 4790 4800 FDR NUI = 0 TO 6 4010 DE6=DE6+(1+ THETA *(10* BETA.L. PRIME /SETA.L+NUIeSB))tB(9,Nullel^NUI 4820 PRINT _ TAB (40);7-NUI 4830 NEIT NUI l-?
APPECl!12 TABLES. BAS 4840 4850 CE6= BETA *(BETA / BETA.L)^10*DE6 4860 4870 EPSILON.2=CEl+CE2-CE3-CE4-CES+CE6 4800 H=2.212E+07*.00317+ EPSILON.2/2326 4890 4900 PRINT : PRINT : PRINT 4910 4920 4930 ** SPECIFIC VOLUME **
4940'
- 4950 IF I$ 0' ANALYSIS' THEN PRINT TAB (23);' Computing Specific Volume of Steas' : PRINT : PRINT 4960 4970 CV2=0 : CV3=0 : DV4=0 4980 4990 CVl=Il* THETA / BETA : PRINT TAB (40);'16' 5000 5010 FOR MUI = 1 TO 5 5020 IF MUI=1 THEN NTI=2 5030 IF MUI 2 THEN NTI:3 5040 IF MUI:3 THEN NTI=2 5050 IF MUI:4 THEN NTI=2 5060 IF MUI=5 THEN NTI 3 5070 FOR NUI = 1 TO NTI 5080 DV2(MUI)=DV2(MUI)+B(MUI,NUI)*1^ZI(MUI,NUIt 5090 NEIT NUI 5100 CV2=CV2+MUI* BETA ^(MUI-1)*DV2(MUI) 5110 PRINT TAB (39);16-MUI 5120 NEIT MUI 5130 5140 FCR MUI = 6 TO 8 5150 DN3:0 : D03=0 5160 IF MUI:6 THEN NTI:2 : List 5170 IF MUI:7 THEN NTI:2 : LI=1 5100 IF MUI=8 THEN NTI:2 : LI:2 5190 FOR NUI = 1 TO NTI 5200 DN3=DN3+B(MUI,NUI)*I^ZI(MUI,NUI) 5210 NEIT NUI 5220 FOR LAMBAI = 1 TO LI 5230 D03=DD3+SB(MUI,LAMBAI)*I^II(MUI,LAMBAI) 5240 NEIT LAMBAI 5250 CV3=CV3+(MUI-2)* BETA ^t!-MUI)*DN3/(BETA ^(2-MUII+DD3)^2 5260 IF MUI(7 THEN PRINT TAB (39);16-MUI ELSE PRINT TAB (40);16-MUI 5270 NEIT MUI 5280 5290 FOR NUI = 0 TO 6 5300 DV4=DV4+B(9,NUI)*1#NUI 5310 PRINT TAB (40);7 NUI 5320 NEIT NUI 5330 5340 CV4=11*(BETA / BETA.L)^10sDV4 5350 5360 CHl.2=CVI CV2-CV3+CV4 : V=.003176.45359237t*CHl.2/.3048^3 5370 l-10
APPEND!I 1: TABLES. BAS 5380 5390 ** OUTPUT *e 5400 5410 IF Ns='A' OR N8='B' THEN 5430 ELSE 5450 5420 5430 V6=V : H6=H : 60TO 7420 5440 5450 IF PRINT.FLA68='S' THEN 5800 5460 5470 A=15 : CLS : LDCATE 9,A+6 : PRINT 'Steas Teeperature = '; : PRINT USING 'lett.ll';T; 5400 PRINT
- degrees F' 5490 PRINT TAB (A+8);'Systes Pressure ='; : PRINT USING '88888.ll';P; 5500 PRINT ' psia' 5510 5520 PRINT: PRINT TAB (A+4);' STEAM PROPERTIES :"
5530 PRINT : PRINT TAB (A+15); 'Enthalpy = '; : PRINT USING 'llit.I';H; 5540 PRINT
- BTUs/ pound' 5550 5560 PRINT TAB (A+8);' Specific Volume = ';
5570 IF P)200 THEN PRINT USING '8644.lill';V; GOTO 5600 5580 IF P)25 THEN PRINT USING 'till.lill';V; : 60TO 5600 5590 IF P)4.4 THEN PRINT USING 'llit.lil';V; : ELSE FRINT USING 'llit.ll*;V; 5600 IF V(=1 THEN PRINT ' cubic foot / pound' ELSE PRINT
- cubic feet / pound' 5610 .
5620 PRINT TAB (A+16);' Density = ';
$630 IF P)200 THEN PRINT USING *ti.itt';1/V; a 60TO 5660 5640 IF P)25 fHEN FR!NT USING '44.llel*;t/V; : 60TO 5660 5650 IF P)4.4 THEN FRINT USING 'It.lill4*;1/V; ELSE PRINT USING 'll.Illill';1/V; 5660 PRINT
- pounds / cubic foot * : PRINT 5670 5680 IF THETA >= 1 THEN 5690 ELSE 5730 5690 PRINT TAB (A+1);'Teeperature is greater than tha critical ';
5700~ PRINT 'teeperature' 5710 PRINT TAB (A+1);'which is 705.47 degrees F. Saturation is not' 5720 PRINT TAB (A+1);'possible at any pressure.' : PRINT 5730 5740 PRINT : PRINT : PRINT 5750 LOCATE 25,23 : PRINT 'To continue, press the '; COLOR 16,7 : PRINT ' space bar '; COLOR 7,0 : PRINT '.*;
5760 2$=INKEY8 : IF Z$()CHR$(32) THEN 5760 5770 5780 60TO 6100 5790 5800
- Printer Routine
- 5810 ' '
5820
$830 DN ERROR 60TO 3210 5840 5850 LPRINT CHR$(13); LPRINTCHR$!27);CHRt(69);
5860 5870 LPRINT TAB (A+7);'Stese Teeperature = '; LPRINT USING 'llit.fl*;T; 5880 LPRINT ' degrees F' 5890 LPRINT TAB (A+8);'Systes Pressure s'; : LPRINT USING 'litil.it';P;
$900 LPRINT
- psia' 5910 l-11
APPENDl! Is TABLES. BAS 5920 LPRINT:LPRINT TAB (A+4);'STEAN PROPERTIES :*-
5930 LPRINT : LPRINT TAB (A+15); 'Enthalpy = '; LPRINT USING 'Itti.I';H; 5'40 LPRINT
- BTUs/ pound' 5950 5960 LPRINT TAB (A+8);' Specific Volume = *;
5970 IF P)200 THEN LPRINT USING 'litt.ltli';V; 60TO 6000 5980 IF P)25 THEN LPRINT USING 'Itte.4448';V; : 60TO 6000 5990 IF P)4.4 THEN LPRINT USING 'Itti.044';V; : ELSE LPRINT USING '9444.ll';V; 6000 IF V(=1 THEN LPRINT
- cubic foot / pound' ELSE LPRINT
- cubic feet / pound' 6010 6020 LPRINT TAB (A+16);' Density = ';
6030 IF P)200 THEN LPRINT USING '60.844';t/V; 60TO 6060 6040 IF P)25 THEN LPRINT USING 'St.0404';1/V; GOTO 6060 6050 IF P)4.4 THEN LPRINT USING '80.64644';t/V; ELSE LPRINT USING 'll.iltill';t/V; 6060 LPRINT
- pounds / cubic foot' : LPRINT 6070 6080 IF THETA >= 1 THEN 6090 ELSE 6130 6090 LPRINT TAB (A+1);'Teaperature is greater than the critical ';
6100 LPRINT
- temperature' 6110 LPRINT TABIA+1);'which is 705.47 degrees F. Saturation is not'
' 6120 LPRINT TAB (A+1);"possible at any pressure.' LPRINT 6130 6140 LPRINT : LPRINT : LPRINT 6150 60TO 5470 6160 6170 6180 ** DIABNOSTICS **
6190 6200 IF DIAGNOSTIC.FLA68='S' THEN GOTO 6210 ELSE GOTO B510 -
6210 IF PRINT. FLAG 8='S' THEN A=30 : B:4+5 : GOTO 6470 ELSE A=4 6220 B=A+5 6230 PRINT : PRINT TAB (A);' Diagnostics for the preceding coeputation:'
6240 PRINT 6250 6260 PRINT TAB (B);* THETA = '; THETA; PRINT TAB (B);' BETA = '; BETA 6270 PRINT TAB (B);' BETA.L = '; BETA.L 6280 PRINT TAB (B);' BETA.L. PRIME = '; BETA.L. PRIME 6290 PRINT TAB (B);'CEI = *;CEI : PRINT TAB (B);'CE2 = ';CE2 6300 PRINT TAB (B);'CE3 = ';CE3 : PRINT TAB (B);'CE4 = ';CE4 6310 PRINT TAB (S);'CE5 = *;CE5 : PRINT TAB (B);'CE6 = ';CE6 6320 6330 PRINT TAB (B);' EPSILON.2 = '; EPSILON.2 6340 6350 PRINT TAB (6#;'CV! = ';CVI : PRINT TAB (B);'CV2 = ';CV2 6360 PRINT TAB (B);'CV3 = ';CV3 : PRINT TAB (B);'CV4 = *;CV4 6370 6300 PR!l:T TAB (B);' CHI.2= ';CHl.2 6390 6400 IF. PRINT.FLA6l='C' THEN GOTO 6440 6410 6420 PRINT CHR$(12) : : A=0 6430 6440 GOTO 8510 6450 1-12
APPENDl! I: TABLES. BAS 6460 6470
- Printer Routine a 6480 6490 LPRINT : LPRINT TAB (A);* Diagnostics for the preceding computation:'
6500 LPRINT 6510 6520 LPRINT TAB (B);' THETA = '; THETA; LPRINT TAB (B);' BETA = *; BETA 6530 LPRINT TAB (B);' BETA.L = ";BLTA.L 6540 LPRINT TAB (B);' BETA.L. PRINE = '; BETA.L. PRINE 6550 LPRINT TAB (B);'CEl = ';CEl : LPRINT TAB (B);'CE2 = ';CE2 6560 LPRINT TAB (B);'CE3 = ';CE3 : LPRINT TAB (B);'CE4 = ';CE4 6570 LPRINT TAB (B);*CE5 = ';CE5 : LPRINT TABIB);'CE6 = *;CE6 6580 659u LPRINT TABIB);' EPSILON.2 = ';EPSIL0N.2 6600 6610 LPRINT TAB (B);'CVI = *;CVI : LPRINT TAB (B);'CV2 = ';CV2 6620 LPRINT TAB (B);'CV3 = ';CV3 : LPRINT TAB (5);'CV4 = *;CV4 6630 6640 LPRINT TAB (B);'CHl.2= ';CHl.2 6650 6660 IF PRINT.FLA68='C' THEN GOTO 6440 6670 6680 PRINT CHR$(12) : A=0 6690 6700 60TO B510 6710 6720
- ~
6730 essenesenesees 6740
- SATURATION e 6750 *eH H H'e****
6760 6770 ** PRESSURE **
6780 6790 Ref: Appendix,1; Sections 5 and 7.1.5 _
6800 6810 IF THETA (al THEN PSATI = 3208.2348teBETA.K ELSE 6950 ,
6820 IF N8='A' THEN P=PSAit : 60TO 760 6830 6840 IF PRINT. FLAG $:'S' THEN GOTO 6970 ELSE GOTO 6860 6850 6860 PRINT TAB (A+4);' Saturation Pressure = ';
6870 6800 IF T)$80 THEN PRINT USING 'llti.I';PSAit; : GOTO 6930 6890 IF T)430 THEN PRINT USINS 'llit.ll';PSAit; a GOTO 6930 6900 IF T)lB0 ThEN PRINT USING 'llit.lil';PSATl; GOTO 6930 6910 IF T)l05 THEN PRINT USING 'llit.Illi';PSAil; : 6070 6930 ELSE PRINT USING 'Stil.llitt';PSAit; 6920 6930 PRINT ' psia' 6940 6950 RETURN 6960 6970 LPRINT TAB (A+4);" Saturation Pressure = ';
6980 I-13
APPEO!!18 TABLES 0 BAS 6990 IF T)580 THEN LPRINT USINS 'Stil.t';PSATt; GOTO 7040 !
7000 IF T)430 THEN LPRINT USING 'ltti.it';PSAit; GOTO 7040 7010 IF T)lB0 THEN LPRINT USING 'lttt.itt';PSAit; : 60TO 7040 7020_ IF T)105 THEN LPRINT USING
- trit.itte';PSAit; : GOTO 7040 ELSE LPRINT USING 'itti.ititt';PSATt; 7030 7040 LPRINT
- psia' 7050
^
7060 RETURN 7070 7080 7090 ** TEMPERATURE **
7100 7110 PRINT : PRINT : PRINT 7120 DUMY.THETAl=.5 7130 DUMY.C# = 1 - DUMY.THETAt 7140 DUMY. SIGMA 4 = Skit +DUMY.Ct+SK20*DUMY.Cl^2+SK30iDUMa *t^3+SK4t*DUMY.Cl^4 +SK54*DUMY.Ct'5 7150 DUMY. BETA.Kt = EIPIDUMY.SIGMAt/(DUMY.THETAle(1+SK6bOLMY.Ct+SK76500MY.CI'21)
-DUMY.Ct/(SKGleDUMY.Cl^2+5K981) 7160 PSATt=3200.234Bl*0UMY.BEIA.Kt 7170 P.ERRORt= P- PSAit 7180 7190 PRINT TAB (25);'PSAT4 Convergence is '; PRINT USING 'llitt.ittil';P.ERRORI 7200 7210 IF ABS!P.E D088))2500 THEN DAMPIN6=l!
7220 IF ABS (P.ERRORt)(*2500 AND ABS (P'.ERRORil)2000 THEN DAMP!N6=.5 7230 IF ABS (P. ERROR 8)(=2000 AND ABS (P.ERRORI))l500 THEN DAMPIN5=.35 7240 IF ABS (P.ERRORI)(=1500 AND ABS (P.ERRORI))!!00 THEN DAMP!N6=.25 7250 IF ABS (P.ERRORt)(=1100 AND ABS (P.ERRORI)) 100 THEN DAMFING=.15 7260 IF 100)= ABS (P.ERRORt) THEN DAMPING =.1 7270 7280 IF P)1000 THEN ACCEPTABLE. ERROR =.0016 7290 IF P(=1000 AND P)50 THEN ACCEPTABLE. ERROR =.000!t 7300 IF P(=50 ThEN ACCEPTABLE. ERROR =.0000lt 7310 7320 IF ASS (P.ERRORt)) ACCEPTABLE. ERROR THEN 7330 ELSE GOTO 7370 7330 DUMY.THETAt = DUMY.THETAt+((IDAMP!N6*P.ERRORt)/Pl*DUMY.THETAI) 7340 IF DUMY.THETAl>=1 THEN DUMY THETAl=.99999 7350 60TO 7130 7360 7370 TSAT=l!65.14*DUMY.THETAl-459.67 7380 IF Ws='B' THEN T=TSAT : G3TO 740 7390 7400 RETURN 1410 7420 7430 ** OUTPUT **
7440 7450 IF PRINT.FLA68='S' THEN 7950 7460 7470 CLS : A=15 : LOCATE 6,A+6 7480 PRINT ' Saturation Teeperature = '; PRINT USING 'itti.it';T; 7490 PRINT
- degrees F' 7500 FRINT TAB (A+9);' Saturation Pressure = ';
7510 l-14
APPEGli I: TABLES. BAS 7520 IF T)580 THEN PRINT USING 'llet.l';PSATl; : 60TO 7570 7530 'IF T)430 THEN PRINT'USIMB 'llet.84';PSAT4; : GOTO 7570 7540 IF T)180 THEN PRINT USING 'itti.948';PSAil; : 60TO 7570 7550 IF T)l05 THEN PRINT USING 'llit. fill';PSAil; : 60TO 7570 ELSE PRINT USING 'llit.filli';PSAil; 7560 7570 PRINT
- psia' 7500 7590 PRINT: PRINT TAB (A+4);'NATER PROPERTIES :"
7600 PRINT : PRINT TAB (A+15);'Enthalpy = ';
7610 IF P)25 THEN PRINT USING ' lit.I';HF; ELSE PRINT USING ' lit.I';HF; 7620 PRINT ' BTUs/ pound' 7630 7640 PRINT TAB (A+8);' Specific Volume = *;
7650 IF P)l00.THEN PRINT USINS 't.ilill';VF; ELSE PRINT USING 't.litill';VF; 7660 PRINT ' c.bic foot / pound' 7670 7680 PRINT TAB (A+16);' Density = *; : PRINT USING 'll.it';1/VF; 7690 PRINT
- pounds / cubic foot' 7700 7710 PRINT PRINT TAB (A+4);' STEAM PROPERTIES :'
7720 PRINT : PRINT TAB (A+15); 'Enthalpy = '; PRINT USINS 'llit.I';HG; 7730 PRINT
- BTUs/ pound' 7740 7750 PRINT TAB (A+8);' Specific Voluae = ';
7760 IF P)200 THEN PRINT USING 'Itti.fillt';VG; : GOTO 7790 7770 IF P)25 THEN PRINT USING 'llel.illi';VB; GOTO 7790 7780 IF P)4.4 THEN PRINT USil!C 'llet.lil';VG; ELSE PRINT USING 'till.ll';VG; 7790 IF V(si THEN PRINT ' cubic fcot/ pound' ELSE PRINT ' cubic feet / pound' 7800 ,
7810 PRINT TAB (A+16);' Density *;
7820 IF P)200 THEN PRINT USING 'll.lli';1/VG; i GOTO 7850 7830 IF P)25 THEN PRINT USING 'll.lill';t/VG; : GOTO 7850 7840 IF P)4.4 THEN PRINT USING 'll.llill';1/VG; ELSE PRINT USING 'll.Ililli';l/V6; 7850 PRINT ' pounds / cubic fact' : PRINT 7860 7870 PRINT : PRINT : PRINT 7680 7890 LOCATE 25,23 : PRINT 'To continue, press the '; COLOR 16,7 : PRINT
- space bar '; : COLOR 7,0 : PRINT '.';
7900 Zi=lNKEYf: IF Z$(>CHR$(32) THEN 7900 1910 7920 60T0 8510 7930 7940 1950
- Printer Routine +
7960 7970 ON ERROR GOTO 3210 7980 7990 LFR!NT CHR$(18); : LPRINT CHR$(27);CHR$(69);
8000 8010 LPRINT TAB (A+6);' Saturation Temperature = '; LPRINT USING 'llit.ll';T; 8020 LPRINT
- degrees F' 8030 LPRINT TAB (A+9);' Saturation Pressure a ';
8040 1-15
APPE3 11 In TABLES,8AS 8050 IF T)580 THEN LPRINT USING 'till.I';PSAit; 60TO B100 8060 IF T)430 THEN LPRINT USING 'llit.it';PSAil; i 60TO 8100 8070 IF T)180 THEN LPRINT USING 'llit.Ill';PSAil; GOTO 8100 8080 IF T)105 THEN LPRINT USING 'llit.litt';PSATl; : GOTO 8100 ELSE LPRINT USING 'llit.llill';PSAil; 8090 8100 LPRINT
- psia' 8110 8120 LPRINT:LPRINT TA8(A+4);'NATER PROPERTIES s' 8130 LPRINT : LPRINT TAB (At15);'Enthalpy = ';
8140 IF P)25 THEN LPRINT USING ' lit.I';HF; ELSE LPRINT USING 'llt.l*;HF; 8150 LPRINT ' BTUs/ pound' 8160 8170 LPRINT TA8(A+8);' Specific Volume = ';
8100 IF P)l00 THEN LPRINT USING 't.llill';VF; ELSE LPRINT USING 't.litill';VF; 8190 LPRINI
- cubic foot / pound' 8200 B210 LPRINT TA8(A+16);' Density = '; : LPRINT USING 'll.it';1/VF; 8220 LPR[NT ' pounds / cubic foot' : LPRINT 8230 8240 LPRINT:LPRINT TA8(A+4);' STEAM PROPERTIES s' 8250 LPRINT : LPRINT TABIA+15); 'Enthalpy = '; a LPRINT USING 'llit.l*;H6; 8260 LPRINT ' BTUs/ pound' 8270 8280 LPRINT TAB (A+8);' Specific Volume = ';
8290 IF P)200 THEN LPRINT USING 'liti.llill';V6; : GOTO 8320 8300 IF P)25 THEN LPRINT USING 'llit.lill';V6; GOTO 8320 8310 IF P)4.4 THEN LPRINT USINS 'llit.lil';V6; : ELSE LPRINT USINS '9644.ll';V6; 8320 IF V(=1 THEN LPRINT ' cubic foot / pound' ELSE LPRINT
- cubic feet / pound' 8330 8340 LPRINT TA8(A+16);' Density = ';
8350 IF P)200 THEN LPRINT USINS 'll.Ill';1/VG; GOTO 838) 8360 IF P)25 THEN LPRINT USING 'll.lill';1/V6; : GOTO 8380 8370 IF P)4.4 THEN LPRINT USING 'll.llill';t/V6; ELSE LPRINT USING 'll.litill';1/VB; 8380 LPRINT
- pounds / cubic foot' : LPRINT ,
8390 8400 LPRINT : LPRINT : LPRiNT : GOTO 7470 8410 8420 IF PRINT.FLA68='C' THEN GOTO 8430 ELSE GOTO 8450 8430 INPUT
- To continue, press RETURN.'; D$
8440 8450 A=0 8460 8470 LPRINT : LPRINT : LPRINT : GOTO 7470 8480 8490 LOCATE 25,23 : PRINT 'To continue, press the '; : COLOR 16,7 : PRINT ' space bar '; COLOR 7,0 : PRINT *.';
8500 lt=INKEf8 : IF !$0CHR$(32) THEN 8500 8510 CLS : LOCATE 13,20 : PRINT ' LOADING INTRODUCTION MODULE INTO MEMORY' 0520 his' INTRO 1920' : CHA!N' INTR 0' 8530 60TD 280 8540 0550 END l-16
4 APPENDIX J REPORTS. BAS 0
0
APPENDIX J: REPORTS. BAS TABLE Of CONTENTS Page Menu J- 1 Input Data J- 2 Heat Balance J- 6 Data Sheet J- 9 I
i 1
J-iii 1
APPENDl! Ja REPORTS. BAS 10
- u 20 ** P~ PORTS. BAS n 30 unuunune-40
$o unuun 60
- COMON
- 70 unuun 80 90 DEFDBL A-Z 100 110 REM Parameters 120 COMMON CARRYOVER.A, CARRY 0VER.B CARRY 0VER.C, CARRYOVER.D, LOSS. COEFFICIENT,NONREFLECT. AREA,PZR.10 130 COMON RISER. NUMBER, RISER.00, CONDUCTIVITY,1NSULATION. THICKNESS,LIC. POWER,LOOPSI, REFLECT. AREA 140 COMON RC. PUMP. EFF , RC. PUMP. Ph?i, S6. ! D , DOCK ET $
150 160 REM Data 170 COMON BOTTOM.BLOWO, CHAR 61NG.FLOWO, CHARGING. TEMPO,FEEDWATER.FLOWO,FEEDWATER. TEMPO,LETDCWN.FLOWO 180 COMON LETDOWN.TEMPU,PZR.PRESO,PIR. WATER.LEVELO, STEAM.PRESO,T.AVEU,T.COLDO,TTIMEO, TOP.BLOWU 190 COMON SG. WATER.LEVELO, DATA.SETSI,00ATEt, PLANT $, UNITS 200 210 REM Auxiliary Results 220 COMON A , B ,20TTOM. BLOW. DENS ! TY O , DELT A. TIME, DRY. STE AM. ENTH ALP Y 0 , H,1, M0 !STURE. ENTHALP Y O , N , P , PS Ait 230 COMON, PIR.DENSITYO,PZR.ENTHALPYU,SS. CROSS.SECTION,T,TSAT,V,MI,NI, DATA.FLAS$, DIAGNOSTIC.FLAGt 240 COMON PARAMETER. FLAGS, PRINT. FLAGS,RESULTS. FLAG 8,II,Y$,Z$
250 260 IF Is=' DATA SHEET' THEN 4500 ELSE IF If=' INPUT DATA' THEN 670 270 IF If*' HEAT BALANCE
- THEN 3430 ELSE 310 280 290 300 HHHH 310
- MENU
- 320 unun 330 -
, 340 CLS : TI 7 : BI:19 : LI:12 : RI=69 .
350 LOCATE TI,LI : PRINT CHRf(20ll : LOCATE TI,RI : PRINT'CHRillB7) : LOCATE BI,RI : PRINT CHR$(1881 360 LOCATE BI,LI : PRINT CHR$(2001 370 LOCATE TI,LI+1 : FOR 11=1 TO RI-LI-1 : PRINT CHR$(205); NEIT 380 LOCATE BI,LI+1 : FOR 111 TO RI-LI-t : PRINT CHR$(205); a NEIT 390 FOR II T!+2 TO BI : LOCATE II-1,LI : PRINT CHR$(186) : NEIT 400 FOR II=TI+2 TO BI : LOCATE II-1,RI : PRINT CHR$(1861 : NEIT 410 420 LOCATE 25,22 : PRINT 'Mter responding, strike the '; : COLOR 16,7 430 PRINT * ';CHR$(17)+CHRl(196 HCHR$(217);' '; : COLOR 7,0 : Pr.!NT ' key.';
440 450 LOCATE 7,35 : PRINT
- REPORTS MENU * : LOCATE 9,32 : PRINT '(A) Blank Data Sheet' 460 LOCATE 11,32 : PRINT '(B) Input Data' s LOCATE 13,32 : PRINT 'iC) Heat Balance' 470 LOCATE 15,32 : PRINT ' D) MASTER MENU' LOCATE 17,32 : PRINT '(E) Termination' 480 LOCATE 19,23 : PRINT ' Which would you like (A/B/C/D/El? *; e LOCATE 19,58 : INPUT ",Is 490 500 if Isn'A' GR Ils'a' THEN GOTO 4500 ELSE IF I$3'B' OR Ita'b' THEN GOTO $60 510 IF Its'C' GR Il2'c' THEN GOTO 3020 ELSE !F 182'0' OR Ils'd' THEN GOTO 5210 520 IF If*'E' CR Its'e' THEN CHA!N 'END' ELSE GOTO 310 530 540 J-1
APCI h REPORTS. BAS 550 ***********ue 560
- IhPUT DATA
- 570 ********He***
'500 590 ** RECALL **
600 610 LPRINT CHR$(15); REM Condensed Font 620 630 OPEN DOCKET $ AS 11 LEN=159 : FIELD 01,158 AS 18,1 AS PFs : 6ET 01,1 : PARAMETER.FLA65=PFs 640 CLOSE : I$=' INPUT DATA' : GGSUB 660 : CHalN 'PRMLDATA' 650 660 CLS : LOCATE 13,18 : PRINT 'LDADING PARAMETERS & DATA MODULE INTO MEMORY' RETURN 670 680 60SUB 2900 690 700 710
- Printout
- 720 730 60SUB 3630 : A=1B : B=A+1 : C=A+34 : D=A+43 : E=A+63 : F=A+97 : 6=A+106 : LPRINI CHR$(15);
740 750 IF LOOPSI:2 THEh LFRINT : LPRINT : LPRINT 760 170 LPRINT : LPRINT 780 WIDTH 'LPT?:',132 790 LPRINT TAB (A+471;' HEAT BALANCE DATA' 600 LPRINT TABIA+(111-(LEN(PLANT $+ UNIT 81+1))/2); PLANTS;' '; UNITS 810 LPRINT TABIA+(111-LEN(03ATES))!2);DDATEs 820 B30 LPRINT TAB (B);' PLANT PARAMETERS:'
640 850 LPRINT 960 LPRINT TABIB+1);
- REACTOR C00LANT SYSTEM';
B70 LPRINT TfBIE+1); ' REFLECTIVE INSULATION' 880 LPRINT TABIB+1);
- Pump Power (Mii each)'; TAB (D+1); LPRINT USING 'll.I'; RC. PUMP.PWR; 890 LPRINT TAB (E+1); ' Inside Surface Area (sq ft)' ; TAB (6-1); : LPRINT USING '90,004'; REFLECT. AREA 900 ' LPRINT TAB (B+1); ' Pusp EHiciency (11'; TAB (D+1); : LPRINT USIN6 'll.I';RC. PUMP.EFF; 910 LPRINT TAB (E+1);
- Heat loss CoeHicient (BTus/br sq f tl'; TAB (6-1);
920 LPRINT USING ' lit.ll'; LOSS. COEFFICIENT 930 LPRINT TAB (B+1); ' Pressurizer Inside Diaseter (inches)'; TAB (D); : LPRINT USING ' lit.l*; PZR.!D 940 LPRINT TABIE+1); ' NONREFLECTIVE IhSULATION' 950 LPRINT TABIE+1); ' STEAM SENERAIGRS*;
960 LPRINT TAB (E+1); ' Inside Surf ace Area (sq f tl'; TAB (6-1);:LPRINT USING 'll,ill'; NONREFLECT. AREA
~
970 LPRINT TABIB+1);
- Dese Inside Diameter (inchesn'; TAB (D-1); : LPRINT USING '864.80'; S6.10; 980 LPRINT TAB (E+1);
- Thickness (inches)" ; TAB (G+1) ;: LPRINT USING 'll.I'; INSULATION. THICKNESS 990 LPRINT TAB (2+1); ' Riser Outside Diameter (inchest'; TAB (D) ; : LPRINT USING 'll.it*; RISER.0D; 1000 LPRINT TABtE+1);
- Thereal Conductivity (BTUs/hr it F)'; TAB (G-1); : LPRINT USING '80.640'; CONDUCTIVITY 1010 LPRINT TAB (B+1);
- Number of Risers'; TAB (D+3);:LPRINT USING 'll'; RISER. NUMBER 1020 LPRINT TAB (B+1); ' Moisture Carry-over (Il in A'; TAB (Dl; : LPRINT USING *t.llt'; CARRYOVER. A; 1030 LPRINT TABIE+1'; ' LICENSED THERMAL POWER (MWti'; TAB (6+1); : LPRINT USING 'till'; LIC. POWER 1040 LPRINT TAB (B+1);
- Moisture Carry-over (1) in B'; TAB (Dl; : LPRINT USING 't.lil'; CARRY 0VER.B 1050 IF LOCPSI:2 THEN 1080 ELSE LPRINT TAB (B+1);
- Moisture Carry-over II) in C'; TAB (D); : i LPRINT USING 't.lli'; CARRYOVER.C 1060 IF LOOPSI=3 THEN 1080 ELSE LPRINT TAB (B+1); ' Moisture Carry-over (I) in D'; TAB (D); : .
LPRINI USING 't.lli'; CARRf0VER.D i l
J-2 l I 1
APPENDII J: REPORTS. BAS 1070 1080 LPRINT : LPRINT
.1090 1100 LPRINT TAB (B);' DATA:'; : IF DATA.SETSI=1 THEN LPRINT : 60TO 1160 1110 LPRINT TAB (C);' SET l'; : LPRINT TAB (D);' SET 2'; : LPRINT TAB (F);' SET l'; : LPR:NT TAB (6);' SET 2'
!!20 1130 LPRINT : LPRINT TAB (B+1);' TIME'; TAB (C+1); TTIMEs(i); TAB (D+1); TTIMEs(2);
1140 LPRikT TABIE+1);' TIME'; TAB (F+1); TTIMEsti); TAB (6+1); TTIMEs(2) : LPRINT : 60TO 1190 1150 1160 LPR!hi : LPRINT TAB (B+1);' TIME'; TAB (D+1); TTIMEsti); TAB (E+1); ' TIME'; TAB (6+1); TTIMElit) : LPRINT
!!70
!!B0 LPRINT TAB (B+1);' STEAM 6ENERATOR A*; : LPRINT TABIE+1);' STEAM 6ENERATOR B' 1190 1200 LPRINT 1210 1220 LPRINT TAB (B+2); 'Steae Pressure (psial'; : IF DATA.SETSI=1 THEN 1250 1230 LPRINT TAB (C-1); : LPRINT USINS 'llit.l*; STEAM. PRES (1,1); : LPRINT TAB (D-1);
1240 LPRiliT USING 'llit.l*; STEAM. PRES (1,2); : 60TO 1260 1250 LPRINT TAB (D-1); : LPRINT USING 'till.I'; STEAM. PRES (1,1);
1260 LPRINT TABIE+2); 'Steae Pressure (psia)*; : IF DATA.SETSI=1 TkEN 1290 1270 LPRINT TAB (F-1); : LPRINT USINS 'llit.I'; STEAM. PRES (2,1); : LPRINT TAB (6-1);
1280 LPRINT USING 'llit.I'; STEAM. PRES (2,2) : 60TO 1300 1290 LPRINT TAB (6-1); ; LPRINT USING 'llit.I'; STEAM. PRES (2,1) 1300 LPRINT TABIB+2); ' Feed =ater Flon (E6 lb/hr)*; s'IF DATA.SETSI=1 THEh 1330 1310 LPRINT TAB (C-1); : LPRINT USING '88.let'; FEEDWATER.FLOWit,1); : LPRINT TAB (D-1);
1320 LPRINT USING '81.840'; FEEDWATER. FLOW (1,2); : SOTO1346 1330 LPRINT TAB (D-:); : LPRINT USING '88.lle'; FEEDWATER.FLOWit,1);
1340 LPRINT TAB (E+2); 'Feedsater Flou (E6 lb/hrl'; : IF DATA.SETSI:1 THEN 1370 t!50 LPRINT TAB (F-1); : LPRINT USING '84.484'; FEEDWATER. FLOW (2,1); a LFn!NT TAB (6-1);
1360 LPRINT USING '80.888'; FEEDWATER.FLCW(2,2) : 60TO 1380 1370 LPRINT TAB (6-1); : LPRINTUSING. '88.988'; FEEDWATER.FLOWI2,1)
!!E0 LPRINT TAB (B+2); 'Feedwater Temperature (F)'; : IF DATA.SETSI=1 THEN 14!0 1390 LPRINT TABIC); : LFRINT USINS 'lli.I'; FEEDWATER. TEMP (1,1); : LPRINT TAB (D);
1400 LPRINT USING ' lit.I'; FEEDWATER. TEMP (1,2); : GOTO 1420 1410 LPRINT TAB (D); : LPRINT USING 'lle.I'; FEEDWATER. TEMP (1,1);
1420 LPRINT TA9(E+2); 'Feedsater Temperature (F)'; TAB (F); : IF DATA.SETSI=1 THEN 1450 1430 LPRINT TAB (F); : LPRINT USING 'til.I'; FEEDWATER. TEM?(2,1); : LPRINI TAB (G);
1440 LPRINT USING 'lll.I'; FEEDWATER. TEMP (2,2); : SOTO 1460 1450 LPRINT TAB (6); : LFRINT USINS ' lit.I'; FEEDWATER. TEMP (2,1);
1460 LPRINT TAB (B+2); ' Surface Bicadown (gps)'; : IF DATA.SETSI:1 THEN 149i/
1470 LPRINT TABIC); : LPRINT US!hS 'llt.I'; TOP.BLCW(1,1); : LPRINT TABID);
1450 LPRINT USIhG ' lit.l*; TOP. BLOW (1,2); SOTO 1500 1490 LPRINT TAB (D); : LPRINT USING 'llt.I'; TOP. BLOW (1,1);
1500 LPRINT TAB (E+2); ' Surface Blewdown (gps)'; : IF DATA.SETSI:1 ThEN 1530 1510 LPRINT TAB (F); : LPRINT USIN5 ' lit.I'; TOP.BLCW(2,1); : LPRINT TAB (6);
1520 1 PRINT USING ' lit.8'; TOP. BLOW (2,2) : GOTO 1540 1530 LPRINT TABf6); : LPRINT USINS ' lit.I'; TOP. BLOW (2,1) 1540 LPRINT TAB (B+2); 'Botton Ble=down (gps)*; : IF DATA.SETSI:1 THEN 1570 1550 LPRINT TABIC); : LPRINT USING ' lit.I'; BOTTOM. BLOW (1,1); : LPRINT TAB (D);
1560 LPRINT USING 'llt.I'; BOTTOM. BLOW (1,2); : SOTO 1580 1570 LPRINT TAB (D); : LPRINT USING ' lit.I'; BOTTOM.BLCWII,1);
1580 LPRINT TAB (E+2); 'Bottos Blowdown (gpe)*; : IF DATA.SETSIst THEN 1610 1590 LPRINT TABIF); LPRINT USING 'lli.I'; BOTTOM.BLOWl2,1); : LPRINT TAB (6);
1600 LPRINT USING ' lit.l*; BOTTOM. BLOW (2,2) : 6010 1620 J-3
l APPE^21I J: REPORTS. BAS l l
l 1610 LPRINT TAB (6); : LPRINT USING ' lit.I'; BOTTOM.BLOWI2,1) l 1620 LPRINT TAB (B+2); ' Water Level (inches)'; : IF DATA.SETSI=1 THEN 1650 l 1630 LPRINT TABIC); : LPRINT USIN6 '888.I'; S6. WATER. LEVEL (1,1); : LPRINT TAB (D);
1640 LPRINT USING ' lit.l*; SS. WATER. LEVEL (1,2); : GOTO 1660 1650 LPRINT TAB (D); : LPRINT USING 'llt.l*; S6. WATER. LEVEL (1,1);
1660 LPRINT TAB (E+2); ' Water Level (inches)'; IF DATA.SETSI:1 THEN 1690 1670 LPRINT TAB (F); : LPRINT USING 'llt.I'; SG. WATER. LEVEL (2,1);
- LPRINT TAB (6);
1680 LPSINT USING ' lit.l*; SS. WATER. LEVEL (2,2) : 60TO 1700 1690 LPRINT TAB (6); : LPRINT USIN6' ' lit.l'; S6. WATER. LEVEL (2,1) 1700 1710 IF LOOPSI:2 THEN 2540 1720 IF LOCPSI:4 THEN 2030 1730 1740 LPRINT : LPRINT : LPRINT TABIB);* STEAM EENERATOR C' : LPRINT 1750 1760 LPRINT TAB (B+2); 'Steae Pressure (psial'; : IF DATA.SETSI=1 THEN 1790 1770 LPRINT TAB (C-1); : LPRINT USING 'llit.I'; STEAK. PRES (3,1); LPRINT TAB (D-1);
1780 LPRINT USINS 'llit.I'; STEAM. PRES (3,2) : GOTO 1600 1790 LPRINT TAB (D-1); : LPRINT USING 'llit.I'; STEM. PRES (3,1) 1800 LPRINT TAB (B+2); 'Feedwater Flow (E6 lb/hr)*; : IF DATA.SETSI=1 THEN 1830 1810 LPRINT TAB (C-1); : LPRINT USING 'll.lil'; FEEDWATER. FLOW (3,1); : LPRINT TAB (D-1);
1820 LPRINT USING 'll.Ill'; FEEDWATER. FLOW (3,2) : GOTO 1840 1830 LPRINT TAB (D-1); : LPRINT USINS 'll.lil'; FEEDWATER. FLOW (3,1) 1540 LPRINT TAB (B+2); 'Feedsater Temperature (F)'; : IF DATA.SETSI=1 THEN 1970 1850 LPRINT TAB (C); : LPklNT USINS '844.I'; FEEDWATER. TEMP (3,1); : LPRINT TAB (D);
1860 LPRINT USING 'llt.I'; FEEDWATER. TEMP (3,2) : 60TO 1880 1870 LPRINT TAB (D); : LPRINT USING 'llt.I"; FEEDWATER. TEMP (3,1)
ISB0 LPRINT TABIB+2); ' Surface Blowdown (gps!'; : IF DATA.SETSI=1 THEN 60TO 1910 1990 LPRINT TAB (C);.: LPRINT USINS ' lit.I'; TOP. BLOW (3,1); a LPRINT TABID);
1900 LPRINT USIN5 ' lit.I'; TCP.BLCW(3,2) : 60TO 1920 1910 LPRINT TAB (D); : LFRINT USING ' lit.I'; TOP. BLOW (3,1) 1920 LPRINT TAB (B+2); 'Bettes B!cwdcun (gpa)*; : IF DATA.SETSI=1 THEN 1950 1930 LPRINT TA3(C); : LPRINT USINS ' lit.I'; BOTTCM.BLOWI3,1);
1940 LPRIN. TAB (D); : LPRINT USINS 'llt.I'; BOTTOM.BLCW(3,2) : GOTO 1960 1950 LPRINT TAB (D); : LPRINT USINS ' lit.I'; BUTTOM.BLOWl3,1) 1960 LPRINT TABIB+2); ' Water Level (inches)'; : IF DATA.SETSI=1 THEN 1990 1970 LPRINT TAB (C); : LPRINT USING 'lla.I'; SS. WATER. LEVEL (3,1); : LPRINT TAB (D);
1980 LPRINT USING 'lli.I'; 56. WATER. LEVEL (3,2) : 60TO 2010 1990 LPRINT TAB (D);. : LPRINT USING 'lli.I'; SG. WATER. LEVEL (3,1) 2000 2010 !F LOOPSI:3 THEN EDIO 2540 2020 2030 LPRINT : LPRINT : LPRINT TABIB);' STEAM EENERATOR C'; : LPRINT TAB (E);' STEAM SEhEPATOR D' : LPRINT 2040 2050 LPRINT TAB (B+2); 'Steas Pressure (psia)'; : IF DATA.SETSI:1 THEN 2020 2060 LPRINT TAB (C-1); : LPRINT USING 'llis.l'; STEAM. PRES (3,1); : LPRINT TAB (D-1);
2070 LPRINT USING 'llti.I'; STEAM.Pl;ES(3,2); : 60TO 2090 2080 LPRINT IAB(D-1); : LPRINT USING 'llit.l*; STEAM. PRES (3,1);
2090 LPRINT TABIE+2); 'Stras Pressure (psia)'; : IF DATA.SETSI=1 THEN 2120 2!00 LPRINT TAB (F-1); : LPRINT USING 'llit.l*; STEAM. PRES (4,1); : LPRINT TAB (6-1);
2110 LPRINT USING '8888.I'; STEAM. PEES (4,2) : EDT0 2130 2120 LPRINT TAB (6-1); : LPRINT USING 'llit.l*; STEAM. PRES (4,1) 2130 LPRINT TAB (B+2); ' Feed ater Flow (E6 lb/hrl'; : IF CATA.SETSI'! THEN 2160 2140 LPRINT TAB (C-1); : LPRINT USINS '80.888'; FEEDWATER. FLOW (3,1);
J-4
APPENDil J: REPORTS. BAS 2150 LPRINT TAB (D-1); : LFRINT USINS '84.840'; FEEDWATER. ROW (3,2); : GOTO 2170 2160 LPRINT TAB (D-1); i LPRINT USING 'll.lil'; FEEDWATER.ROWI3,1);
2170 LPRINT TABIE+2); 'Feedwater Fles (E6 lb/hrl'; : IF DATA.SETSI=1 THEN 2200 2180 LPRINT TAB (F-1); LPRINT USING '80.044*; FEEDWATER. ROW (4,1); : LPRINT TAB (6-1);
2190 LPRINT USING 'll.lli'; FEEDWATER. ROW (4,2) : 6070 2210 2200. LPRINT TAB (6-1); : LPRINT USING 'll.lil'; FEEDWATER. FLOW (4,1) 2210 LPRINT TABIB+2); 'Feedsater Teeperature (F)'; : IF DATA.SETSI:t THEN 2240 2220 LPRINT TAB (C); : LPRINT USING ' lit.l*; FEEDWATER. TEMP (3,1); LPRINT TAB (D);
2230 LPRINT USING 'til.I'; FEEDWATER. TEMP (3,2); : 60TO 2250 2240 LPRINT TABID); : LPRINT USING ' lit.l*; FEEDWATER. TEMP (3,1);
2250 LPRINT TAB (E+2); 'Feedwater lengerature (F)'; TAB (F); : IF DATA.SETSI:1 THE)I 2280 2260 LPRINT TAB (F); : LPRINT USING 'til.I'; FEEDWATER. TEMP (4,1); LPRINT TAB (6);
2270 LPP!:4T USING ' lit.I'; FEEDWATER. TEMP (4,2); : 60TO 2290 2260 LPR!hi TAB (6); : LFRINT USIN6 ' lit.I'; FEEDWATER. TEMP (4,1);
2290 LPRINT TAB (B+2); ' Surface Blowdo.n (gpsi'; : IF DATA.SETSI:1 THEN 2320 2300 LPRIN' TABIC); : LPRINT USING ' lit.I'; TOP. BLOW (3,1); : LPRINT IAB(D);
2310 LPRINT USING 'llt.I'; TCP.BLOWl3,2); : GOTO 2330 2320 LPh!11 IAB(D); : LPRINT USING 'llt.I'; TDP. BLOW (3,1);
2330 LPRINi TABIE+2); ' Surface Blondevo (gpal'; : IF DATA.SETSI:1 THEN 2360 2340 LPRINT T C (F); : LPRINT USINS ' lit.I'; TOP. BLOW (4,1);': LPRINT TABIB);
2350 LPRINT USINS ' lit.l'; TOP.BLCWl4,2) : GOTO 2370 2360 LPRINT TAB (6); : LPRINT USING ' lit.I'; TCP. BLOW (4,1) 2!70 LPRINT TAB (B+2); 'Battes Blo dena (gpsi'; : IF DATA.SETSI=1 THEN 2400 23B0 LPRINT TAB (C); : LPRINT USING ' lit.l'; BOTTCM.R0W(3,1);
2390 LPRINT TAB (D); : LPRINT USINS ' lit.I'; BOTTON.ELOWI3,2); : 60TO 2410 2400 LFRINT TAB (D); : LPRINT USINS 'lli.I'; BOTTCM.BLOWI3,1);
2410 LPRINT TAB (E+2); *Bettce 31ondcas (gpal'; : IF DATA.SETSI:1 THEN 2440 2420 LPRINT TAB (F); : LPRINT USINS 'llt.I'; BOTTOM. BLOW (4,1); i LPRINT TABl6);
2430 LPRINT US!h5 ' lit.I'; BOTTOM.BLCW(4,2) : 60TO 2450 2440 LPRINT TAB (6); : LPRINT USING 'llt.I'; BOTTO't.BLOWl4,1) 2450 LPRINT TABIB+2); ' dater Level (inches)'; : IF DATA.SETSI:1 THEN 2420 2460 LPRINT TABIC); : LPRINT USING ' lit.l'; SS. WATER. LEVEL (3,1); : LPRlhi TAB (D);
2470 LPRINT USik3 '888.4'; SS. WATER. LEVEL (3,2); 60T3 2490 2480 LPRINT IABID); : LPRINT USING ' lit.I'; SG. WATER. LEVEL (3,1); ,
2490 LPRINT TABIE+2); ' Water Level (inches)'; : IF DATA.SETSI=1 THEN 2520 2500 LPRINT TAB (F); : LPRINT USING ' lit.I'; SS. WATER. LEVEL (4,1); : LPRINi TAB (6);
2510 LPRINT USING ' lit.I'; SG. WATER. LEVEL (4,2) : GOTO 2540 2520 LPRINT TAB (S); : LPRINT USING 'llt.l'; SS. WATER. LEVEL (4,1) 2530 2540 LPRINT : LPRINT 2550 2560 LPRINT TAB (B+1);'LETDCWN LINE*; : LPPINT TA9(E+1);' CHARGING LINE' : LPRINT 2570 LPRINT TAB (B+2);'Flem (qps)*; : IF DATA.SETSI:1 THEN 60T0 2600 2580 LPRINT TAB (C); : LPRINT USIN3 ' lit.I'; Lt.TDOWN. ROW (!); : LPRINT TAB (D);
2590 LPRINT USING 'til.I'; LETDOWN. FLOW (2); : 60TO 2610 2600 LPRINT TAB (D); : LPRINT USING ' lit.I'; LETDOWN.R0W(1);
2610 LPRINT TABIE*2);'Fics (gpal'; : IF DATA.SETSI:t THEN 2640 2620 LPRINT TAB (F); : LPRINT USING ' lit.l'; CHARGINS. FLOW (1); : LPRINT TAB (6);
2630 LPRINT USING ' lit.I'; CHARGINS.RCW(2) : 60TO 2650 2640 LPRINT TAB (6); : LPRINT USI.19 ' lit.I'; CHARGING. FLOW (1) 2650 LPRINT (AB(B+2);'Teaperature (F)'; : IF DATA.SETSI=1 THEN 2680 2660 LPRINT TAB (C); : LPRINT USINS '884.I'; LETDOWN.TEMPil); : LPRINT IAB(D);
2670 LPRINT USING 'lli.I'; LETDGWN. TEMP (2); : 60TO 2690 l 2680 LPRINT TAB (D); : LPRINT USINS ' lit.I'; LETDCWN.TEMPil);
! J-5
APPENDII h REPORTS. BAS 2690 LPRINT TAB (E+2);*Teeperature (FI'; IF DATA.SETSI=1 THEN 2720
+
2700 LPRINT TABIF); : LPRINT USING 'til.l'; CHARGING. TEMP (l); : LPRINT TAB (6);
2710 LPRINT USING '448.I'; CHARGING. TEMP (2) : SOTO2740 2720 LPRINT TABI6); : LPRINT USING 'llt.I'; CHARGING. TEMP (l) 2730
~
2740 LPRINT : LPRINT : LPR!NT TAB (B+1);' PRESSURIZER'; TAB (E+11;' REACTOR' : LPRINT 2750 2760 LPRINT TAB (B+2);' Pressure (psial'; IF DATA.SETSI 1 THEN 2790 2770 LPRINT TABIC-1); : LPRINT USING '4446.I'; PIR.FRES(1); : LPRINT TAB (D-II; 2760 LPRINT USING '9468.t'; PZR. PRES (2); : GOTO 2000 2790 LPRINT TAB (D-1); : LFRINT USING 'Stil.I'; PIR. PRES (1);
2000 LPRINT TABIE*2);'T ave (Fl*; : IF DATA.SETSI:1 THEN 2830 2810 LPRINT TAB (F); : LFRINT USING 'let.l'; T. AVE (ll; : LPRINT TAB (6);
2820 LPRINT USING 'lll.I'; T. AVE (2) : 60TO 2640 2830 LFRINT TAB (6); : LPRINT USING 'itt.I'; T.AVi(1) 2840 LPRINT TAB (B+2);' Water Level (inches)*; : IF DATA.SETSI=1 THEN 2870 2950 LPRINT TABIC); : LFRINT USING ' lit.l*; PZR.NATER. LEVEL (ll; LPRINT TAB (D);
2860 LPRINT USINS ' lit.t'; PIR. WATER. LEVEL (2); : GOTO 2980 2870 LFRINT TAB (D); : LFRINT USING 'lll.l*; PIR. WATER. LEVEL (1);
2880 LPRINT TAB (E+2);'T cold (F)*; : IF DATA.SETSI:1 THEN 60TO 2910 2890 LPRINT TAB (FI; : LPRINT USINS ' lit.l'; i. COLD (1); : LFRINT TAB (6);
2900 LFRINT USING ' lit.l*; T. COLD (2) : GOTO 2930' 2910 LFRINT TAB (6); : LFRINT USINS ' lit.l*; T.COLO(1) 2920 2930 IF LGOPSI:2 THEN FT=19 ELSE IF LOOPSI 3 THEN FT=11 EL3E IF LOOPSI=4 THEN FT=10 2940 FOR Kist TO FT : LFRINT : NEIT K1 2950 2960 LPRINT CHR$(!B); ; A=0 : 60TO 5210 2970 2900 FOR TI:1 TO 2 : ITIMEs(TIl=RIGHT$(STR$(TTIME(II)+10000),4) : NEIT TI : RETURN 2990 3000 3010 e+++eneensteesee 3020
- HEAT BALANCE
- 30!O suunnuenn 3040 3050 FOR 11:20 TO 1 STEP -1 3060 IF MID$(DDATEs,II,1) O'
- THEN DDATEf=LEfif(DDATES,II) : 6010 3100 3070 NEIT II
. 3080 3090 3100 u RECALL n 3110 312u LPRINT CHR$(li); : LFRINT CHR$(20); : LFRINT CHR$(27);CHR$(69); : OPEN 00CRET8 AS 61 LEN=127 3130 FIELD 81,32 A3 P8,1 AS Us,3 AS Ds,2 AS Lf,8 AS RFf,8 AS SIf,8 AS R0s,B AS Rhs,8 AS C05,8 AS Pit,8 AS rat, 8 AS LCs,8 AS hAs,8 AS ITs,B AS Cf,1 AS FF$
3140 GET 11,1 : LCOPSI = CVI(Ls) : CLOSE il 3150 3160 0 FEN 'RCS-CALC.'+ DOCKET $ AS 61 LEN=41 : FIELD #1,1 AS RFi,8 AS PHil,8 AS FH2f,8 AS FFI,8 AS PF$,8 AS RPBS 3170 GET 11,1 : PIR.ENTHALPY(1) = CVD(PH15) : PIR.ENTHALPV(21 = CVD(PH28) : PIR.FLCA = CVD(FFs) 3180 PIR.F0WER = CVD(FFf) : RC. PUMP.F0nER. BTU.FER.HR = CVD(RPBs) : RESULTS.FLA6s = RFf : CLOSE il 3190 3200 IF (RESULTS.FLAStO'S' AhD REEULTS.FLAS$ O'C') THEN GOTO 3500 3210 J-6
' APPEND!I J: REPORTS. BAS 3220 OPEN 'SG-CALC.'+ DOCKET $ AS 82 LEN=104 3230 FIELD 02,8 AS SHs,8 AS SFS,8 AS SPs,8 AS FHf,8 AS FFS,8 AS fps,8 AS TBHS,8 AS TBFS,8 AS TBPs,8 AS BBHs, 8 AS BBFS,8 AS BBPs,8 AS 56P8 3240 3250 FOR TI=1 TO 2 : FOR L1=1 TO LOOPSI : SET 82, (TI-1)
- CVD (SH$)
3270 TOP. BLOW.LB.PER.HR(L1,TI) = CVD (TBF8) : STEAM. FLOW (L1,TI) = CVD (5F8) 3280 TOP. BLOW. POWER (L1,T1) = CVD (TBPI) : STEAM. POWER (LI,TI) = CVD ISPs) 3290 BOTTOM. BLOW.ENTHALPf(LI,TI) = CVD (BBHf) : FEEDWATER.ENTHALPY(LI,TI) = CVD (FH8) 3300 BOTTOM. BLOW.LB.PER.HR(L1,T11 = CVD (SBFI) : ;EEDWATER. FLOW (L1,TI) = CVD (FFS) 3310 BOTTOM. BLOW. POWER (LI,TI) = CVD (BBPs) : FEEDWATER. POWER (LI,TI) = CVD (FP$)
3320 SS. POWER (LI,TI) = CVD (S6Ps) 3330 3340 NEIT L1,TI : CLOSE 12 3350 3360 GPEN '0C-CALC.'+ LOCKET $ AS 13 LEN=E8 3370 FIELD B3,8 AS LHf,8 AS LFs,8 AS LPf,8 A3 Chi,8 AS CFf,8 AS CP$,8 AS IPs,8 AS ops,8 AS 0M5,8 AS RIP $,8 AS T8 3380 3390 FDR TI'= 1 TO 2 3400 SET II, T1 3410 LETDOWN.ENTHALPY(TI) = t.VD (LHI) : INST:LATION.FCdERITI) = CVO (IPs) 3420 LETDOWN. FLOW.LB.PER.HR(TI) = CVD (LF8) : OTHER. POWER (TI) = CVD (DPs) 3430 LETDOWN. POWER (TI) = CVD (LPs) : GTHER. POWER.MWITI) = CVD (OMI) 3440 CHARBING.ENTHALPT(TI) = CV ICHsi : REACTOR. POWER.MWITI) = CVD (RIPS) 3450 CHAR 6ING. FLOW.LB.PER.HR(TI) = CVD (CF8) : TTIME(TI) = CVD (TI) 3460 CHAR 61N6. POWER (TIl = CVD (cps) 3470 3480 NEIT T1 : CLOSE 83 : 60~0 3550 3490
- 3500 PRINT : PRINT : PRINT 3510 PRINT TAB (23);'CHECX DIRECTORY FOR RCS-CALC.';DCCKETs;' FILE' 3520 PRINT : PRINT : PRINT : STCP 3530 3540 3550 ** PRINT 0UT **
3560 3570 IF RESULTS.FLA68='S' THEN 6050B 3630 : 60TO 3760 ELSE 60TO 3590
- 3580 3590 CLS : LOCATE 11,27 : PRINT ' Data have not been analyzed.'
3600 PRINT TAB (27);'6o to the ANALYSIS MENU.' : GOSUB 3710 3610 CLS : LOCATE 13,21 : PRINT ' LOADING INTRODUCTION MODULE INTO MEMORY' : 60TO 5210 3620 3630 CLS : LOCATE !!,26 : PRINT ' NOTE: Adjust the paper so that' 3640 PRINT TAB (26);'the tap of the page is under'
. 3650 PRINT TAB (26); 'the roller shaft.' : G0SUB 3710 3660 3670 CLS : LCCATE 12,26 : PRINT 'Make certain that the printer
- 1 3680 LOCATE 13,26 : PRINT *is '; : COLOR 0,7 : PRINT ' CN LINE '; COLOR 7,0 : PRINT *.*
3690 605UB 3710 : RETURN 3700 3710 LOCATE 23,22,0 : PRINT
- To continue, press the *; COLOR 16,7 : PRINT
- space har '; COLOR 7,0 3720 PRINT '.'
3730 l$=INKEYs : !F ZIOCHR$(32) THEN 3730 ELSE CLS : LOCATE 13,23 : PRINT '0UTPUT IS DIRECTED 10 THE PRINTER' 3740 RETURN J-7
APPEND 11 J: REPORTS. BAS 3750 3760 A=11 : B=A+20 : C=B+15 : D=C+14 : E=D+11 3770 3780 OPEN DOCKETS AS 81 LEN=127 : FIELD 81,36 AS As,2 AS L$,89 AS Bf : SET (1,1 : LOOPSI=CVI(Ls) 3790 CLOSE 3800 3810 60SUB 2980 REM Test time 3820 3830 FOR TI:1 TO 2 3840 i 3850 IF LOOPSI=2 THEN HD=8 ELSE IF LOOPSI:3 THEN HD=5 ELSE IF LOOPSI=4 THEN HD=2 3960 FOR K1st TO HD : LPRINT : NEIT K1 i 3870 3880 LPRINT TAB (38); ' HEAT BALANCE' 3890 LPRINT TAE(A+33-INT ((1+LEN(PLANT 8+ UNITS))/2)); PLANTt;' '; UNITS 3900 LPRINT TAB (A+33-INT (LEN(DDATES)/2));DDATE8 3910 LPRINT 3920 LPRINT TAB (A);' DATA SET';TI;'0F'; DATA.SETSI; TAB (Bl;'ENTHALPY';iAB(C);' FLOW';iAB(D);'PCWER';iAB(E);'PCWER' 3930 LPRINT TABIA);TTIMEs(TI);' hours'; TAB (Bl;'IBius/lb)'; TABIC-3);'(E6 lb/hrl'; TAB (D-4);'(E9 BTUs/hrl';
3940 LPRINT TABIE);*(MWt)" : LPRINT 3950 3960 FOR L1=1 TO LOOPSI 3970 3930 IF L1=1 THEN Y5='A' ELSE IF LI:2 ThEN Yss'B' ELSE IF LI=3 THEN Vf='C' ELSE IF LI'4 THEN Yia'D' 3990 4000 LPRINT TABIA);' STEAM GENERATOR ';Y$ : LPRINT 4010 4020 (PRINT TAB (A);' Stean';iAB(B+2); LFRINT USINS 'llit.I';STEh.9.ENTHALPY(LI,TI); a LPRINT TAB (C-2);
4030 LPRINT USING 'll.646'; STEAM.FL0ntL1,TI);
- LfRINT TAB (D-2); : LPRINT USINS 'll.lil'; STEAM. POWER (LI,Til 4040 4050 LPRINT TAB (A);' Feed ater'; TAB (B+2); : LPRINT USING 'llet.I';FEEDWATER.ENTHALPY(L1,TI);
4060 LPRINT TA3(C-3); : LPRINT USINS '444.640'; -FEEDWATER.FLOWILI,ill; : LPRINT TAB (D-2);
4070 LPRINT USING 'lt.itt';FEEDWATER. POWER (LI,TI) 4030 4090 LPRINT TAB (Ai;' Surf ace Bicdenn'; TAB (B+21; : LPRINT USING 'liti.8';iCP. BLOW.ENTHALPY(LI,TII; 4100 LPRINT TABIC-1); LPRINT USING 't.Ilitt';iCP. BLOW.LB.PER.HRILI,TI); : LPRINT TAB (D-1);
4110 LPRINT USING 't.llill'; TOP. BLOW. POWER (LI,TIl 4120 4130 LPRINT TAB (A);' Battes Blowdown'; TAB (B+2); LPRINT USING 'lif t.I';B0fiOM.BLCW.ENThALPY(LI,TI);
4140 LPRINT TABIC-1);- LPRINT USING 't.itett'; BOTTOM. BLOW.LB.PER.HR(LI,TI); : LPRINT TAB (D-1);
4150 LPRINT USIhG 't.llitt';BOITOM.BLCW. POWER (L1,TI) : LPRINT TABID-1);'-
4160 4170 LPRINT TAB (A);' Power Dissipated'; TAB (D-2); LPRINI USING 'll.lell';56.P0riR(LI,TII; 4180 LPRINI TABIE-1); : LPRINT USINS 'llet.I';292.875eSG. POWER (LI,ill : LPRINT (190 4200 NEIT L1 4210 4220 LPRINT TAB (A);'OThER C0=PONENTS' : LPRINT 4230 4240 LPRINT TAB (A);' Letdeun Line'; TAB (B+2); : LPR!NT USING 'itil.t';LEID0hN.ENTHALPYlill; : LPRINT IAB(C-1);
4250 LPRINT USING 't.llitt'; LEID0W4. FLOW.LB.PER.HRITII; : LPRINI TAB (D-1);
4260 LPRINI USING '8.84040'; LEIDOWN. POWER (TI) 4270 J-B
APPENDl! J: REPORTS. BAS 4280 LPRINT TAB (A);' Chargieg Line';iABIB+2); LPRINT USING 'It48.4';CHARSINS.ENTHALPY(TI); LPRINI TAB (C-2);
4290 LPRINT USING '94.86460'; CHAR 6ING. FLOW.LB.PER.HR(TI); : LPRINT TAB (D-2);
4300 LPRINT USING '94.04440'; CHARGING. POWER (TI) 4310 4320 IF DATA.SETSI=1 THEN 4360 4330 LPRINT TABIA);* Pressuri:er';TABIB+2); LPRINT USING 'llit.I';PZR.ENTHALPY(TI); LPRINT TAB (C-2);
4340 LPRINT USING '60.66448'; PZR. FLOW; a LPRINT TABID-2); LPRINT USING '80.06400'; PIR.PCWER 4350 4360 LPRINT TAB (A);" Pumps *; TAB (D-2); LPRINT USING '44.lilli';RC. PUMP. POWER. BTU.PER.HR 4370 4380 LPRINT TABIA);' Insulation Losses'; TABID-1); LPRINT USING '8.06400'; INSULATION. POWER (TI) 4390 LPRINT TABID-1);
- 4400 4410 LPRINT TAB (A);" Pcwer DissipateJ'; TAB (D-2); : LPRINT USING '80.04690'; OTHER. POWER (II);
4420 LPRINT TAB (E-1); : LPRINT USING 'llit.I';0THER. POWER.MWITI) : LPRINT TAB (E-1); *----
- 4430 4440 LPRINT TABIA);' REACTOR POWER'; TAB (E-1); : LPRINT USING 'llit.l'; REACTOR. POWER.MWITI) 1450 4460 IF DATA.SETSI=1 THEN 4520 4470 IF TI:1 AND LOOPSI=2 THEN FT=22 ELSE IF TI:1 AND LOOPSI:3 THEN Fi=16 ELSE IF TI:1 AND LOOPSI:4 THEN FT=10 4480 FCR KI=1 TO FT : LPRINT : hEIT KI 4490 NEli 4500 4510 IF, DATA.SETSI=2 THEN 4540 4520 IF LOOPSI:2 THEN FT=23 ELSE IF LOOPSI=3 THEN Fi=17 ELSE 1F LOOPSI 4 THEN Fi=ll 4530 FOR KI:1 TO FT : LPRINT : heli
- 4540 LPRINT CriR$(27);CH1is(70); GOTO 5210 4550 4560 4570 *ses****n esse 4580
- DATA SHEET e 4590 ***seeeeeeeese 4600 4610 605UB !630 : A=lB : B:A+1 : C=A+34 : D A+43 : E=A+63 : F=A+97 : 6:A+106 : LPRINT : LPRINT CHR$(15) 4620 4630 NIDTH 'LPil:',132 4640 4650 LPRINT TABIA+47);' HEAT BALANCE DATA' 4660 4670 LPRINT : LPRINT : LPRINT TAB (B);' PLANT PARAMETERS:' : LPRINT 4690 4690 LPRINT TAB (B+1); ' REACTOR COOLANT SYSirM';
4700 LPRINT TAB (E+1); ' REFLECTIVE INSULATION' 4710 LPRINT TAB (5+1); ' Puep Pcver (MW each)*; : LPRINT TABIE+1);
- Inside Surface Area (sq ftl' 4720 LPRINT TAB (B+1);
- Puep Efficiency (1)'; : LPRINT TAB (E+1);
- Heat less Coefficient (BTUs/hr sq f t)"
4730 LPRINT TAB (B+1);
- Pressurizer Inside Diaset'er (iriches)'
4740 LPRINT TABIE+1); ' NONREFLECTIVE INSULATICM' 4750 LPRINT IAB(B+1); ' STEAM EENERATORS'; LPRINT TAB (E+1);
- Inside Surf ace Area (sq f t)'
4760 LPRINT TABIB+1);
- Dose Inside Diaseter lanchest'; i LPRINT TAB (E+1);
- Thickness (inches)'
4770 LPRINT TABIB+1); ' Riser Outside Diaseter (inches)';
4780 LPRINT IAB(E+1); ' Thereal Conductivity (BTUs/hr ft F)';
4790 LPRINT TAB (B+1); ' Nunter of Risers' 4800 LPRINT TABIB+1);
- Moisture Carry-over (I) in A*; : LPRINT TAB (E+1); ' LICENSED THERNAL POWER (MWt)*
4810 LPRINT TAB (Sel);
- Moisture Carry-over (1) in B' J-9
APPENDl! J: REPORTS. BAS 4820 LPRINT TA8(B+1);
- Moisture Carry-over (I) in C' 4830 LPRINT TA8(B+1);
- Moisture Carry-over (I) in D' i
- 4840 4850 LPRINT : LPRINT 4860 4870 LPRINT TAB (B);' DATA:'; TAB (C);' SET l'; TAB (D);' SET 2*; TAB (F);' SET l'; TAB (G);' SET 2' : LPRINT 4880 LPRINT TA8(B+1);' TIRE *; LPRINT TAB (E+1);' TIME' s LFRINT ;
4890 4900 LPRINT TAB (B);' STEAM GENERATOR A'; TAB (E);' STEAM GENERATOR B' : LPRINT !
4910 4920 LPRINT TA8(B+1); 'Steae Pressure (psia)*;TABIE+1);'Steae Pressure (psial' 4930 LPRINT TA8(B+1); 'Feedsater Flow-(E6 lb/hrl'; TAB (E+1);'Feefeater Flce (E6 lb/hr)* i
, 4940 LPRINT TA8(B+1); 'Feedeater Temperature (F)';TABIE+1);'Feedsater Tes;erature (F)'
4950 LPRINT TABIBst); ' Surf ace Blondoen (gpe)*; TAB (E+1);' Surf ace Blonde.n (gpel' 4960 LPRINT TABIB+1); 'Bottoe Bloedown (gpe)*; TAB (E+1);'Botton Blondoun (gpal' 4970 LPRINT TAB (B+1); 'hter Level (inches)*; TAB (E+1);'hter Level (inches)"
4980 4990 5000 LPRINT : LPRINT : LPRINT TAB (B);' STEAM SENERATOR C'; LPRINT TAB (E);' STEAM SENERATOR D' : LFR!NT 5010 5020 LPHINT TAB (F I); 'Steae Pressure (psia)'; TAB (E+1);'Steae Pressure (psial' i 5030 LPRINT TABIB+1); ' Feed ater Flce (E6 thlbrl';TABIE+1);'Feeduater Fles (E6 lb/hrl' 5040 LPRINT TABIB+1); 'Feedsater Teeperature (F)'; TAB (E+1);' Feed =4ter Temprature (F)'
5050 LPRINT TA2(B+1); ' Surf ace Blcade.n (gpal*; TAB (E+1);' Surf ace Blowdc n (jpel' 5060 LPRINT TABIB+1); 'Bottes Blowdoen (gpal'; TAB (E+1);'Battes Blendown (gpal' 5070 LPRINT TAB (B+1); 'hter Leval (inches)'; TAB (E+1);* Water Level (inches)"
5000 5090 LPi!NT : LPRINT : LPRINT TABIB);'LET00dN LINE*; I LPRINT TABIE);' CHARS 1h6 LINE' s LPRINT 5160 -
5110 LPRINI TAB (B+1);' Fica (gpe n ';TABIE+1);'Fice (gpe)'
0120 LPR! lit TAB (B+1);' Temperature (F)';TABIE+1);'Teeperature (FI' 5130 5140 LPRINT : LPRINT : LFRINT TAB (B);'PFESSURl!ER*; TAB (E);' REACTOR
- LfRINT 5150 5160 LPRINT TAB (B+1);' Pressure (psia)*;TABIE+1);'T ave (F)*
5170 LPRINT TAB (B+1);'hter Level (inches)';TABIE+1);'T cold (Fl*
5180 5190 IF Ils' INPUT DATA' THEN GOTO 670 5200 FOR KI=1 TO 10 : LFRINT NEIT KI 5210 CLS: LOCATE 13,20 : PRINT 'LOADINS [NTRODUCT!0% 'iO*ULE INTO MEMGRY' : Ila' INTRO 1920' : ".HA!N '!NTR0' 5220 END
, J-10
. . - - a . .n . - 2. ..-- ...-..a__ .._ _ , .. - ., y APPENDIX K END. BAS
, s 4
1 i
f 1
- e s i
F a
.I
.I i
it
, - ., . - . . , g, c. n . - , .,, , , , . . . - , . . .,._ . , n.._ . . , . , --- , , , _,. .. . - - , , , , .-n ...-, --, ,.- .- _ , , . , ,,
APPENDl! K: END.8AS 10 e m eeeeeet 20 es END.Bf,S *e 30 meenem 40 50
- COMMON e 60 70 KFDSL A-Z 80 90 PEM Parameters 100 COMMON CARRY 0VER.A, CARRYOVER.B,CARRYDVER.C, CARRY 0VER.D. LOSS.C0 EFFICIENT,NONREFLECT. AREA,PIR.ID 110 COMMON RISER. NUMBER, RISER.00,CONDilCTIVITY,1NSULAil0N. THICKNESS,LIC. POWER,LOOPSI,RERECT. AREA 120 COMM0N RC. PUMP.EFF,RC. PUMP.PWR,SG.ID,00CKET8 130 140 REM Data 150 COMMON BO TTOM. BLOW O , CHARGING. ROW O , CHARGING. TEMP O ,FEEDWATER. ROW O ,FEEDWATER. TDP O , LETDOWN. ROW O
.160 COMMON LETDOWN. TEMP O ,PIR. PRES O ,PIR. WATER. LEVEL O STEAM. PRES O ,T. AVE O ,T. COLD O , Ti!ME O , TCP.5 LOW O 170 COMMON SG. WATER. LEVEL O ,D AT A. SE TSI, DD ATE s , PLANI f ,0N II$
180 190 REM Auxiliary Rei. Its ,
200 COMON A,9,90TTOM. BLOW. DEN 31TYO,0ELIA.ilrE, DRY. STEAM.ENTHALPYO,H,1,M0!STURE.ENTH4LPYO N,P,PSATI 210 COMON PIR. DENSliV O ,PIR.ENiHALPY U ,56.GSSS. SECT ION, T,TSAT,V,MI,NI,D AT A. RAG 8, DI AGNOSTIC. FLAG $
220 ComCN PAR 2ETER. RAGS, PRINT.RAGt,RES' 4 TS. RAGS,Is,Ys,ts 230 240 GPEN 00CKET8 AS 61 LEN=159 : FIELD 41, 32 AS Pf,1 AS Us,125 AS If,1 AS PF8 : GET 01,1 250 PLMis = Ps : UN!is = U$ PARAMETEP. RAG 8 = PFs : CLOSE 01 260 270 OPEN ' PLANT-ID.'+ DOCKET 8 AS 11 LEN=59 280 FIELD 01,32 AS P1,1 AS U$, 20 AS 08, 3 AS DS$,1 AS DF$, 2 AS DIS $ GET 81,1 : CATA.FLAGt = DF8 : CLOSE il 290 IF DATA.RAGis'C' THEN KILL ' PLANT-ID.'+ DOCKET 8 ,
300 310 18 s'
- 320 FOR 11:1 TO 32 : NrJi. PLANT 8=RIGHil(PLANif,1%)
330 IF NCW. PLANT $ OIS THEN PLANit:LEFil(PLANis,32-II+0 : GOTO 350 ELSE II=Is+' ' NEIT 340 350 CPEN 'RCS-CALC.'+DOCKEis AS 81 LEN=45 360 FIELD 01,1 AS RF8 : GET 01,1 : RESULTS.FLAGt:RFs : CLOSE 1 : IF RESULTS. RAG 80'S' THEN RESULTS. FLAGS ='C' 370 IF RESULTS. RAG 82*C' THEN KILL 'RCS-CALC.'+ DOCKET 8 380 390 CLS 400 IF PARAMETER. FLAGS ='C' AND DATA.RAGis*C' AND RESULTS. FLAG 8='C' THEN 460 410 IF PARAMETER. RAGS ='S' AND DATA.RAGis'C' AND RESULTS.FLASt='C' THEN 490 420 IF PARAMETER.FLAGls'S' AND DATA. RAGS ='S' AND RESULTS.FLAGt='C' THEN 500 430 IF PARAMETER.RAGt='S' AND DATA.RAGis'S' AND RESULTS.FLAGt='S' ThEN 510 440 LOCATE 13,34 : PRINT ' CHECK FLAGS' STOP 450 460 LOCATE 13,20 : PRINI 'Neither paraseters, data, nor results for' i
, 470 LOCATE 14,20 : PRINT 'Decket 50 ';DOCFEif;' are stored on the diskette.' : KILL DOCKEis : GOTO 560 400 490 LOCATE 11,34 : PRINT 'Paraatters for' : GOTO 530 500 LOCATE 11,29 : PRINT 'Paranaters and data for' C0f0 530 510 LCCATE 10,27 : PRINT 'Paraseters, data, and results' 520 LOCATE 11,27 : FRINT 'for' s GOTO 530 530 LOCATE 13,1NT((92-LEN(PLANf8+UNITl)-ll/2) : PRINT PLANI 8;' ';UN!!8 : LOCATE 14,38 : PRINT '50 ';DOCKEis i 540 LOCATE 16,27 : PRINT ;'are stored on the diskette.'
K-1
APPEll811 K: END. BAS 550 560 LOCATE 25,22,0 : PRINT 'To continue, press the '; COLOR 16,7 : PRINT ' space bar '; i COLOR 7,0 2
570 PRINT *.*;
$80 Z$=INKEYs : IF Z80CHR$(32) THEN 580 ELSE $90 590 CLS : KEY 10,'CLS : SYSTEN'+CHR$(13) 600 610 IF PARAPfiER.FLA66='C' AND DATA.FLA6t='C' AND RESULTS.FLAS$='C' THEN 1110 ;
620 IF PARAMETER.FLA68='S' AND DATA.FLA68='C' AND RESULTS. FLAG 8='C' THEN 660 630 IF PARAMETER.FLA68='S' AND DATA. FLAGS ='S' THEN 750 640 650 CLS 660 60508 1250 670 LOCATE 10.23 : PRINT 'For Docket 50 '; DOCKET 8;', you can: l
< 680 LOCATE 12,25 : PRINT '(A) Save the paraseters file, or !
690 LOCATE 13,25 : PRINT '(S) Erase the paraeeters file. l 700 LOCATE 15,23 : INPUT 'Nhich would you like (A/Bl? ',Il i 710 i 720 IF Is='A' OR 14='a' TMN !!!0 i
! 730 IF I$='B' OR Is='b' THEN GOSUB 850 : 60SUB 960 : GOTO !!!0 ELSE GOSUB 1290 : E3TD 660 :
740 t 750 CLS !
760- 60509 1250 770 LOCATE 10,23 : FRINT 'For Docket 50 ';DOCKEit;', you can 780 IF RESULTS.FLA6ss'S' THEN 910 ELSE 790 1 790 LOCATE 12,25 : PRINT '(A) Save the data files, or' 800 LOCATE 13,2' PRINT '(B) Erase the data files,' : GOTO B30 1
010 LOCATE 12,25 : PRINT *(A) Save data and results files, or' B20 LOCATE 13,25 : PRINT '(B) Erase data and results files,'
l 830 LOCATE 15,23 : INPUT 'Which would y w like (A/Bl? ',Il 640
! 050 IF 18='A' CR Il='a' THEN 1110
- 26e IF 18='a' CR If='b' THEN 605U9 930 6OSUB 1060
- GOTO 1110 ELSE GOS;B 1290 60f0 760 870 680 CLS i 890 GOSUB 1250 900 LOCATE 12,22 : PRINT 'foa issued a coseand to erase files.'
910 LOCATE 13,22 : INPUT 'Do you mish to proceed (f/N)? ',Il 920 ,
I 930 IF Isn'Y' GR If='y' THEN CLS : LOCATE 13,33 : FRINT
- ERASING FILES' : RETURN l
) 940 IF Il='N' GR Il='n' THEN 1110 ELSE GOSUB 1290 60f0 900 l
950 i 960 OPEN ' PLANT-ID.'+DOCKEi8 AS 01 LIN=59 : CLOSE 61 : LOCATE 15,40 : FRINT '7' ,
j 970 OPEN 'SG-DATA.'+00CFEis AS #1 LEN=40 : CL0SE 01 : LOCATE 15,0 : PRINT '6'
i 990 OPEN 'RCS-CALC.'+C0CKEil AS 61 LEN=33 : CLOSE II : LOCATE 15,40 : PRINT '4' l 1000 CPEN 'SG-CALC.'*DCCREis A$ tl LEN=104 : CLCSE II : LOCATE 15,40 : PRINT '3' 1010 OPEN 'CC-CALC.'+00CKEis AS #1 LEN=99 : CL0iE 01 : LOCATE 15,W PFINI '2' '
1020 KILL 'KfNT-ID.'+00CFEf 8 : KILL 'SG-DATA.'+DOCKEis : KILL '0C-CATA.'+t0CtEf t : LOCATE 15,40 : FRINT 'l' 1030 KILL 'ACS- W C.'+DOCLEis : KILL '$6-CALC.'+D0CtEff KILL '0C-CALC.*+DOCLEis 1040 KILL 00CIEil : RETURN I 1050 j 1060 KILL ' PLANT-ID.'+DOCKEis : K!LL 'SG-DATA.'+00CLEis : FILL '0C-DATA.'+DOCKEf8 i 1070 IF RESJLIS.FLA680'S' THEN RETURN 1000 KILL 'kCS CALC.'+00CrEit KILL 'SG-CALC.'+DOCKEis : KILL '0C-CALC.'+DOCitit : RETURN j.
K-2
, . _ ~ . . _ - - . - . . , . . - . . , - -
m , - - , . . , ,,-,..y,,.,_.,c . , , , . _ _ . , , _ - , , _ , . _ - . ~ ~ , , _ , , , . , . , , _ _ , _ . , , , _ , , , m_y ,. _,. -,--,,,.- , . , , _ ,._, , --
APPEND 11 K END.IAS 1090 1 1100 1110 CLS I 1120 60 SUI 1250 1
1130 LOCATE 10,18 : PRINT 'You can son:' !
i 1140 LOCATE 12,20 : PRINT *(A) Return to the beginning of the progras, or'
- 1150 LOCATE 13,20
- PRINT '(B) Exit free TP0tR2.'
11 W LOCATE 15,18 : INPUT 'bhich sould you like (All)? ',Il 1170
, 1100 IF I6='A' OR 18='a' TE N CHAIN ' INTRO
- 1190 IF I$='I' OR I6='b' THEN 66TO 1210 ELSE 60500 1290 SOTO 1120 1200 1210 CLS : LOCATE 12,30 : PRINT 'iP0tR2 is tereinated.'
1220. LOCATE 14,25 : PRINT 'To return to DOS, press *; COLOR 0,7 : PRINT
- F10 *; COLOR 7,0 : PRINT '.'
1230 GOTO 1300 1240 1250 LOCATE 25,21 : PRINT 'After responding, strike the '; a COLOR 16,7' 1260 PRINT * ';CHG8(17)+CHR$(196)+CHR$(217);' ';
1270 COLOR 7,0 : PRINT
- key.'; a RETURN -
1290 1290 LOCATE 10,29 : COLCR 0,7 : PR!hi
- Please type Y or N! ' : COLCR 7,0 : RETLiRN 1300 LOCATE 24,1 i 1310 EhD i
t I
t
- e t
i l
4 i
a
! K3 1
j
- ._ -- , _ _ . _ _ _ .. ..____.___,_,__-L__,_ _ _ . - _ _ _ , . _ - - _ -. _ _ _ _ _ _ _ . , .
a _ - <- -
APPENDIX L PROGRAM PERFORMANCE TESTS 4
y-...... .- . . . . - - . . . . . . . . . . . . . . - . - - . . - . ~ . . . .. . . . . . -
APPENDIX La PROGRAM PERFORMANCE TESTS TABLE OF CONTENTS Page Program Performance Test 1 J- 1 Program Performance Test 2 J- 3 Program Performance Test 3 J- 6 Program Performance Test 4 J- 0 Program Performance Test 5 J-11 Program Performance Test 6 J-13 McGuire 1 J-16 t
L-til
APPENO!! La PROGRM PERFORMANCE TESTS HEAT BALANCE DATA r Progras Pwformance Test i Septeeler 30,1985 PLMT PARAMETERS:
MACTOR C00LMT SYSTEM REFLECTIVE lhSULAi!0N Puep Poser (M each) 6.1 Inside Surface Area (sq ft) 9,347 Puep Efficiency (!) 90.0 Heat loss Coefficient (ITUs/hr sq f t) 55.00 t Pressuriter leside liaseter (inches) 75.1 NONREFLECilVE INSULAi!0N STEM SENGATORS Inside Surface Area (sq ft) 6,329 Bose Inside Diaseter (inches) 135.90 Thickness (inches) 4.0 Riser Outside Diaseter (inches) 19.90 Thereal Conductivity (BTUs/hr f t F) 0.035 Nueber of Risers 12 ,
Moisture Carry-over (1) in A 0.125 LICENSED THEMAL P0tER (Mt) 1950 t
, Motsture Carry-over (1) in 8 0.125 DATA: i ilME 1*00 !!ME 1300 STEM S06ATOR A STEM 6EERhiOR 8 Steae Pressure (psia) 1000.0 Steae Pressure (psia) 900.0 Feedsater Flos (E6 lb/hr) 4.000 feedeater Floe (E6 lb/hr) 4.000 Feedeater Teepwature (F) 440.0 Feed ater Teepwatere (F) 440.9 Suriace Bloedoen (pel 10.0 Suriace 81oedoen (p el 10.0 Bottos Bloedoen (gpe) 100.0 lottos Bloedoen (gpe) 100.0 ,
Mater Level fisches) 140.0 Nater Level (inches) 140.0 1 LET00 W LINE CHAAGINGLIhE Flos (p el 100.0 Flow (gpe) 50.0 l Teeperature (F) 540.0 feeperature (F) 500.0 l t
PRES 5URllER REACTOR Pressure (psia) 2300.0 i ave (F) 585.0 l Nater Level (anches) 120.0 i cold (F) 550.0 i i
1 1
I 6
L1 l
- ._ - ._ .._ .___ -_ .. - - - - ._ . . - - ~ - . _ _ _ _ _ = _ _ - - . _ _
r APPOIOl! La PROGRM PERFORMMCE TESTS l f
l HEAT BALANCE Program Performance Test 1 September 30, 1985 DATA SET 1 OF 1 ENTHALPY FLOW POWER POWER 4
1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTus/hr) (MWt)
STEAM GENERATOR A 1
Steam 1192.1 3.957 4.717 t Feedwater 419.5 -4.000 -1.678 Surface Blowdown 542.6 0.00371 0.00202 Bottoen Blowdown 478.7 0.03974 0.01903
] Power Dissipated 3.0599 896.2 a
STEAM GENERATOR B Steam 1195.6 3.956 4.730 ,
i Feedwater 419.4 -4.000 -1.678
- Surface B1owdown 526.7 O.00378 O.00199
, Bottom Blowdown 471.4 0.03998 0.018H4 J _______
Power Dissipated 3.0732 900.1
- OTHER COMPONENTS Letdown Line 534.8 0.03812 0.02039 Charging Line 487.5 -0.01997 -0.00973
. Pumps -0.03749 Insulation Losses 0.00084 i Power Dissipated -0.02600 -7.6 I
REACTOR POWER 1788.6 4
I i
9 1
J I
L2 a
l i
ANEN011 La PROGRM PERFORMANCE TESTS 1 i j .-
I '
HEAT SALANCE DATA
- Prograe Perforsance Test 2 l Septeeter 30,1985 PLMTPAAAMETERS:
! REACTOR C00LMT SYSTEM REFLEtilVE INSULATION Puep Power (MN sachl 6.1 Inside Surf ace Area (sq f t) 9,347 Puep Elficiency II) 90.0 Heat Lost Coefficient (Blus/hr sq f t) 55.00 Pressurizer inside Diaseter (inchest 75.1 NONREFLEti!VE INSULAil0N STEM SENERATORS Inside Surface Area (sq ft) 6,329
, Dose !aside Diameter (inches) 135.90 Thickness (inches) 4.0 Riser Outside Diaseter (inches) 19.90 Thereal Conductivity (ITUs/hr it F) 0.035 Number et Risers 12 Moisture Carry-over (1) in A 0.125 LICENSED THERMAL P0eER (Mat) 1950
, Moisture Carry-over (1) in 0 0.125 4
DATA: SET I SET 2 SET I SET 2 flME 1300 1320 ilME 1300 1320 a STEM SENERAT)R A STEM GENERATOR I Steae Pressure (psia) 1000.0 1000.0 Steae Pressure (psial 1000.0 1000.0
)
i Feed ater Floe (E6 lb/bri 4.000 4.000 Fredwater Flos (E6 lb/hr) 3.900 3.900 Feedeater Teeperature (F) 440.0 440.0 Feedsater feeperature (F) 440.0 440.0 i SurIace lloedcen (gpel 10.0 10.0 Suriace Bic down Igoal 10.0 10.0 t i lottoe lloedoen (gpe) 100.0 100.0 Bottoe Iloedoen (qpel 100.0 100.0 ,
Nater Level (teches) 140.0 140.0 Nater Level finches) 140.0 10.0 LEiD0eNLINE CHAR $1 NGL!bE
, flow (gpel 100.0 100.0 Flow (gpol 50.0 50.0 feeperature (F) 540.0 540.0 feeperature(F) 500.0 500.0 PRESSURl!ER REACTOR Pressure (pstal 2300.0 2300.0 i ave (F) 585.0 585.0 Water Level tinches) 120.0 120.0 i cold (F) 550.0 550.0 l
i .
i
)
2 L3
-_, = ____ .. _
APPEh0!! La PROGRAM PERFORMANCE TESTS i
HEAT BALANCE Program Parformance Test 2 September 30, 1985 DATA SET 1 OF 2 ENTHALPY FLOW POWER POWER 1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTus/lb) (E6 lb/hr) (E9 BTus/hr) (NWt)
STEAN GENERATOR A Steam 1192.1 3.957 4.717 Feedwater 419.5 -4.000 -1.678 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 i
Power Dissipated 3.0599 896.2 STEAN GENERATOR B Steam 1192.1 3.921 4.675 Feedwater 419.5 -3.900 -1.636
, Surface Blowdown 542.6 0.00371 0.00202 l Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 3.0600 896.2 i OTHER COMPONENTS I
Letdown Line 534.0 0.03G12 0.02039 Charging Line 487.5 -0.01997 -0.00973 Pressurizer 707.2 0.00000 0.00000
, Pumps -0.03749 Insulation Losses 0.00084 Power Dissipated -0.02600 -7.6 REACTOR POWER 1704.7 1
I
] L4 2
...- .---- , - - . _ . . - . . . . . . . _ . . - - .. . . . . .. ~ ,...... ~. . .._ - =. . . .. -
r f
APPENO!! L PRO 6 RAM PEAf0liMANCE TESTS HEAT BALANCE Program Performance Test 2 September 30, 1985 DATA SET 2 OF 2 ENTHALPY FLOW POWER POWER 1320 hours0.0153 days <br />0.367 hours <br />0.00218 weeks <br />5.0226e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.1 3.957 4.717 Feedwater 419.5 -4.000 -1.678 Surface Blowdown 542.6 0.00371 O.00202 Bottom Blowdown 478.7 0.03974 0.01903 i
Power Dissipated 3.0599 896.2 STEAM GENERATOR B
+
Steam 1192.1 3.921 4.675 Feedwater 419.5 -3.900 -1.636 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 3.0600 896.2 OTHER COMPONENTS i
, Letdown Line 534.8 0.03812 0.02039 Charging Line 487.5 -0.01997 -0.00973 j Pressurizer 707.2 0.00000 0.00000 1 Pumps -0.03749 i Insulation Losses O.00084 Power Dissipated -0.02600 -7.6
) ______
REACTOR POWER 1784.7 i
s i
L5
APPE~~l! La PR06AM PERFORMANCE TESTS I
j HEAT SALANCE DATA Progras Performance fest 3 i Septee6er 30, 1985 PLANT PARAETERS:
REACTOR C00LMi SYSTEM REFLECilVE IN5ULAi!ON j Puep Poser (M each) 2.0 Inside Surface Area (sq ft) 6,465
- Puep Efficiency II) 90.0 ' Heat loss Coefficient (Bius/hr sq ft) 55.00 Pressurizer Inside Diaseter (inches) 59.6 1
N0hAEFLECilVE INSULAi!0N STEAM GENERATORS Inside Surface Area (sq ft) 4,563 Dene leside Diaseter (inches) 94.30 Thicknets (inchest 4.0 Riser Outside Diaseter (inches) 13.00 Thereal Conductivity (Brus/hr it F) 0.035 Number of Risers 12 Moisture Carry-over (1) in A 0.000 LICENSED THERMAL F0tER ( Mt) 975 i Moisture Carry-over (I) is 9 5.000 Moisture Carry-over (1) in C 9.999 i
l OATA:
1 T!nE 1300 TIME 1300 STEAM GENEAATCR A STEAM GEhERATOR 8
! Steae Pressure (psia) 1000.0 Steae Pressure (psla) 1000.0 j Feedeater Floe (E6 It/hr) 1.500 Feedeater Flos (E6 lb/hr) 1.500
, Feed ater fesperature (F) 440.0 feedeater feeperature (F) 440.0 Suriace Iloedoen Igoal 10.0 SurIace licedoen Igael 10.0 Bottos Bloedosa (qpe: 100.0 Bottos Bloedoes (gpe) 100.0 l, Water Level linches) l' . 0 Water Level (inches) 120.0 i i
STEAM 6EhEFATCA C Steae Pressure (psla) 1000.0 Feed ater Flos (E6 lbthr) 1.500 Feedeater Teeperature (F) 440.0 SurIace Bloedoen Igoal 10.0 lettoe 81oed:en (gpe) 100.0 Water Level tinches) 120.0 LETDCh4 L!ht CHAnGINS LlhE i Floe (gpol 50.0 Flce (gpe) 25.0 feeperature (F) 540.0 feeperature (F) 500.0 I
i PRES $URl!EA REAciGR Pressure (pstal 2300.0 I ave (F) 585.0
- Water Level tinches) 100.0 i cold (F) 550.0
}
I i
- L6 i
Z APPE' II L PROGRM PERFORMMCE TESTS HEAT BALANCE Program Performance Test 3 September 30, 1985 DATA SET 1 OF 1 ENTHALPY FLOW POWER POWER 1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.9 1.457 1.738 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 1.1294 330.8 STEAM GENERATOR B Steam 1160.4 1.457 1.690 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 O.00371 O.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 1.0821 316.9
, STEAM GENERATOR C Steam 1127.9 1.457 1.643 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 .
Bottom Blowdown 478.7 0.03974 0.01903 '
Power Dissipated 1.0347 303.0 OTHER COMPONENTS Letdown Line 534.8 0.01906 0.01019 Charging Line 487.5 -0.00998 -0.00487 Pumps -0.01844 Insulation Losses 0.00059 Power Dissipated -0.01252 -3.7 REACTOR POWER 947.1 L-1
l l
APPEO!!L2PROGRAMPERFORMANCETESTS !
HEAT BALANCE DATA Progran Performance Test 4 l Septeeber 30,1985 PLANT PARAMETERS:
1 REACTOR COOLANT SYSTEM REFLECTIVE lh3ULAi!0N Pump Poser (MW each) 2.0 Inside Sur bce Area (sq ft) 6,465 Puep Efficiency (1) 90.0 Heat Loss Coefficient (BTUs/hr sq f t) 55.00 Pressurizer Inside Diaeeter (inches) 59.6 NONREFLEti!VE INSULATION j STEAM SENERATORS Inside Surface Area (sq ft) 4,563 i lose leside Diaseter (inches) 94.30 Thickness linches) 4.0
( Riser Outside Diameter (inches) 13.80 Thereal Conductivity (BTUs/hr it F) 0.035 i Number of Risers 12 Moisture Carry-over (1) in A 0.125 LICENSED THERMAL PCWER (MWt) 975 Moisture Carry-over (1) in 8 0.125 Moisture Carry-over (1) in C 0.125 DATA: SET 1 SET 2 SET 1 SET 2 .
i TIME 1300 1320 i!ME (300 1320 STEAM GENERAT0r. A STEAM GEhERATOR 9 Steae Pressure (psia) 1000.0 1000.0 Steae Pressure (psia) 1000,0 1000.0 Feed ater Flos (E6 lb/hr) 1.500 1.500 Feedsater Flow (E6 lb/hr) 1.500 1.500 Feedeater Teeperature (F) 440.0 440.0 Feedeater Teeperature (F) 440.0 440.0 Surf ace Blowdoen (g;o) 10.0 10.0 Surf ace lloedoen (gpel 10.0 10.0 Bottce Blondoen igpel 100.0 100.0 Bottes Blowdoen Igpel 100.0 100.0 Water Level (inches) 120.0 120.0 Water Level (inches) 120.0 120.0 STEAM GENERATOR C -
Steae Pressure (psia) 1000.0 1000.0 Feedsater Flos (E6 lb/hr) 1.500 1.500 Feed =4ter Teeperature (F) 440.0 440.0
, Surf ace Bicadoen (gpe) 10.0 10.0 l lottes B!cedoen (ges) 100.0 100.0 l Water Level (inches) 120.0 120.0 l
l LETLCM LINE CHAR 6th6 L!kE Flow (gpal 50.0 50.0 Flos (gpel 25.0 25.0 feeperature (F) 540.0 540.0 feeperature (F) 500.0 500.0 PRESSURl!ER REACTOR Fressure (psia) 2; .0 2300.0 t ave (F) 585.0 585.0 Water Level (inches) 150.0 50.0 i cold (F) 550.0 500.0 L-8
__ . . , . _ . . _ ~ _ _ _ . _ _ _ . _ . _ . _ _ _ _ _ _
APPENO!! L PR06 RAM PERf0RMMCE TESTS HEAT BALANCE Program Performance Test 4 September 30, 1985 DATA SET 1 OF 2 ENTHALPY FLOW POWER POWER 1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.1 1.457 1.736 i
Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 O.00371 O.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 1.1282 330.4 STES;1 GENERATOR B Steam 1192.1 1.457 1.736 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 1.1282 330.4 STEAM GENERATOR C Steam 1192.1 1.457 1.736 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 l Power Dissipated 1.1282 330.4
. OTHER COMPONENTS
.I
! Letdown Line 534.8 0.01906 0.01019 Charging Line 487.5 -0.00998 -0.00487 Pressurizer 707.2 -0.01776 -0.01256 Pumps -0.01844 Insulation Losses 0.00059 Power Dissipated -0.02500 ~7.3 REACTOR POWER 904.0 s
e L-9
APPEh0!! Lt PROGRM PERFORMEE TESTS i
HEAT BALANCE Program Performance Test 4 September 30, 1985 DATA SET 2 OF 2 ENTHALPY FLOW POWER POWER 1320 hours0.0153 days <br />0.367 hours <br />0.00218 weeks <br />5.0226e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.1 1.457 1.736 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 i
Power Dissipated 1.1282 330.4 STEAM GENERATOR B ,
Steam 1192.1 1.457 1.736 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 1.1282 330.4 STEAM GENERATOR C Steam 1192.1 1.457 1.736 Feedwater 419.5 -1.500 -0.629 Surface Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01902 Power Dissipated 1.1282 330.4 OTHER COMPONENTS Letdown Line 534.8 0.01906 0.01019 l Charging Line 487.5 -0.00998 -0.00487 Pressurizer 707.2 -0.01776 -0.01256 Pumps -0.01844 Insulation Losses 0.00059 l
Power Dissipated -0.02508 -7.3 REACTOR POWER 984.0 t
L-10 t
Jr_-r,-
APPEND!! L PROGRAM PERFCRMANCE TESTS HEAT BALANCE DATA Progras Performance Test 5 Septeeber 30,1985 PLANT PARAMETERS:
REACTOR COOLANT SYSTEM REFLECTIVE INSULAi!0N Pump Poser (MN each) 6.1 Inside Suriace Area (sq ft) 4,792 Pump Efficie cy (I) 90.0 Heat Loss Coefficient (BTUs/hr sq ft) 55.00 Pressurizer Inside Diaeeter (inches) 94.6 NONREFLECTIVE INSULATION STEAM EENERATORS Inside Surface Area (sq ft) 12,657 losa leside Diameter (inches) 135.90 Thickness (inches) 4.0 Riser Outside Diaseter (inches) 19.90 Thereal Conductivity (BTUs/hr it F) 0.035 Nuotar of Risers 12 Moisture Carry-over II) in A 0.125 LICENSED THERMAL POWER (MWt) 3900 Maisture Carry-over (1) in B 0.125 Moisture Carry-over (I) in C 0.125 Meisture Carry-over (I) in D 0.125 DATA:
TIME 1300 TIME 1300 STEM FENERAIDR A STEAM GENERATOR 8 Stras Pressure (psia) 1000.0 Steae Pressure (psia) 1000.0 Feedsater Flos (E6 lb/hr) .4.450 Feedsater Flow (E6 lb/hr) 4.450 Feedeater fesperature (F) 440.0 Feedvater Teeperature (F) 440.0 Surface Blowdoen (gpe) 0.0 Surf ace Blondown (gpe) 0.0 Bottee Blondoen (gpe) 0.0 Bottoe Bloedcen (gpe) 500.0 Water Level (inches) 140.0 Water Level linches) 140.0 STEM GENERATOR C STEAM GENERATOR O Steae Pressure (psia) 1000.0 Steae Pressure (psia) 1000.0 feedsater Flow (E6 lb/hr) 4.450 feedeater Flos (E6 lb/hr) 4.450 Feedeater Teeperature IF) 440.0 Feed ater Teocerature (F) 440.0 Surface bloedoen (gpe) 500.0 Surf ace Ble=doen (gpe) 500.0 Bottos Blowdoen (gpe) 0.0 Bottos Bloedoen (gpe) 500.0 Water Level (inches) 140.0 Water Level linches) 140.0 LETOOWNLINE CHARGING L!hE Flow (gpal 200.0 Flos (gpa) 100.0 Temperature (F) 540.0 feeperature (F) 500.0 PRESSURIZER react 0R Fressure (psia) 2300.0 iave(F) 595.0 Water Level (inches) 100.0 i told (F) 550.0 L-il
APPENO12 La PROGRAM PERf0RMANCE TESTS ,
HEAT BALANCE Program Performance Test 5 Geptember 30, 1985 DATA SET 1 OF 1 ENTHALPY FLOW POWER POWER 1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.1 4.450 5.305 Feedwater 419.5 -4.450 -1.867 Surface Blowdown 542.6 0.00000 0.00000 Bottom Blowdown 478.7 0.00000 0.00000 Power Dissipated 3.4384 1007.0 STEAM GENERATOR B Steam 1192.1 4.251 5.068 Feedwater 419.5 -4.450 -1.867 Surface Blowdown 542.6 0.00000 0.00000 Bottom Blowdown 478.7 0.19871 0.09513 Power Dissipated 3.2966 965.5 STEAM GENERATOR C Steam 1192.1 4.264 5.084 Feedwater 419.5 -4.450 -1.867 Surface Blowdown 542.6 0.18574 0.10078 Bottom Blowdown 478.7 0.00000 0.00000 Power Dissipated 3.3177 971.7 STEAM GENERATOR D Steam 1192.1 4.066 4.847 Feedwater 419.5 -4.450 -1.867 Surface Blowdown 542.6 0.18574 0.10078 Bottom Blowdown 478.7 0.19871 0.09513 Power Dissipated 3.176b 930.2 OTHER COMPONENTS Letdown Line 534.8 0.07624 0.04077 Charging Line 487.5 -0.03994 -0.01947 Pumps -0.07498 Insulation Losses O.00091 Power Dissipated -bib 5277 -15.5 REACTOR POWER 3b553 L 12
APPENDII La PROGRAM PERFORMANCE TESTS HEAT BALANCE DATA Progran Perforeance Test 6' Septeober 30,1985 PLANT PARAMETERS:
REACTOR COOLANT SYSTEM REFLEtilVE IhSULAi!DN Puep Power (MW each) 6.1 Inside Sarface Area (sq ft) 4,792 Puep Efficiency (1) 90.0 Heat Loss Coefficient (BTUs/hr sq ft) 55.00 Pressurizer inside Diaseter (anches) 94.6 NONREFLECTIVE INSULAi!ON STEAM SENERATORS Inside Surf ace Area (sq f t) 12,657 Dose Inside Diaseter (inches) 135.90 Thickness (inches) 4.0 Riser Outside Diameter (inches) ' 19.90 Thereal Conductivity (BTUs/hr ft F) 0.035 Number of Risces 12 Moisture Carry-over (1) in A 0.125 LICENSED THERMAL POWER (Mut) 3900 Moisture Carry-cier (1) in B 0.125 Motstura Carry-over (I) in C 0.125 Moisture Carry-over (I) in D 0.125 DATA: SET I SET 2 SET I SET 2 TIRE 1300 1320 TIME 1300 1320 STEAM GENERATOR A STEAM GENERATOR B Steae Pressure (psia) 1000.0 1000.0 Stead Pressure (psia) 1000.0 1000.0 Feed ater Flow (E6 lb/hr) 4.450 4.450 Feedsater Flos (E6 lb/hr) 4.450 4.450 Feedeater Teeperature (F) 460.0 460.0 Feedeater Teeperature (F) 440.0 440.0 Surface Bloodsen (gpol 10.0 10.0 Surface Blo down (gpol 10.0 10.0 Bottce Ble.do.a (gpe) 100.0 100.0 Bottae Bloadoen Igpe) 100.0 100.0 Water Level (inches) 140.0 140.0- Water Level (inches) 140.0 140.0 STEAM GENERATOR C STEAM 6ENERATOR D Stras Pressure (psia) 1000.0 1000.0 Steae Pressure (psia) 1000.0 1000.0 Feedsater Flow (E6 lb/hr) 4.450 4.450 Feedsater Flow (E6 lb/hr) 4.450 4.450 Feedeater Teeperature (F) 420.0 420.0 Feedsater Teeperature (F) 400.0 400.0 Surface Blowdown (gpel 10.0 10.0 Surface Bloedown (gpe) 10.0 10.0 Bottos Bloedoen (gpe) 100.0 100.0 Bottos Bloadown (gpe) 130.0 100.0 Water Level (inches) 140.0 140.0 Water Level (inches) 140.0 140.0 LETDGWN LINE CHARG!N6 LihE Flow (gpe) 200.0 0.0 Floa (gpe) 200.0 0.0 feeperature (F) 540.0 540.0 feeperature (F) 500.0 500.0 PRESSURilER REACTOR Pressure (psia) 2300.0 2300.0 i ave (F) 585.0 505.0 Water Level (inches) 100.0 100.0. I cold (F) 550.0 550.0 L-13
d
- APPEEDl! La PROGRM PERFOMMCE TESTS HEAT BALANCE
) Program Performance Test 6 September 30, 1985 DATA SET 1 OF 2 ENTHALPY FLOW POWER POWER
)
1300 hours0.015 days <br />0.361 hours <br />0.00215 weeks <br />4.9465e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTus/hr) (MWt)
STEAM GENERATOR A Steam 1192.1 4.407 5.254 Feedwater 441.7 -4.450 -1.966 Surface B1owdown 542.6 0.00371 O.00202 Bottom Blowdown 490.5 O.03929 O.01927 Power Dissipated 3.3092 969.2 '
il STEAM GENERATOR B
- Steam 1192.1 4.407 5.253 i Feedwater 419.5 -4.450 -1.867 Surface Blowdown 542.6 0.00371 0.00202 i Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 3.4076 998.0 a STEAM GENERATOR C i
Steam 1192.1 4.406 5.253 i Feedwater 397.5 -4.450 -1.769 Surface Blowdown 542.6 0.00371- 0.00202 Bottom Blowdown 467.1 O.04017 O.01877
_ Power Dissipated 3.5043 1026.3 STEAM GENERATOR D Steam 1192.1 4.406 5.252 Feedwater 376.O -4.450 -1.673 Surface Blowdown- 542.6 O.00371 O.00202
} Bottom Blowdown 455.7 0.04059 0.01850 Power Dissipated 3.5996 1054.2 i
OTHER COMPONENTS Letdown Line 534.8 0.07624 0.04077 Charging Line 487.5 -0.07987' -0.03894
- Pressurizer 707.2 O.00000 O.00000 l Pumps -0.07498 Insulation Losses 0.00091 i . Power Dissipated -0.07224 -21.2 l REACTOR POWER 4026.6 i
_ . . _ ,~___. - - . - . - - - . ~ - . . - - ..
APPENDl! La PROGRAM PERFORMANCE TESTS HEAT BALANCE Program Performance Test 6 !
September 30, 1985 DATA SET 2 OF 2 ENTHALPY FLOW POWER POWER 1320 hours0.0153 days <br />0.367 hours <br />0.00218 weeks <br />5.0226e-4 months <br /> (DTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (NWt)
STEAM GENERATOR A Steam 1192.1 4.407 5.254 Feedwater 441.7 -4.450 -1.966 Surface Blowdown 542.6 O.00371 0.00202 Bottom Blowdown 490.5 0.03929 0.01927 Power Dissipated 3.3092 969.2 STEAM GENERATOR B Steam 1192.1 4.407 5.253 Feedwater 419.5 -4.450 -1.867 Surface. Blowdown 542.6 0.00371 0.00202 Bottom Blowdown 478.7 0.03974 0.01903 Power Dissipated 3.4076 998.0 STEAM GENERATOR C Steam 1192.1 4.406 5.253 Feedwater 397.5 -4.450 -1.769 i Surface Blowdown 542.6 O.00371 O.002O2 Bottom Blowdown 467.1 0.04017 0.01877 Power Dissipated 3.5043 1026.3 STEAM GENERATOR D Steam 1192.1 4.406' 5.252 Feedwater 376.0 -4.450 -1.673 Surface Blowdown 542.6 O.00371 O.00202 Bottom Blowdown 455.7 0.04059 0.01850 Power Dissipated 3.5996 1054.2 OTHER COMPONENTS Letdown Line 534.8 0.00000 0.00000 Charging Line 487.5 0.00000 0.00000 Pressurizer 707.2 0.00000 0.00000 Pumps -0.07498 Insulation Losses O.00091 Power Dissipated -0.07407 -21.7 REACTOR POWER 4026.1 L-15
APPEI ll L PROGRAM PERFORMANCE TESTS
!iEAT BALANCE DATA McGuire !
June 6, 1984 PLANT PARAMETERS:
REACTOR C00LANT SYSTEM REFLECTIVE lhSULATION Puep Poser (MW each) 5.3 Inside Surface Area (sq ft) 15,958 Puep Efficiency (I) 90.0 Heat Loss Coefficient (BTUs/hr sq f t) 55.00 Pressurizer Inside Diameter (inches) 90.5 NONREFLECTIVEINSULATION STEAM SENERATORS Inside Surface Area (sq ft) 0 Dose leside Diameter (inches) 130.00 Thickness (inches) 0.0 Riser Outside Diameter (inches) 19.00 Thereal Conductivity (BTUs/hr it F) 0.000 Nueber of Risers 12 Moisture Carry-over (I) in A 0.070 LICENSED THERMAL POWER (MWt) 3411 Moisture Carry-over (1) in B 0.070 Moisture Carry-over (I) in C 0.070 Moisture Carry-over (Il in D 0.070 CATA:
TIME 1015 TIME 1015 STEAM GEhERATOR A STEAM SENERATOR B Steae Pressure (psial 999.6 Steae Pressure (psia) 1001.0 Feedeater Flow (E6 lb/hr) 3.853 Feedsater Flow (E6 !b/hr) 3.684 Feedsater Temperature (F) 440.3 Feed ater Temperature (F) 440.0 Surface slowdown (gpe) 0.0 Surface Ble=down (gpal 0.0 Bottos Blowdown (gpe) 0.0 Bottos Bicwdown (gpe) 22.8 Water Level (inches) 149.1 Water Level (inches) 149.1 STEAM SENERATUR C STEAM 6ENERATOR D Steae Pressure (psia) 1001.3 Steae Pressure (psia) 999.5 Feedu.ter Flow (E6 lb/hr) 3.864 Feedwater Flow (E6 lb/hr) 3.666 Feedwater Teeperature (F) 440.2 Feedwater Teeperature (F) 440.3 Surface Bloedown (gpol 0.0 Surface Sicadown (gpe) 0.0 Battce Blowdown (gpe) 47.0 Bottos Bic=down (gpe) 0.0 Water Level (inches) 149.1 Water Level (inches) 149.1 LETDOM LINE CHAR 6th6 LINE Flow (gpol 76.0 Flow (gpol 86.0 Teeperature (F) 558.5 Temperature (F) 519.8 1
PRESSURIZER REACTOR Pressure (psia) 2238.5 T ave (F) 587.5 Water Level (inches) 120.0 T cold (F) 559.2 L-16
APPEEll L PROGRQ PERf0RMANCE TDiiS HEAT BALANCE McGuire 1 June 6, 1984 DATA SET 1 OF'1 ENTHALPY FLOW POWER POWER 1015 hours0.0117 days <br />0.282 hours <br />0.00168 weeks <br />3.862075e-4 months <br /> (BTUs/lb) (E6 lb/hr) (E9 BTUs/hr) (MWt)
STEAM GENERATOR A Steam 1192.5 3.853 4.595 Feedwater 419.8 -3.853 -1.617 Surface Blowdown 542.5 0.00000 0.00000 Bottom Blowdown 478.9 0.00000 0.00000 Power Dissipated 2.9773 G72.0 STEAM GENERATOR B Steam 1192.4 3.675 4.382 Feedwater 419.5 -3.684 -1.545 Surface Blowdown 542.7 0.00000 0.00000 Bottom Blowdown 478.8 0.00906 0.00434 Power Dissipated 2.8412 832.1 STEAM GENERATOR C Steam 1192.4 3.845 4.585 Feedwater 419.7. -3.864 -1.622 Surface Blowdown 542.8 0.00000 0.00000 Bottom Blowdown 478.9 0.01867 0.00894 Power Dissipated 2.9726 870.6 STEAM GENERATOR D Steam 1192.5 3.666 ~4.372 Feedwater 419.8 -3.666 -1.539 Surface Blowdown 542.5 0.00000 0.00000 Bottom Blawdown 478.9 0.00000 0.00000 Power Dissipated 2.8328 829.6 OTHER COMPONENTS Letdown Line 557.8 0.02822 0.01574 Charging Line 510.6 -0.03358 -0.01715 Pumps -0.06515 Insulation Losses 0.00088 Power Dissipated -O 06567 -19.2 REACTOR POWER 3385.1
~
_ _ ,