WO1993003979A1

WO1993003979A1 - Microwave food products and methods of their manufacture and heating

Info

Publication number: WO1993003979A1
Application number: PCT/US1991/005840
Authority: WO
Inventors: Peter S. Pesheck; Phillip S. Perkins; Christopher W. Lewis
Original assignee: Grand Metropolitan, Plc
Priority date: 1991-08-16
Filing date: 1991-08-16
Publication date: 1993-03-04

Abstract

A microwave food product having improved heating characteristics is disclosed. In particular, the food product of the present invention may comprise multiple edible components and a reflective packaging element, the thickness and/or the dielectric properties of selected components and the position of the reflective packaging element having been selected to control the heating characteristics of the food product during exposure to microwave radiation. In a preferred embodiment, the food product of the present invention comprises a hamburger disposed in a closed container, the thickness and/or dielectric properties of at least one of the hamburger components (meat patty, top bun, bottom bun) having been adjusted and a layer of aluminum foil positioned at the bottom of the container in order to optimize the hamburger's heating characteristics.

Description

MICROWAVE FOOD PRODUCTS AND METHODS OF THEIR MANUFACTURE AND HEATING

The present invention relates to microwave food products and the methods of their manufacture and heating.

Reliable control of the heating of microwave food products has long been pursued by food scientists with varying degrees of success. Most of the research in pursuit of this objective has focused upon the packaging of these products. A common approach has been the incorporation of metallic sheeting in the food package in order to shield a certain portion of the food product from microwave radiation, thereby reducing the heating rate of that food portion. Another approach has been to provide susceptors in the packaging in order the increase the heating rate of adjacent components of the food product, in particular at the surface of these components. However, the use of shielding and/or susceptors is inadequate for many applications. Recently, adjustment of the food product itself has been disclosed as a means of reliably controlling the heating of microwave food products. In particular, U. S. Patent No. 5,008,507 to Pesheck et al. discloses the adjustment of a food product's thickness and dielectric properties to control its response to microwave radiation. The contents of U. S. Patent No. 5,008,507 are incorporated herein by reference. The adjustment of thickness and dielectric properties alone, however, may not provide the optimal heating characteristics for certain food products.

In the present invention, the heating of a microwave food product is controlled by adjusting the thickness and/or dielectric properties and by positioning a reflective packaging element in relation to the food product. This involves manipulation of the standing wave created by the interaction of microwaves reflected by the reflective packaging element with incoming microwaves. In one embodiment, a food product comprising three stacked components is placed in a closed container, the container being microwave transparent except for the bottom wall which includes a reflective packaging element. During exposure of this food product to microwave radiation, microwaves striking the bottom wall of the container will be reflected back into the food product. By properly positioning the reflective packaging element and by adjusting the thickness and/or the dielectric properties of selected components of the food product, the intensity of the microwave radiation at particular points within each food component can be reliably controlled.

FIGURE 1 is a predicted heating profile for an unadjusted microwave hamburger product without a reflective packaging element.

FIGURE 2 is a predicted heating profile for a microwave hamburger product having a reflective packaging element.

FIGURE 3 is a predicted heating profile for an adjusted microwave hamburger product having a reflective packaging element.

FIGURE 4 is a side view of the microwave hamburger product of the present invention.

In a preferred embodiment of the present invention, an improved microwave hamburger product is provided. In particular, a meat patty and top and bottom buns are provided in a closed container, the container being microwave transparent except for the bottom which comprises a microwave reflective material. The heating response of the hamburger product during exposure to microwave radiation can be predicted using software developed by Pillsbury scientists, as described in U.S. Patent No. 5,008,507. A copy of an updated version of this computer program is attached hereto as Appendix A. As described in U.S. Patent No. 5,008,507, this program utilizes interference analysis techniques to analyze layer effects and to predict the heating response of a food product given the physical dimensions, complex dielectric constants, densities and heat capacities for each component or layer of the food product. In particular, the program uses this data to calculate the fraction of power absorbed by each component or layer, as well as the heating rate for each component or layer, according to the equations given in U.S. Patent No. 5,008,507. By adjusting one or more of these variables, the heating response of the food product can be varied.

In the case of microwave hamburger food products, previous products have exhibited excessive heating of the buns, resulting in undesirable moisture loss in the buns, and insufficient heating of the meat. In order to improve the heating characteristics of the product during exposure to microwave radiation, one embodiment of the present invention comprises a hamburger product in a container having a microwave-reflective bottom section. The remainder of the container is substantially microwave-transparent. In its most basic form, this product comprises a meat patty disposed between two buns. In accordance with the present invention, the thickness and/or dielectric properties of selected components of the hamburger product are adjusted to optimize the heating rates of one or more of the components. The predicted heating profile of an unadjusted hamburger food product in a completely transparent container is given in FIGURE 1. By adding a reflective packaging element to the hamburger product, the heating rate of each bun is decreased and the heating rate of the meat patty is increased, as shown in FIGURE 2. This is due to microwaves being reflected by the reflective packaging element rather than by the metal floor of the oven. By shifting the point of reflectance of the microwave radiation, the intensity of the radiation within each component is altered.

In accordance with the present invention, the heating characteristics of the food product to be heated in the modified container may be altered by adjusting the thickness of selected components and/or the dielectric properties of selected components. By making these adjustments, the amount of power absorbed by each component can be correspondingly adjusted. As an example, the thickness of the meat patty of the hamburger product used in generating FIGURES 1 and 2 was increased from 1 cm to 1.2 cm and the thickness of the bottom bun was reduced from 1.5 cm to 1.3 cm. As illustrated in FIGURE 3, the resulting hamburger product, when exposed to microwave radiation, exhibits a further reduction in the heating rate of the bottom bun, with a slight increase in the heating rates of the meat patty and the top bun. The end product is a more organoleptically acceptable hamburger — one with a warmer patty and moister buns.

The heating rates illustrated in FIGURES 1-3 were calculated based upon a microwave hamburger product, as previously described, resting upon a glass shelf of given thickness and dielectric properties and disposed a given distance from the metal floor of a microwave oven. These heating profiles were generated by using the computer program referenced above. TABLES 1-3 below give the data used to generate the heating profiles in FIGURES 1-3, respectively, (namely the complex dielectric constant (e^*) , density (p, g/ml), and component thickness (D, cm)), as well as the predicted amount of power absorbed and the predicted average heating rate for each component (top bun, patty, bottom bun) . For this application, the magnetic properties of the food components ( u^*) are not relevant and were thus allocated a nominal value of 1.00 + oi when running the program. The heat capacities of the food components were assigned a value of 1.00 cal/g. The following oven parameters were also used in generating the results given in FIGURES 1-3: incident electric field (E₀) = 25.00 v/cm, microwave length in air

- 12.24 cm, fraction of incident power (below/above) = 0.50, distance from metal floor to glass shelf = 0.50 cm, glass shelf thickness = 0.70 cm, e^* for glass shelf = 1.00

- .10i.

TABLE 1

10

15

20

25

The dielectric properties of the components of the microwave hamburger product of the present invention may be varied in a number of ways in optimizing the product's heating characteristics in accordance with the present invention. For example, the beginning moisture content of the meat patty or buns might be adjusted. Generally, a change in the component's moisture content will change the amount of power absorbed by that component and also the amount of power reflected by that component. Where the meat patty is being reheated from a frozen state, its heating rate can be increased by substituting an 80% meat patty for a 99% meat patty.

In order to create of bun of shorter texture, additional amounts of modified fats such as GREBE and GREEN VECTOR may be added. This effect is due to a reduction in the strength of disulfide bonds formed between neighboring gluten molecules. GREBE and GREEN VECTOR are available from the British Arkady Company,

Manchester, England. The active ingredients of GREBE are hydrogenated vegetable oil (30%) , monodiacetyl tartaric acid esters of mono and diglycerides of fatty acids (20%) , and water (48%) . The active ingredients of GREEN VECTOR are vegetable fat (<10%) , full soya flour (10%), flour improver (<1.0%), and salt (68%). Adding GREBE also aids in binding up water molecules present in the bun, thus reducing the amount of moisture lost during microwave heating.

The following bun formulations have been found to yield particularly good results when used in connection with the packaging of the present invention: White Bun :

White flour (protein 13.2% ± 0.2%) 54.38%

Sugar 5.44%

5 GREEN VECTOR (improver) 1.47%

CSP (Calcium propionate) 0.07%

Vegetable shortening 1.27%

GREBE 1.27%

REVIVE (Laevo-rotatory Cysteine) 0.22% 0 Yeast 2.18%

Water 33.70%

-5

0

5

Oakland 22M is available from the British Arkady Co. , 0 Manchester, England, and contains the following active ingredients: dextrose (20%), E472(e) mono and diacetyl tartaric acid esters of mono and di-glycerides of fatty acids (20%) , full soya flour (17%) , calcium propionate (9.9%), ascorbic acid (<1.0%), flour improver 920 (<1.0%), flour improver 927 (<1.0%). REVIVE is also available from the British Arkady Co., as are flour improvers 920 and 927.

The following meat patty formulations have been found to yield particularly good results when used in connection with the packaging of the present invention:

80% Meat Pattv: Meat (70 VL Flank, 30-32% fat) 83%

PROTENA PMI (Textured Soya Proteins) 2%

PROTENA 1750 (Soya Concentrate) 2%

Wheat Starch 2% Individually Quick Frozen Onion 6%

Seasoning 1.5%

Water 3.5%

99% Meat Pattv:

Meat (22% fat) 99%

Seasoning 1%

PROTENA PM1 and PROTENA 1750 can be obtained from Rank Hovis MacDougall Ingredients, Ltd. , West Yorkshire, England.

In a preferred embodiment of the hamburger food product of the present invention, as depicted in side view in FIGURE 4 (not to scale) , the container comprises a crash lock six-sided box 1 made of 500 μ , 295 g/m² Red Rose grease resistant board measuring 115 mm on each side at the base and 55 mm iri height. The reflective packaging element 2 comprises 350 μm white liner folding board 3 covered on one side with 9 μ of aluminum foil 4 and possesses approximately the same dimensions as the bottom wall of the box 1. The foil 4 may be attached to the board 3 using any standard solution or emulsion adhesive suitable for laminating porous board to aluminum foil. Alternative reflective packaging elements include 2 mil foil with a 3g/m² ethylene vinyl acetate gel lacquer as a sealant (available from Prodan) , straight aluminum, tin or steel plate or any other commodity metal suitable for food packaging.

The reflective packaging element 2 is placed foil- side down in the bottom of the box 1 as a loose item in a substantially horizontal position. A hamburger 5 is disposed within the box 1, which is designed to house the hamburger 5 during both refrigeration and heating. The hamburger 5 comprises a top bun 6, a bottom bun 7 and a meat patty 8 disposed between buns 6 and 7. In order to further reduce the moisture lost from the buns during heating, a bag 9 may be used to completely enclose the hamburger. A preferred bag 9 comprises 40 g/m² paper coated on the outside with 12 m food grade polyester and on the inside with an all-over 4 g/m² polyvinyl acetate glue layer. The bag is heat sealed on the inside via the polyvinyl acetate layer.

Condiments, cheeses and other food products may be added to the hamburger food product of the present invention in order to modify the heating rates of particular components. In addition, where condiments are added for purely sensory reasons, their thicknesses and/or dielectric properties may be adjusted in order to readjust the heating rates of selected components.

The instant invention has been disclosed in connection with specific embodiments. However, it will be apparent to those skilled in the art that variations from the illustrated embodiments may be undertaken without departing from the spirit and scope of the invention. In addition to the hamburger food product disclosed herein, the present invention may be used to improve the heating characteristics of a number of other food products, including fish sandwiches, chicken burgers, ham sandwiches, hot dogs, and egg and bacon muffin sandwiches. The use of the present invention is not limited to multi-component food products but may also be used with single component food products. The location, configuration and orientation of the reflective packaging element may vary for different applications. For example, in a multi-component food product, the reflective packaging element may be positioned between selected edible components for optimal results. In some applications, more than one reflective packaging element may be appropriate. Further, the present invention may be utilized in combination with other packaging elements such as shields or susceptors. These and other variations will be apparent to those skilled in the art in view of the above disclosure and are within the spirit and scope of the invention.

APPENDIX A

OVEN.H4G is written in ASYST, version 3.10, is available from: Asyst Software Technologies, Inc 100 Corporate Woods Rochester, New York 14623

The program runs on an IBM AT or PS/2 compatible 286, 386, or 486 computer; Asyst requires a math co¬ processor. Asyst is configured according to directions in the manual as follows:

1. Permanently load the HP Plotter Driver.

2. Memory Configuration:

Target symbol table size: 15 Kb

Target string segment size: 11 Kb

Target DAS buffer size: 0 Kb

Target GPIB queue size: 0 Kb

Target user dictionary size: 52 Kb

Target token heap size: 94 Kb

Target unnamed array (heap) size: 58 Kb

Target keyboard buffer size: 200 bytes

Target system buffer size 32768 bytes

3. The re-configured version of Asyst is saved under a different name, in my case MASYST.

4. From DOS, the modified version of Asyst (e.g. MASYST) is loaded.

5. From the Asyst OK prompt, type LOAD OVEN.H4G <Enter>; program loading and compiling proceeds.

6. After loading, the Asyst OK prompt appears; typeJaQ <Enter> to start the model.

7. Certain data (*.dat) and text (*.psp) files must be present in the Asyst directory. Listings of the necessary text files appear below. OVENDATA.DAT is produced by loading and running OVENDATA.ASY from MASYST, as described above. GO-OVPSP

^β Grand Metropolitan PLC, 1991

PILLSBURY PROPRIETARY This program is the property of the Pillsbury Company.

If you want to send graphics output to a HP plotter, you must have chosen a HP PLOTTER from one of the network menus. If you want to change your selection, you must exit to the network first. Use <CNTRL-BREAK>, then BYE. Graphics output can be sent to the Laser printer (no color) by typing the SCREEN.PRINT command.

GO-LAY2.PSP

• Grand Metropolitan PLC, 1991

Enter the number of layers (20 max) in your model, including any air gaps and packaging components. Note that the TOP LAYER is Layer #1.

For Air, Metal, or Susceptor layers, answer the request for e' with < ENTER > and follow instructions.

MENU1.PSP

^c Grand Metropolitan PLC, 1991

Report: REPORT

REPORTPRN

REPORT.F1L New Case: GO Change a Layer:

CHANGE Plot:

PLOT.HP Plot | E | :

E.PUOT Scan e*(T):

COOK Scan a Layer:

Q.SCAN

A.SCAN Scan Two Vbls:

TWO.WAYSCAN MNU-RPT.PSP

^β Grand Metropolitan PLC, 1991

Report: -> Printer, REPORTPRN; ->Disk File, REPORTFIL

New Case: GO Change a Layer: CHANGE Plot: PLOT, PLOT.HP

Scan: Q.SCAN, A.SCAN, TWO.WAYSCAN, and COOK

-I I

OVEN1.PSP

^β Grand Metropolitan PLC, 1991

Oven Variability:

OVEN.SCAN

OVEN.SCAN.HP Report:

REPORT

REPORTPRN

REPORT FIL New Case: GO Change a Layer:

CHANGE Plot:

PLOT.HP Plot | E | :

E.PUOT Scan e*(T):

COOK Scan a Layer:

Q.SCAN

A.SCAN Scan Two Vbls: TWO.WAYSCAN OHEAD.PSP

^β Grand Metropolitan PLC, 1991

OVEN | Layer | Layer | .. | Layer | Layer 11 Glass | Air | Metal >| #1 | #2 |..| #(n-1)| #n 11 Shelf | <— | Roor

TWSCAN.PSP

^β Grand Metropolitan PLC, 1991

TWO.WAYSCAN simultaneously scans two variables and plots the results in a 'response surface' format. After TWO.WAYSCAN, you can quit, you can use CHANGE to modify the desired variables, or you can use RESTORE to re-establish the pre-scan values.

MNUCOOK.PSP

^β Grand Metropolitan PLC. 1991

New Case: GO

Scan- > Plotter: COOK.HP

Restore initial Conditions: RESTORE

% Energy Sums:

M2.PSP

^β Grand Metropolitan PLC, 1991

Select a Scan Step as the new base case: NE BASE.CASE

MENU2.PSP

^β Grand Metropolitan PLC, 1991

% A Power vs. Scanned Vrbl:

A.PLCT New Case: GO New Scan:

Q.SCAN

A.SCAN Scan- > Plotter:

Q.SCAN.HP

A.PLOT.HP Restore Initial Conditions:

RESTORE

% Energy Sums:

G0-0V2.PSP

^β Grand Metropolitan PLC, 1991

Enter the number of layers in your model, NOT including the oven floor, the glass shelf or the air layer between them. OVEN accommodates up to 15 product/package layers and more can be added if necessary. Note that the TOP LAYER is #1.

RM.PSP

^β Grand Metropolitan PLC, 1991

-65 CHARACTERS-

Input sample ID & remarks (65 CHAR max).

RPT-TXT.PSP

^β Grand Metropolitan PLC, 1991

Enter the desired filename, without extension. This procedure will append to existing files. The resulting files are in ASCII format and will have an *.OVN extension. You can print them later from DOS.

COOK-TXT.PSP

^β Grand Metropolitan PLC, 1991

COOK allows you to superimpose heating profiles corresponding to any dielectric, thickness, Cp, or density changes may which occur in cooking. COOK heating curves will be superimposed on the first (base) case that you have already input. Enter your description of the base case:

OVENDATA.ASY

Peter S. Pesheck, 11/24/89 ^β Grand Metropolitan PLC, 1991

INTEGER SCALAR OVEN.NO 120VEN.NO : = REAL DIM[ OVEN.NO .4 ] ARRAY OVEN.DATA

DIM[ OVEN.NO , 20 ] STRING.ARRAY OVEN.NAME

:G0

0. OVEN.DATA : = .09 OVEN.DATA XSECTf ! .4 ] := \ assume e^* = .09 for all ovens

^■ Gerling" OVEN.NAME "[ 1 ] ': = 0.46 OVEN.DATA [1.1 ] : = 0.33 OVEN.DATA [ 1.2] : = 4.227 OVEN.DATA [ 1 ,3] : =

^■ Small Quasar" OVEN.NAME "[ 2 ] ": = 1.00 OVEN.DATA [2, 1 ] : =

0.12 OVEN.DATA [2,2] : = 5.097 OVEN.DATA [ 2 , 3 ] : =

^■ Kenmore" OVEN.NAME "[ 3 ] ": = 0.50 OVEN.DATA [3, 1 ] : = 0.25 OVEN.DATA [ 3 , 2 ] : = 4.269 OVEN.DATA [ 3 , 3 ] : = ^* Amana" OVEN.NAME "[ 4 ] ": = 1.30 OVEN.DATA [4, 1 ] : = 0.15 OVEN.DATA [ 4 , 2 ] : = 3.915 OVEN.DATA [ 4.3 ] : =

" Large Quasar" OVEN.NAME "[ 5 ] ": = 1.10 OVEN.DATA [ 5 , 1 ] : = 0.15 OVEN.DATA [ 5 , 2 ] : = 5.207 OVEN.DATA [ 5.3 ] : =

" Sharp R-8200" OVEN.NAME "[ 6 ] ": = 0.75 OVEN.DATA [6, 1 ] : = 0.31 OVEN.DATA [6, 2]: = 4.454 OVEN.DATA [6, 3]: =

^■ Litton" OVEN.NAME "[ 7 ] ": = 0.62 OVEN.DATA [7.1 ] : = 0.15 OVEN.DATA [7,2] : = 5.254 OVEN.DATA [ 7 , 3 ] : =

" Emerson" OVEN.NAME ^*[ 8 ] ": = 0.80 OVEN.DATA [8, 1 ] : = 0.23 OVEN.DATA [8,2] := 3.996 OVEN.DATA [ 8 , 3 ] : =

" Toshiba" OVEN.NAME "[ 9 ] ": = 1.29 OVEN.DATA [9.1 ] : = 0.34 OVEN.DATA [ 9 , 2 ] : = 4.347 OVEN.DATA [ 9 , 3 ] : =

" K-Mart" OVEN.NAME "[ 10 ] ": = 0.55 OVEN.DATA [ 10 , 1 ] : = 0.31 OVEN.DATA [ 10 , 2 ] : = 4.372 OVEN.DATA [ 10 , 3 ] : =

" GE Dual Wave" OVEN.NAME "[ 11 ] ": = 0.85 OVEN.DATA [11 , 1 ] : = 0.15 OVEN.DATA[11 ,2] : = 5.223 OVEN.DATA [ 11 ,3] : =

" Panasonic" OVEN.NAME "[ 12 ] ": = 0.77 OVEN.DATA [ 12 , 1 ] : = 0.27 OVEN.DATA[ 12,2] : = 4.433 OVEN.DATA [ 12.3 ] : =

OVEN.DATA XSECT[ ! .1 ] 2.54 * OVEN.DATA XSECT[ ! , 1 ] : = OVEN.DATA XSECT[ ! , 2 ] 2.54 * OVEN.DATA XSECT[ ! , 2 ] : =

OVEN.NO 1 + 1 DO

CR OVEN.NAME "[ I ] TYPE

OVEN.DATA XSECT[ I , ! ] . LOOP : SAVE.THE.RLE LOAD.OVERLAY DATARLE.SOV REGULAR.DATARLE RLE.TEMPLATE

OVEN.NO COMMENTS

REAL DIM[ OVEN.NO . 4 ] SUBRLE END

FILE.CREATE OVENDATA.DAT RLE.OPEN OVENDATA.DAT OVEN.NO 1 + 1 DO

OVEN.NAME "[ I ] I > COMMENT LOOP

1 SUBRLE OVEN.DATA ARRAY>FILE FILE.CLOSE ;

: READ.THE.RLE LOAD.OVERLAY DATAFILE.SOV RLE.OPEN OVENDATA.DAT OVEN.NO 1 + 1 DO

CR

I COMMENT > TYPE

1 SUBRLE RLE>UNNAMED.ARRAY XSECT[ I , ! ] . LOOP

RLE.CLOSE ; 0VEN.H4G ^β Grand Metropolitan PLC. 1991

50 STRING VERSION

" OVEN.H4: Peter S. Pesheck 16:40 10/27/90" VERSION ": =

\ references:

\ Collins: Field Theory of Guided Waves

\ Montgomery, Dickie, and Purcel: Principles of MW Circuits

\ Harrington: Time-Harmonic EM Fields

\ Map of ARE [ 24 . 6 ] { 24 Layers } \ Map of AIM [ 24 , 4 ]

\ REΞAL COMPLEX

\ B \ -C

\ #1 #2 #3 #4 #5 #6 \ #1 #2 #3 #4

\ LAYER ID Thickness CP RHO - - \ e* mu Z -

\ 1 = dielectric Thickness CP RHO - - \ e* mu Z -

\ 2 = METAL Thickness CP RHO - - \ e* mu Z -

\ 3= AIR Thickness CP RHO - - \ e* mu Z -

\ 4= SUSCEPTOR Thickness CP RHO - - \ e* mu Z Zs, surface imped

ECHO.OFF

: BYE \ Kevin at ASYST, 10/4/90 15 VI DEO. ATTRIBUTE BYE ;

INTEGER

SCALAR COOK. STEPS SCALAR FFLAG 0 FFLAG : = \ = 1 for Reports- > disk SCALAR CFFLAG 0 CFFLAG := \ = 1 for Reports- > disk in COOK

SCALAR MAXL

SCALAR MINL

SCALAR NWL

SCALAR N

SCALAR N1

SCALAR M \ start of a particular layer within Z & QG

SCALAR 11 \ General purpose index

SCALAR 12 \ Total Length of Z, QG, etc

SCALAR 13 \ SCAN Step # in A.SCAN, index for PAS

SCALAR 14 \ Length of a particular layer within Z & QG

SCALAR 15

SCALAR 16

SCALAR 18

DIM[ 2 , 3 ] ARRAY I9 0 I9 : =

SCALAR SL1

SCAUR SL2

SCALAR MFLAG 0 MFLAG := \ enable magnetic materials

SCALAR MSFLAG 0 MSFLAG := \ Scan Mu*

DIM[ 24 ] ARRAY LNG 0 LNG : =

DIM[ 51 ] ARRAY C 1 C : =

REAL SCALAR L SCALAR L1

SCALAR K3 \ SCAN Step # SCALAR SIGMA \ Conductivity of MMetal SCALAR GM \ FLOOR reflection = -1 ,

SCALAR ZS \ Z-axis shift in SCANs

SCALAR E 25. E : =

SCALAR PB

SCALAR P0

SCALAR RA

SCALAR RB

SCALAR TA

SCALAR TB

SCALAR AWG

SCALAR BWG

SCALAR WG

SCALAR EMAX \ energy conservation

SCALAR EMIN

SCALAR QMAX

«

SCALAR ZM \ max Z and Y for Plotting

SCALAR YM

SCALAR YMOS

DIM[ 7 ] ARRAY RF2

DIM[ 24 ] ARRAY CPR

DIM[ 24 ] ARRAY PA

DIM[ 24 ] ARRAY QA

DIM[ 52 , 3 ] ARRAY TW. VECTOR

DP.REAL

SCALAR F0 2.45E9D F0 : = SCALAR W 2.D DPI * F0 * W : = SCALARZ0376.73DZ0: =

SCALAR ZG \ Z guide, = ZO in free space

SCALAR CO 2.997952E10DC0: =

SCALAR CPRIME 1.787138313E-9D CPRIME : =

SCALAR EO 8.85418E-14D EO : =

SCALAR MUO 4.E-9D DPI * MUO : =

SCALAR LO \ Free space wavelength

SCALAR LBDA \ media wavelength

SCALAR KC

DIM[ 2 ] ARRAY NS

DIM[ 24 ] ARRAY ZZERO

DP.COMPLέX DIM[ 24 , 2 , 2 ] ARRAY BX DIM[ 2.2] ARRAY AA DIM[ 2 , 1 ] ARRAY CM DIM[ 24 ] ARRAY BA DIM[ 24 ] ARRAY CA DIM[ 24 ] ARRAY BB DIM[ 24 ] ARRAY CB

DIM[ 24 ] ARRAY G \ Gamma, propagation constant DIM[ 24 ] ARRAY GD \ Gamma*d DIM[ 6,2,2] ARRAY XX \ XX: SCAN input array DIM[ 6 , 2 ] ARRAY ST \ 1 susceptor Zs SCALAR R \ ST=SCAN step size 2 layer thickness SCALAR T \ 5Mu

SCALAR U \ 6 e* SCALAR UE + SCALAR UE- SCALAR E + SCALAR E_

DP.REAL DIM[ 24 , 6 ] ARRAY ARE \ ARE and AIM = working copies DP.REAL DIM[ 24 , 6 ] ARRAY BRE \ BRE and BIM = archive copies DP.COMPLEX DIM[ 24 , 4 ] ARRAY AIM DP.COMPLEX DIM[ 24 . 4 ] ARRAY BIM

TOKEN CRE \ CRE and CIM, laminated ARE & AIM for successive steps in COOK TOKEN CIM

DIM[ 24 , 2 ] STRING.ARRAY ID

DIM[ 24 . 2 ] STRINGARRAY WH

DIM[ 5 , 50 ] STRINGARRAY TWO.LABEL

DIM[ 24 , 50 ] STRINGARRAY NAME \ user LAYER names

DIM[ 24 , 50 ] STRINGARRAY COOK.CONDITION \ describes a COOK step condition

2 STRING SUD1

2 STRING SUD2

50 STRING FNAME \ file name for REPORT.FIL 0 STRING SCAN.LABEL 0 STRING SCAN.LABELHEAD 0 STRING REM 5 STRING Z1 5 STRING Z2 5 STRING Y1 15 STRING Y2

TOKEN EG

TOKEN Z

TOKEN QG

TOKEN Zl

TOKEN GZ

TOKEN QM

TOKEN RR

TOKEN MM

TOKEN LL

TOKEN TWO

TOKEN PAS \ % A for [ Each layer , 13 {= scan step #}]

TOKEN XAXIS

TOKEN OVEN.DATA

TOKEN Z.COOK

TOKEN Q.COOK

FAST.VIDEO.PLOTS.OFF

RAD

1 1 4 78 WINDOW {TOP}

VUPORT VU1 .0 .0 VUPORT.ORIG .333 .57 VUPORT.SIZE VUPORT VU2 .333 .0 VUPORT.ORIG .333 .57 VUPORT.SIZE VUPORT VU3 .667 .0 VUPORT.ORIG .333 .57 VUPORT.SIZE VUPORT VU1D .0 .58 VUPORT.ORIG .333 .20 VUPORT.SIZE VUPORT VU2D .333 .58 VUPORT.ORIG .333 .20 VUPORT.SIZE VUPORT VU3D .667 .58 VUPORT.ORIG .333 .20 VUPORT.SIZE VUPORT VU.HP .0 0. VUPORT.ORIG 1.0 1.0 VUPORT.SIZE

VUPORT VU1.HP .0 .03 VUPORT.ORIG .30 .65 VUPORT.SIZE VUPORT VU2.HP .34 .03 VUPORT.ORIG .30 .65 VUPORT.SIZE VUPORT VU3.HP .68 .03 VUPORT.ORIG .30 .65 VUPORT.SIZE

VUPORT VU1D.HP .0 .70 VUPORT.ORIG .30 .18 VUPORT.SIZE VUPORT VU2D.HP .34 .70 VUPORT.ORIG .30 .18 VUPORT.SIZE VUPORT VU3D.HP .68 .70 VUPORT.ORIG .30 .18 VUPORT.SIZE VUPORT TOP.HP .0 .90 VUPORT.ORIG .98 .10 VUPORT.SIZE

: SQ DUP * ;

: GDS

GRAPHICS.DISPLAY AXIS.DEFAULTS CURSOR.OFF ;

: ND

NORMAL DISPLAY COLOR.ON INTEN.OFF ;

: FF RX.FORMAT ;

: NC NORMALCOORDS : WC WORLD.COORDS ;

: ORIG

NC .05 .05 POSITION WC CURSOR.OFF ;

: FAST

50 MAXL := 10 MINL := 10 NWL : = ;

: NORMAL

200 MAXL := 20 MINL : = 50 NWL := ;

: ACCURATE

500 MAXL := 20 MINL := 100 NWL := ;

: PLOTTER.OFF 0 COLOR ;

: CAPS.LOCKON \ Kevin at ASYST, 11/28/89

0 DEF.SEG

417H PEEK

#>MASK

64,

OR

MASK>#

417H POKE ; : E.CHECK

PA []SUM RA + TA + RB + TB + DUP 100. - ABS 2. >

IF BELL -1 2 FF CR ." WARNING!" CR ." Total Energy = " ? ." %"

THEN DUP EMAX MAX EMAX := EMIN MIN EMIN : = ;

: MENU.PLOT

CR ." Oven"

CR .^* Variability:"

CR ." OVEN.SCAN"

CR ." OVEN.SCAN.HP^*

TYPE MENU1.PSP

E.CHECK TEXT.CURSOR.ON ;

: GRO

14 CURSOR.COLOR CURSOR.ON

GRAPHICS.READOUT

NC .5 .5 POSITION

.55 .40 READOUT > POSITION WC 14 COLOR ;

: SCREEN.SET.UP

GDS 0 VUPORT.COLOR 7 AXIS.COLOR 7 LABELCOLOR VUPORT.CLEAR

VERTICAL UNEAR GRID.OFF 0. YM WORLD.SET

HORIZONTAL UNEAR GRID.OFF 0. ZM WORLD.SET LABELSCALE.OFF XY.AXIS.PLOT

7 COLOR NC

.35 .07 POSITION " Distance from Top, cm" LABEL

.05 .03 POSITION "DATE " " "CAT REM "CAT LABEL

.42 .97 POSITION " Heating Profile" LABEL 270 LABELDIR .02 .72 POSITION " Degrees C / Sec" LABEL

0 LABELDIR WC OUTUNE ;

: HP.SET.UP

VU.HP HP7475 PLOTTER.DEFAULTS

AXIS.DEFAULTS 1 AXIS.COLOR 1 LABELCOLOR

VERTICAL GRID.OFF 0. YM WORLD.SET

HORIZONTAL GRID.OFF 0. ZM WORLD.SET LABELSCALE.OFF

1 COLOR XY.AXIS.PLOT NC

.4 .08 POSITION " Distance from Top, cm" LABEL .5 .99 POSITION " Heating Profile" LABEL 90 LABELDIR 90 CHAR.DIR .05 .45 POSITION " Degrees C / Sec" LABEL o LABELDIR 0 CHAR.DIR -1 2 FF .01 .04 POSITION REM LABEL .01 .008 POSITION "DATE " Illumination = " "CAT PB "." "CAT " From Below" "CAT LABEL WC ;

: Q.SUB

Z SUB[ 1 , 12 LNG [ L ] - ] QG SUB[ 1 , 12 LNG [ L ] - ] ;

: PLOT

-1 2 FF

QG SUB[ 1 , 12 LNG [ L ] - ] []MAX YM : =

SCREEN.SET.UP WC 270 LABELDIR 4 COLOR L 1 + 1 DO I 1 = IF ARE [ I , 2 ] 0. POSITION ARE [ I , 2 ] AYMAX DRAW.TO

ARE [ I , 2 ] 2. / ELSE ARE XSECT[ ! , 2 ] SUB[ 1 , 1] []SUM 0. POSITION

ARE XSECTf ! .2 ] SUB[ 1 , 1] []SUM AYMAX DRAW.TO

ARE XSECT[ ! , 2 ] SUB[ 1 , I 1 - ] []SUM

ARE [ I , 2 ] 2. / + THEN AYMAX POSITION I "." NAME ^*[ I ] "CAT LABEL LOOP

0 LABELDIR 15 COLOR Q.SUB SWAP ZS + SWAP XY.DATA.PLOT ORIG MENU.PLOT ;

: PLOT.HP

-12 FF

QG SUB[ 1 , 12 LNG [ L ] - ] []MAX YM : =

HP.SET.UP 90 LABELDIR 90 CHAR.DIR 6 COLOR

L 1 + 1 DO

11 =

IF ARE [ I .2 ] 0. POSITION ARE [ I , 2 ] AYMAX DRAW.TO

ARE [ I .2 ] 2. / ELSE ARE XSECTf ! , 2 ] SUB[ 1 , 1] []SUM 0. POSITION

ARE XSECTf ! , 2 ] SUB[ 1.1 ] []SUM AYMAX DRAW.TO

ARE XSECT[ ! , 2 ] SUB[ 1 , 11 -] []SUM

ARE [ I , 2 ] 2. / + THEN AYMAX 5. / POSITION I "." NAME "[ I ] "CAT LABEL LOOP " VS 10" GRAPH.COMMAND

0 LABELDIR 0 CHAR.DIR Q.SUB SWAP ZS + SWAP 1 COLOR XY.DATA.PLOT

" VS 40" GRAPH.COMMAND

PLOTTER.OFF PLOT ;

: E.PLOT

Z AYMAX EG []MAX / EG *

WC 14 COLOR XY.DATA.PLOT

NC .55 .02 POSITION " | E |max. V/cm =" LABEL

.83 .02 POSITION -1 2 SCI.FORMAT EG []MAX "." LABEL

ORIG -1 4 FF WC ;

: BOX.KERNEL

N1 1 =

IF AIM [ 1 , 3 ] ZG - AIM [ 1 , 3 ] ZG + /

ELSE AIM [ N1 , 3 ] AIM [ N1 1 - , 3 ] - AIM [ N1 , 3 ] AIM [ N1 1 - , 3 ] + /

THEN DUP R : = 1.D + T : =

GD [ N1 ] DUP EXP T / DUP BX [ N1 , 1 . 1 ] := R * BX [ N1 . 2 . 1 ] : =

NEG EXP T / DUP BX [ N1 , 2 , 2 ] : = R * BX [ N1 , 1 , 2 ] : = ARE [ N1 , 1 ] FIX 4 = ARE [ N1 , 1 ] FIX 5 = OR \ ie susceptors IF

N1 1 =

IF AIM [ N1 . 3 ] ZG * T / AIM [ N1 , 4 ] / AIM [ N1 , 3 ] ZG + / U : =

ELSE AIM [ N1 . 3 ] AIM [ N1 1 - . 3 ] * T / AIM [ N1 , 4 ] / AIM [ N1 , 3 ] AIM [ N1 1 - . 3 ] + / U : =

THEN GD [ N1 ] DUP EXP U * UE+ : = NEG EXP U * UE- : = BX XSECT[ N1 , ! , ! ]

COMPLEX MATRIX[ UE+ , UE- ; UE+ NEG , UE- NEG ] + BX XSECT[ N1 , ! , ! ] : = THEN ;

:BOX

DP.COMPLEX

KC SQ W CO / SQ AIM XSECTf ! , 1 ] * AIM XSECT[ ! , 2 ] * - SQRT DUP G := ARE XSECT[ ! , 2 ] * GD := \ Gamma and gamma*d 1.D Z=0 + IY W * AIM XSECTf ! , 2 ] * MUO * G / AIM XSECTf ! , 3 ] : L 2 + 1 DO I N1 := BOX.KERNEL LOOP;

: CHANGE.BOX

KC SQ W CO / SQ AIM [ N , 1 ] * AIM [ N , 2 ] * - SQRT

DUP G [ N ] := ARE [ N .2 ] * GD [ N ] : =

1.D Z=0 + IY W * AIM [ N , 2 ] * MUO * G [ N ] / AIM [ N , 3 ] : =

ARE [ N , 1 ] FIX 4 = ARE [ N , 1 ] FIX 5 = OR \ susceptors?

IF 1

ELSE 2

THEN N + N DO

IN1 := BOX.KERNEL

LOOP;

: CALC.BC

BXXSECT[ 1 , ! , ! ] AA: =

L 2 + 2 DO \ Calc A matrix, for ABOVE and BELOW -Step #1 AA BX XSECTf I, ! , !] << * | + >> AA: = LOOP -1.D \ From ABOVE, Step #2

AA [ 1 , 1 ] NEG GM AA [ 1 , 2 ] * - / DUP DUP CA [ L 2 + ] : = ZMAG SQ 100. * 1. PB - * TA := GM * BA [ L 2 + ] : = 0.D TA : =

COMPLEX MATRIX[ CA [ L 2 + ] ; BA [ L 2 + ] ] CM : = 1 L1 DO \ From ABOVE, Step #3 BX XSECT[ I , ! . ! ] CM < < * | + > > CM : = CM [ 1 . 1 ] CA [ I ] := CM [ 2 . 1 ] BA [ I ] : = -1 +LOOP

BA [ 1 ] ZMAG SQ 100. * 1. PB - * RA : = 1 PB - SQRT E * DUP CA * CA := BA * BA : =

AA [ 1 , 2 ] AA [ 1 , 1 ] NEG / DUP CB [ L 2 + ] := \ From BELOW. Step #2 ZMAG SQ 100. * PB * RB := 1.D BB [ L2 + ] : = COMPLEX MATRIX! CB [ L 2 + ] ; BB [ L 2 + ] ] CM : = 1 L1 DO \ From BELOW, Step #3

BX XSECTI I , ! . ! ] CM < < * | + > > CM : =

CM [ 1 . 1 ] CB [ I ] := CM [ 2 . 1 ] BB [ I ] : = -1 +LOOP BB [ 1 ] ZMAG SQ 100. * PB * TB := PB SQRT E * DUP CB * CB := BB * BB := ;

: CALCZAXIS

0 ZZERO := 0 LNG := \ Harrington eq 2-15

AIM XSECTf ! , 1 ] AIM XSECT[ ! , 2 ] * E0 * MUO * SQRT ZREAL F0 * ARE XSECT[ ! , 2 ] * SUB[ 1 . L ] NWL * FIX LNG SUB[ 1 , L ] : = L1 1 DO I 1 = NOT IF ZZERO J I 1 - ] ARE [ I 1 - , 2 ] + ZZERO f I ] : =

THEN

ARE [ I , 1 ] FIX 4 = ARE [ I , 1 ] FIX 5 = OR \ ie susceptors

IF 5LNG [I] : =

ELSE LNG [ I ] MAXL >

IF MAXL LNG [I] : =

THEN LNG f I ] MINL < IF MINL LNG [I] :- THEN

THEN LOOP

LNG []SUM 12 : =

12 FLOAT REAL RAMP BECOMES > Z 12 FLOAT REAL RAMP BECOMES > QG 12 FLOAT DP.REAL RAMP BECOMES > EG ;

: CALC.QABOVE 0QA:= 0PA: = DP.REAL L11 DO I 1 =

IF 1 M: =

ELSE LNG SUBf 1 , 11 -] f]SUM 1 + M : =

THEN LNG [ I ] FLOAT DUP DUP 14 := RAMP .5D - SWAP / ARE [ I , 2 ] DUP REVf 1 ] BECOMES> Zl ZZERO f I ] + Z SUBf M , 14 ] : = CA [ I 1 + ] E+ := BA [ I 1 + ] E_ := \ See Lentz 12/3/87, eq 7 ARE [ 1 , 1 ] FIX 4 = NOT \ not a Susceptor? IF Zl G [ I ] * DUP BECOMES> GZ EXP E+ * GZ NEG EXP E_ * + ZMAG DUP EG SUB[ M , 14 ] : =

SQ W * EO * WG * AIM [ I , 1 ] ZIMAG ABS * QG SUB[ M , 14 ] : = 1 MFLAG =

IF GZ EXP E+ * GZ NEG EXP E_ * - ZMAG SQ G [ I ] ZMAG SQ * ZG ZO = NOT IF EG SUB[ M , 14 ] SQ DPI AWG / SQ * + THEN AIM [ I , 2 ] ZIMAG ABS * WG * W / MUO / AIM [ 1 , 2 ] ZMAG SQ / QG SUBf M , 14 ] + QG SUB[ M .14 ] : = THEN THEN LOOP ;

: CALC.Q.BELOW DP.REAL L11 DO I 1 =

IF 1 M: =

ELSE LNG SUBf 1 ,11 -] []SUM 1 + M : = THEN LNG [ I ] FLOAT DUP DUP 14 : = RAMP .5D - SWAP / ARE [ I , 2 ] * BECOMES > Zl CBf l 1 + ]E+ := BB[I 1 + ]E_: = ARE [ I , 1 ] FIX 4 = \ Susceptor heating IF CA [ I ] BA [ I ] + ZMAG

CB [ I ] BB [ I ] + ZMAG + EG SUB[ M , 14 ] : =

CA [ I ] BA [ I ] + ZMAG SQ CB [ I ] BB [ I ] + ZMAG SQ + WG *

AIM [ I .4 ] ZREAL DUP SQ AIM [ I .4 ] ZIMAG SQ + / * DUP 100. * P0 / DUP PA [ I ] := PAS f I , 13 ] : = 4.184 / .5 / DUP QA f I ] : = QG SUBf M , 14 ] : = ELSE Zl G f I ] * DUP BECOMES > GZ EXP E+ * GZ NEG EXP E_ * + ZMAG REVf 1 ] DUP EG SUBf M , 14 ] + EG SUBf M , 14 ] : = SQ W * EO * WG * AIM [ I , 1 ] ZIMAG ABS * QG SUBf M , 14 ] + QG SUBf M , 14 ] : = 1 MFLAG = IF GZ EXP E+ * GZ NEG EXP E_ * - ZMAG SQ G [ I ] ZMAG SQ *

ZG ZO = NOT IF GZ EXP E+ *

GZ NEG EXP E_ * + ZMAG SQ DPI AWG / SQ * + THEN AIM [ I , 2 ] ZIMAG ABS * WG * W / MUO / AIM [ I . 2 ] ZMAG SQ / REV[ 1 ] QG SUB[ M , 14 ] + QG SUB[ M . 14 ] : = THEN QG SUBf M . 14 ] 4.186 / CPR f I ] / DUP QG SUBf M , 14 ] : = MEAN QA f I ] : = ARE ( I . 1 ] FIX 2 = IF QA f I ] QG SUBf M , 14 ] : = THEN THEN

ARE f 1 , 1 ] 3 < \ Dielectrics and metal IF QA [ I ] ARE f I , 2 ] * 4.184 * CPR f I ] * 100. * PO /

DUP PA f I ] := PAS f I , 13 ] : = THEN LOOP QG []MAX QMAX := ;

: CALC.Q

CALC.BC CALC.Q.ABOVE CALC.Q.BELOW ; : PRE.CALC.Q

7 FOREGROUND

CR ." Calculating .."

0K3:= 1.13: =

REAL

L1 RAMP FLOAT LI RAMP FLOAT UMINATE ROT.INDICES.RIGHT BECOMES> PAS 0. PAS : =

ARE XSECTf ! , 3 ] ARE XSECT[ ! , 4 ] * CPR := \ Cp*rho

ARE XSECT[ ! , 2 ] SUB[ 1 , L ] []SUM ZM := \ Zmax

E SQ PI * AWG * BWG * LBDA / W / MUO / PO : = \ incident power

BOX CALC.ZAXIS CALC.Q

Z[]MAX500. /ZS:= PLOT;

: RESTORE

BRE ARE := BIM AIM: =

0 BECOMES> TWO

0 BECOMES > LL

0 BECOMES > MM

0 BECOMES > RR

PRE.CALC.Q TEXT.CURSOR.ON ;

:MAG

INTEN.ON

CR ." To change mu' and mu" enter the layer #, "

CR ." otherwise hit < ENTER >." CR ." MAGNETIC layer # = " #INPUT

IFN: =

ARE [ N , 1 ] FIX DUP DUP 3 = 4 = OR 5 = OR\ look for Susceps. air

IF CR BELL WH "f N ] TYPE ." layers cant be magnetic." MYSELF ELSE CR CR ." Layer = " N . CR ." mu' = " #INPUT

CR ." mu" = " #INPUT Z=X+IY CONJ AIM f N , 2 ] : = CR MYSELF THEN THEN INTEN.OFF ;

: INPUT

7 FOREGROUND TEXT.CURSOR.ON -1 1 FF

CR ." Layer " N . N 1 = IF ." TOP YER" THEN N L = IF ." BOTTOM UYER" THEN

CR ." e' = " #INPUT IF

CR ." e" = " #INPUT ABS Z=X+IY CONJ AIM f N , 1 ] : = 1. ARE [ N , 1 ] : = CR ." Layer thickness, cm = " #INPUT ARE f N , 2 ] : = CR ." Heat capacity, cal/g = " #INPUT ARE f N , 3 ] : = CR ." Density, g/ml = " #INPUT ARE [ N , 4 ] : =

CR ." <-lnput Layer Name, MAX 40 Characters->" CR "INPUT NAME "f N ] ": = CR " D" WH "f N ] ": = ELSE

15 FOREGROUND INTEN.ON CAPS.LOCKON CR ." Layer type: A, M, or S ? " "INPUT WH "f N ] ": = INTEN.OFF 7 FOREGROUND CR WH "f N ] " A" " = IF CR ." Layer" N . .^* = Air" " Air" NAME "[ N ] ":= 3. ARE [ N . 1 ] : =

CR ." Thickness, cm = " #INPUT ARE [ N . 2 ] : =

.24 ARE [ N , 3 ] := 1.3E-3 ARE [ N . 4 ] : =

1. 1E-10 Z=X+IY CONJ DUP AIM [ N , 1 ] := AIM [ N . 2 ] : = CR THEN

WH "[ N ] " M" "= IF CR .^* Layer" N . ." = Metal" 2. ARE [ N , 1 ] : =

2.5E-5 ARE [ N , 2 ] := 1E4 ARE [ N . 3 ] := 2.7 ARE [ N , 4 ] : =

1.0D -3.5E5 EO / W / Z=X+IY AIM [ N , 1 ] := 1. AIM [ N . 2 ] : =

" Metal" NAME "[ N ] ":= CR THEN

WH "[ N ] " MM" "= IF CR ." Layer N . ." = Metal" 2. ARE [ N . 1 ] :=

CR ." Thickness, cm = " #INPUT ARE [ N , 2 ] : =

CR ." Conductivity. 1/ohm cm = " #INPUT SIGMA : =

1.0D SIGMA NEG EO / W / Z=X+IY AIM [ N , 1 ] : =

2.7 ARE [ N , 4 ] := 1. AIM [ N , 2 ] := .5 ARE [ N , 3 ] : =

" Metal" NAME "[ N ] ":= CR THEN

WH "[ N ] " S" "= IF CR ." Layer" N . ." = Susceptor" 4. ARE [ N , 1 ] : =

1E-7 ARE [ N , 2 ] := 1. ARE [ N . 3 ] := 1. ARE [ N , 4 ] : =

1.D AIM [ N . 1 ] : = 1.D AIM [ N . 2 ] : =

CR ." Rs (Real), Ohm/sq = " #INPUT

CR ." Reactance (Imaginary Part, NEGATIVE for broken susceptors) = "

#INPUT Z=X+IY AIM f N , 4 ] := " Susceptor" NAME "[ N ] ":= CR THEN THEN STACK.CLEAR ;

: RM

7 FOREGROUND

CR .* < -65 CHARACTERS-

CR ." Input sample ID & remarks (65 CHAR max)." CR "INPUT REM ": = CR CAPS.LOCKON ;

:HEAD

TYPE OHEAD.PSP ;

:GO

CAPS.LOCKON STACK.RESET TRAP.UNDERFLOW.ON TEXT.CURSOR.ON

" "COOK.CONDITION": =

2.D DPI * F0 * W := CO F0 / LO := " A" WH ":= 113 := 0 FFUG : =

0. Z=X+I0 AIM := 1. AIM XSECTf ! , 1 ] := 1. AIM XSECTf ! .2 ] := 0. ZZERO

0. PA := 0. QA := 0. CM := 0. XX := 1. GD := 0. E+ := 0. E_ := 1. G : =

0. ST := 0. NS := 0. BB := 0. BA := 0. CA := 0. CB := 0. AA : =

0. BX := 1. CPR := 0. ARE := 0. RF2 := 0 QMAX := 100. DUP EMAX := EMIN

C []RAMP C SUBf 16.34 ] 1 + C SUBf 16 , 34 ] : =

1 BACKGROUND 15 FOREGROUND ND COLOR.ON

CR VERSION TYPE CR

INTEN.ON TYPE GO-OV.PSP

14 FOREGROUND 5 BACKGROUND CR ." Set CAPS LOCK to ON."

CR CR 1 BACKGROUND 7 FOREGROUND INTEN.OFF

CR ." Do you want to consider magnetic materials (Y/N) ? " "INPUT ID "f 1 ] ": =

CR CR ID "f 1 ] " Y" "= ID "[ 1 ] " y" "= OR IF ." Magnetic Properties ON." 1 MFUG := BELL

ELSE ." Magnetic Properties OFF." 1.D AIM XSECTf ! , 2 ] := 0 MFUG : =

THEN 700 MSEC.DEUY

ID "[ 1 ] " y" "= ID "[ 1 ] " n" "= OR

0 BACKGROUND 7 FOREGROUND SCREEN.CLEAR

IF BELL 12 BACKGROUND CR ." Set CAPS LOCK to ON."

^* 0 BACKGROUND COLOR.ON INTEN.OFF THEN ZO DUP AIM XSECT[ ! , 3 ] := ZG := LO LBDA : =

1.D AWG := 2.D BWG := 0.D KC := AWG BWG * 2.D / WG : = HEAD CR CR ." Distribution of incident power (above vs. below):" CR ." All power from ABOVE = > enter 0"

CR ." Equal power from ABOVE and BELOW = > enter .5" CR ." All power from BELOW « > enter 1"

CR ." Fraction Incident Power from BELOW = " #INPUT PB := CR PB 1. >

IF BELL CR CR ." Fraction power from below cant be > 1.0." MYSELF THEN

TYPE GO-OV2.PSP

CR CR ." # of PRODUCT/PACKAGE Layers = " #INPUT 2 + L := l L + Ll : = CR CR ." Distance from metal floor to bottom of glass shelf, cm = " #INPUT ARE [ L . 2 ] := 3. ARE [ L , 1 ] := 1. ARE [ L , 3 ] : = 1. ARE [ L , 4 ] := 1.D AIM [ L . 1 ] := " Air" NAME "[ L ] ":= \ AIR = #L 1.D AIM [ L , 2 ] : =

CR CR ." Enter properties of glass shelf:" \ SHELF = layer #(L-1)

CR ." e' = " #INPUT

CR ." e" = " #INPUT Z=X+IY CONJ AIM [ L 1 - , 1 ] : = 1.D AIM [ L 1 - , 2 ] := 1. ARE [ L 1 - , 1 ] := " D" WH "[ L 1 - ] ": = CR .' Shelf thickness, cm = " #INPUT ARE [ L 1 - , 2 ] : = " Shelf NAME "f L 1 - ] ": = 2.6 ARE f L 1 - , 4 ] := .22 ARE [ L 1 - , 3 ] : = CR RM

CR ." For Air, Metal, or Susceptor layers, answer the request for e' with " CR ." < ENTER > and follow instructions." CR CR L1 2 - 1 DO

I N : = INPUT LOOP MFUG 1 = IF MAG THEN

ARE BRE : = AIM BIM := PRE.CALC.Q ;

: CHANGE

ND 7 FOREGROUND

CR ." Which layer do you want to change? " #INPUT N : = INPUT MFUG 1

IF MAG

THEN CR CR REM TYPE

CR CR .^* Change the remark (Y/N) ? " CAPS.LOCKON "INPUT ^* Y" "=

IF RM

THEN STACK.CLEAR ARE BRE : = AIM BIM : = PRE.CALC.Q ;

: REPORT ND 7 FOREGROUND

HEAD -12 FF

CR ." Eo =" E .." V/cm Wavelength in air =" LBDA .." cm^*

CR CR ." Fraction Power From ABOVE =" 1. PB - .

CR .^* | /|\ % Reflected from above =" RA .

CR ." \|/ | % Transmitted from below =^* TB .

CR."::TOP::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::"

CR ." Avg H-rate % Power"

CR ." Layer e* mu* Cp Rho D, cm deg C/sec Absorbed"

L12 - 1 DO

CR -10 FF I .62 FF ARE [ I .1 ] FIX

CASE

1 OF

AIM [ I .1 ] . AIM [ I , 2 ] . ARE [ I ..3 ] . ARE [1,4].

ARE [1,2].." "

ENDOF

2 OF

." Metal ENDOF

3 OF

."Air " ARE [ I , 2 ] .." "

ENDOF

4 OF

71 FF ." Susceptor, Zs =" AIM [ I , 4 ] .." Ohm/sq

ENDOF ENDCASE ." " 83 FF QA [ I ] .." " 62 FF PA [ I ] . LOOP

CR .' -GUSS SHELF-

5 2 FF

CR ." Shelf, e* = " AIM f L 1 - , 1 ] . ." " ." d, cm = "

4 2 FF ARE [ L 1 - , 2 ] . ."

8 3 FF QA [ L 1 - ] . ." " 6 2 FF PA [ L 1 - ] .

CR ." "

4 2 FF ARE [ L , 2 ]

CR ." Air Space, d = " . ." cm / | \ | % Reflected from Below ="

6 2 FF RB .

CR ." | \ | / % Transmitted from Above =" TA .

CR ." Fraction Power From BELOW ="

4 2 FF PB . PA []SUM RA + TA + RB + TB +

% Energy SUM =" 6 2 FF . CR ." WMETAL FLOOR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" CR .' ^■

CR ." Report: -> Printer, REPORT.PRN -> Disk File, REPORT.FIL"

CR ." New Case: GO Change a Layer: CHANGE Plot: PLOT, PLOT.HP"

CR ." Scan: Q.SCAN, ASCAN, TWO.WAY.SCAN, and COOK" ;

: REPORT.PRN

ND OUT > PRINTER CONSOLE.OFF REPORT CR

CR TIME ." " .DATE

CR REM TYPE

CONSOLE REPORT ;

: REPORT.FIL 0 FFUG =

IF ND 7 FOREGROUND

1 FFUG := DIR C:*.OVN CR CR

." Enter the desired filename, without extension. This procedure will append"

CR ." to existing files. The resulting files are in ASCII format and will"

CR ." have an *.OVN extension. You can print them later from DOS."

CR CR " C:" "INPUT "CAT " .OVN" "CAT "DUP FNAME ": = ELSE FNAME

THEN DEFER > OUT>RLE CONSOLE.OFF REPORT CR CFFUG 1 =

IF CR COOK.CONDITION "[ N ] TYPE THEN CR REM TYPE CR .TIME ." " .DATE

CR ." "

CR CR OUT > FILE. CLOSE CONSOLE REPORT ;

: SLH

NAME "[ N ] " " "CAT "SWAP "CAT SCAN.UBELHEAD ":= ;

: JUMP

ARE [ N , 1 ] FIX

CASE

1 OF \ dielectric ID "[ N ] " D" "=

IF -1 2 FF 1 MSFUG =

IF XX [ 5 , 1 , 16 ] ST [ 5 , 16 ] K3 * - DUP DUP AIM [ N , 2 ] : = ZMAG XAXIS [ 13 ] : = CR " mu =" "DUP TYPE SLH CR . AIM [ N , 2 ] "." SCAN.UBEL ": = ELSE XX [ 6 , 1 , 16 ] ST [ 6 . 16 ] K3 * - DUP DUP AIM [ N , 1 ] : = ZMAG XAXIS [ 13 ] : = CR " e* =" "DUP TYPE SLH CR . AIM [ N , 1 ] "." SCAN.UBEL ": = THEN ELSE -1 3 FF XX [ 2 , 1 , 16 ] ST f 2 , 16 ] ZREAL K3 * - DUP ARE [ N . 2 ] : = ^* XAXIS [ I3 ] : =

CR " Thickness =" "DUP TYPE SLH CR ARE [ N , 2 ] ? "." SCAN.UBEL ": = THEN ENDOF

3 OF \ AIR

-1 3 FF XX [ 2 , 1 . I6 ] ST f 2 , 16 ] ZREAL K3 * - DUP ARE f N . 2 ] : = XAXIS [ I3 ] : =

CR " Thickness =" "DUP TYPE SLH CR ARE f N . 2 ] ? "." SCAN.UBEL ": = ENDOF

2 OF \ don scan metal ENDOF ENDCASE CHANGE.BOX ;

: MENU.SCAN

TYPE MENU2.PSP

-1 1 FF

CR ." Max = " EMAX .

CR ." Min = " EMIN . TEXT.CURSOR.ON ;

: SCAN.SET.UP 7 FOREGROUND TEXT.CURSOR.ON 0 BECOMES > QM CR CR ." SCAN " ARE { N , 1 ] FIX CASE

1 OF \ dielectric CR ." Property to be scanned:" CR ." Layer Thickness = > T CR ." Layer Dielectric = > D" CR CR ." Choose T or D: " "INPUT ID "[ N ] ": = ID "[ N ] " T" "=

IF CR CR " Thickness" "DUP TYPE SLH CR ." Max Thickness, cm = " #INPUT DUP DUP XX [2, 1.16] := ARE[N,2] : =

CR ." Min Thickness, cm = " #INPUT DUP XX [ 2.2.16 ] : = CR ." # of Steps = " #INPUT NS [ 16 ] := - NS [ 16 ] / ST [ 2 , 16 ] : = THEN

ID "[ N ] " D" "= IF CR CR ." Layer Dielectric"

CR ." Scan Electrical or Magnetic Properties?" CR ." Electrical = > E" CR ." Magnetic = > M" CR "INPUT " M" "=

IF 1 DUP MSFUG := MFUG := " Mu*" SLH CR ." MAX mu' = " #INPUT CR ." mu" = " #INPUT Z=X+IY CONJ DUP DUP

XX [5, 1 ,16] := AIM [N.2] : = CR CR ." MIN mu' = " #INPUT

CR ." mu" - " #INPUT Z=X+IY CONJ DUP XX [ 5 , 2 , 16 ] : = CR CR ." # of Steps = " #INPUT NS [ 16 ] : = -NS [16] / ST [ 5.16 ] : = ELSE0MSFUG:= " e*" SLH CR ." MAX e' = " #INPUT CR ." e" = " #INPUT Z=X + IY CONJ DUP DUP XX [6, 1.16] := AIM [N , 1 ] : = CR CR ." MIN e' = " #INPUT

CR .^* e" = " #INPUT Z=X+IY CONJ DUP XX [ 6 , 2 , 16 ] CR CR ." # of Steps = " #INPUT NS [ 16 ] : = -NS [16] /ST [6,16] : = THEN THEN ENDOF 3 OF \ AIR

" Thickness" "DUP TYPE SLH CR ." Max Thickness, cm = ^* #INPUT DUP DUP XX [2, 1 ,16] := ARE[N,2] : =

CR ." Min Thickness, cm = " #INPUT DUP XX [ 2 , 2 , 16 ] : = CR ." # of Steps = " #INPUT NS [ 16 ] := - NS [ 16 ] / ST f 2 , 16 ] : = ENDOF 2 OF \ metal

CR BELL ." Cant SCAN metal Layers." ENDOF ENDCASE ;

: SCAN.NO.PLOT

STACK.RESET ND 7 FOREGROUND TEXT.CURSOR.ON

0 MSFUG := 0. XX := 0. ST := 100. DUP EMAX := EMIN : =

CR ." SCAN Layer #" #INPUT N : = CR

CR REM TYPE CR CR ." Change the remark (Y/N) ? " CAPS.LOCKON "INPUT " Y" "=

IF RM

THEN 1 I6 := SCAN.SET.UP

CR ." Calculating . . "

REAL

NS [ 1 ] 1 + 0 DO

L1 RAMP FLOAT

I 0 >

IF UMINATE

THEN

LOOP

ROT.INDICES.RIGHT BECOMES > PAS 0. PAS : =

ARE XSECT[ ! , 2 ] SUB[ 1 , L ] []SUM DUP ZM := 500. / ZS : =

NS [ 1 ] 1. + RAMP BECOMES > XAXIS

1 NS [ 1 ] + 0 DO

I DUP K3 := 1 + 13 := JUMP

CALCZAXIS CALC.Q QMAX QM CATENATE BECOMES > QM E.CHECK LOOP MENU.SCAN 1 16 := ;

: OVEN.JUMP

LOAD.OVERUY DATAFILE.SOV

OVEN.DATA [ K3 , 1 ] ARE [ L , 2 ] := \ thickness of air space

L N := CHANGE.BOX

OVEN.DATA [ K3 , 2 ] ARE [ L 1 - , 2 ] : = \ SHELF thickness and e*

OVEN.DATA [ K3 , 3 ] OVEN.DATA [ K3 . 4 ] Z=X+IY CONJ AIM [ L 1 - , 1 ] : = L 1 - N : = CHANGE.BOX ;

: OVEN.SCAN

0 BECOMES > QM

PLOT NC .75 .93 POSITION 15 COLOR " Your Oven" UBEL LOAD.OVERUY DATAFILE.SOV RLE.OPEN OVENDATADAT

1 SUBRLE RLE >UNNAMED.ARRAY BECOMES > OVEN.DATA RLE.CONTENTS DROP 1 + 1 DO

I K3 := OVEN. JUMP CALCZAXIS CALC.Q QMAX QM CATENATE BECOMES > QM E.CHECK WC C [ I 8 + ] COLOR Q.SUB SWAP I FLOAT ZS * + SWAP XY.DATA.PLOT NC .75 .93 I .03 * - POSITION I COMMENT > UBEL

LOOP

RLE.CLOSE

ORIG MENU.PLOT

QM []MAX YMOS := ;

: OVEN.SCAN.HP RESTORE

LOAD.OVERUY DATAFILE.SOV RLE.OPEN OVENDATADAT

1 SUBFILE FILE>UNNAMED.ARRAY BECOMES > OVEN.DATA RLE.CONTENTS DROP 8 > IF ND INTEN.ON BELL BELL

CR ." Hold < ENTER > down until it beeps." INTEN.OFF THEN -1 2 FF YMOS YM : = HP.SET.UP " VS 10" GRAPH.COMMAND

" VS 40" GRAPH.COMMAND NC .75 .93 POSITION " Your Oven" UBEL 90 UBELDIR 90 CHAR.DIR 6 COLOR WC L 1 + 1 DO I 1 = IF ARE [ 1 , 2 ] 0. POSITION ARE [ I . 2 ] AYMAX DRAW.TO

ARE f I . 2 ] 2. / AYMAX 5. / POSITION ELSE ARE XSECTf ! . 2 ] SUBf 1 , 1 ] []SUM 0. POSITION ARE XSECT[ 1 . 2 ] SUB[ 1 . 1 ] []SUM AYMAX DRAW.TO ARE XSECTf ! , 2 ] SUBf 1 , I 1 - ] []SUM ARE [ I , 2 ] 2. / + AYMAX 5. / POSITION THEN I "." NAME "[ I ] "CAT UBEL LOOP 0 UBELDIR 0 CHAR.DIR RLE.CONTENTS DROP 1 + 1 DO I K3 : = OVEN.JUMP CALCZAXIS CALC.Q " VS 10" GRAPH.COMMAND WC I 1 + COLOR

Q.SUB SWAP I FLOAT ZS * + SWAP XY.DATA.PLOT " VS 40" GRAPH.COMMAND NC .75 .93 I .03 * - POSITION I COMMENT> UBEL LOOP

PLOTTER.OFF ND FILE.CLOSE MENU.PLOT OVEN.SCAN ;

Q.SCAN SCAN.NO.PLOT QM []MAX YM : = SCREEN.SET.UP 1 NS f 1 ] + 0 DO I K3 := JUMP CALCZAXIS CALC.Q

C [ I 1 + ] COLOR Q.SUB SWAP I 1 + FLOAT ZS * + SWAP XY.DATA.PLOT LOOP ORIG MENU.SCAN 1 I6 : = ;

: Q.SCAN. HP NS [ 1 ] 6 >

IF ND INTEN.ON BELL BELL

CR ." Hold < ENTER > down until it beeps." INTEN.OFF

THEN

QM []MAX YM : = HP.SET.UP -1 0 FF NC 1 COLOR

.40 .96 POSITION " Scan Layer #" N "." "CAT " " "CAT NAME "[ N ] "CAT UBEL .70 .93 POSITION SCAN.UBELHEAD UBEL

1 NS f 1 ] + 0 DO

I DUP K3 : = 1 + COLOR JUMP

NC .78 .90 I .03 * - POSITION SCAN.UBEL UBEL WC " VS 10" GRAPH.COMMAND

CALCZAXIS CALC.Q Q.SUB SWAP I 1 + FLOAT ZS * + SWAP -1 0 FF XY.DATA.PLOT " VS 40" GRAPH.COMMAND LOOP

PLOTTER.OFF MENU.SCAN 1 16 : = ;

: A.PLOT GDS 0 VUPORT.COLOR 7 AXIS.COLOR 7 UBELCOLOR VUPORT.CLEAR WC

VERTICAL GRID.ON UBELSCALE.OFF 0. 100. WORLD.SET

HORIZONTAL GRID.ON XAXIS []MIN/MAX WORLD.SET XY.AXIS.PLOT

7 COLOR NC

.40 .07 POSITION SCAN.UBELHEAD "LEN 2 - "LEFT UBEL

-1 O FF

.5 .98 POSITION

" Scan Layer # " N V "CAT " : " "CAT NAME "[ N ] "CAT CENTERED.UBEL

90 UBELDIR 90 CHAR.DIR .015 .35 POSITION " % Power Absorbed" UBEL

0. UBELDIR 0 CHAR.DIR

.05 .03 POSITION "DATE " " "CAT REM "CAT UBEL

L1 1 DO

C [ I ] 8 + COLOR NC .20 .95 I .025 * - POSITION

I '." " "CAT NAME "[ I ] "CAT UBEL

ARE [ I , 1 ] DUP 3 = 5 = OR

IF

ELSE WC XAXIS PAS XSECT[ I , ! ] SUB[ 1 , NS [ 1 ] 1 + ] XY.DATA.PLOT

THEN LOOP 7 COLOR ORIG OUTLINE MENU.SCAN ;

: A.PLOT.HP L 6 >

IF ND INTEN.ON BELL BELL

CR ." Hold < ENTER > down until it beeps." INTEN.OFF

THEN VU.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS WC 6 AXIS.COLOR 6 UBELCOLOR

VERTICAL GRID.ON 0. 100. UBELSCALE.OFF WORLD.SET HORIZONTAL GRID.ON XAXIS [JMIN/MAX WORLD.SET XY.AXIS.PLOT 1 AXIS.COLOR 1 UBELCOLOR

VERTICAL GRID.OFF 0. 100. UBELSCALE.OFF WORLD.SET HORIZONTAL GRID.OFF XAXIS []MIN/MAX WORLD.SET XY.AXIS.PLOT NC 1 COLOR -1 O FF

.50 .99 POSITION

" Scan Layer # " N "." "CAT " : " "CAT NAME "[ N ] "CAT CENTERED.UBEL .18 .955 POSITION ^* Layer" UBEL .45 .955 POSITION " d. cm" UBEL .60 .955 POSITION " e*" UBEL 90 UBELDIR 90 CHAR.DIR .05 .45 POSITION " % Power Absorbed" UBEL 0. UBELDIR 0 CHAR.DIR -1 2 FF

.40 .07 POSITION SCAN.UBELHEAD "LEN 2 - "LEFT UBEL .01 .04 POSITION REM UBEL .01 .008 POSITION "DATE " Illumination = " "CAT PB "." "CAT " From Below" "CAT UBEL L1 1 DO C f I ] COLOR " VS 40" GRAPH.COMMAND NC .18 .95 I .025 * - POSITION I -1 0 FF "." " " "CAT NAME "[ I ] "CAT UBEL 6 3 FF I N = NOT

IF \ THICKNESS, if Air or Dielectric ARE [ I . 1 ] FIX 1 = ARE [ I , 1 ] FIX 3 = OR IF .45 .95 I .025 * - POSITION ARE f I . 2 ] "." UBEL .60 .95 I .025 * - POSITION AIM f I . 1 ] ^*." UBEL THEN

ARE [ I , 1 ] FIX 4 = IF .45 .95 I .025 * - POSITION " Zs = "

-1 1 FF AIM [ I , 4 ] "." "CAT UBEL 6 3 FF THEN ELSE .45 .95 I .025 * - POSITION " Scanned Layer" UBEL THEN

" VS 10" GRAPH.COMMAND ARE [ I . 1 ] DUP 3 = 5 = OR IF

ELSE WC XAXIS PAS XSECT[ I , ! ] SUB[ 1 . NS [ 1 ] 1 + ] XY.DATAPLOT THEN LOOP WC PLOTTER.OFF A.PLOT ;

: A.SCAN

SCAN.NO.PLOT A.PLOT MENU.SCAN ;

: 2JUMP

-1 2 FF

ARE [ N , 1 ] FIX

CASE

1 OF \ dielectric

ID "[ N ] " D" " = IF 1 MSFUG = IF XX [ 5 , 1 , 16 ] ST [ 5 , 16 ] K3 * - DUP DUP AIM [ N , 2 ] : =

." mu* = " ? ZREAL RF2 [ 15 ] := ZIMAG RF2 [ 151 + ] : = ELSE XX [ 6 , 1.16 ] ST [ 6 , 16 ] K3 * - DUP DUP AIM [ N , 1 ]

." e* = " ? ZREAL RF2 [ 15 ] := ZIMAG RF2 f 151 + ] : = THEN ELSE XX [ 2 , 1 , 16 ] ST f 2.16 ] ZREAL K3 * -

DUP ARE [N,2] := RF2 [ 15 ] : = THEN ENDOF 3 OF \ AIR

XX [ 2 , 1 , 16 ] ST [ 2 , 16 ] ZREAL K3 * - DUP ARE [N.2] := RF2 [ 15 ] : = ENDOF

2 OF \ dont scan METAL ENDOF ENDCASE CHANGE.BOX ;

:SOC

7 FOREGROUND

CR ." Layer # " .." Scan Output Choices:"

CR ." 1.%R From ABOVE"

CR ." 3. % R From BELOW"

CR ." 4. % T From BELOW"

CR ." 5. % Power Absorbed in Layer" CR ." 6. Layer Average Heating Rate"

CR CR ." Select Output Parameter: " #INPUT DUP

CASE

1 OF " % R above" ENDOF

2 0F " % T above" ENDOF

3 OF " % R below" ENDOF

4 OF " % T below" ENDOF

5 OF " % A" ENDOF

6 OF " Av dT/dt" ENDOF

7 OF " Zs. Im" ENDOF

CR ." Bad Input, try again." MYSELF ENDCASE ;

: S.COLOR{l} CASE

1 OF2 COLOR ENDOF

2 OF 1 COLOR ENDOF

3 OF3 COLOR ENDOF

4 OF4 COLOR ENDOF

5 OF 12 COLOR ENDOF

6 OF 14COLOR ENDOF

7OF 15 COLOR ENDOF ENDCASE ;

:LRM

.65 .25 POSITION TWO.UBEL "( 1 ] " #" "CAT SL1 "." "CAT UBEL

.20 .07 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT UBEL

.18 .12 POSITION Z1 UBEL .55 .12 POSITION Z2 UBEL

.65 .16 POSITION Y1 UBEL .84 .34 POSITION Y2 UBEL .05 .03 POSITION "DATE " " "CAT REM "CAT UBEL ;

: U

LOAD.OVERUY 3D-PLOT.SOV

LL ABS []MAX []MAX 100. / DUP .9 >

IF BEGIN

2. / DUP .9 <

UNTIL THEN AXON.COMPRESS := LL ;

: MA

LOAD.OVERUY 3D-PLOT.SOV

MM ABS []MAX []MAX 100. / DUP .9 >

IF BEGIN

2. / DUP .9 <

UNTIL THEN AXON.COMPRESS := MM ;

: RAX

LOAD.OVERUY 3D-PLOT.SOV

RR ABS f]MAX f]MAX 100. / DUP .9 >

IF BEGIN

2. / DUP .9 <

UNTIL THEN AXON.COMPRESS : = RR ;

: MNU SCREEN.CLEAR

7 FOREGROUND

CR ." TWO.WAY.SCAN Overview: CPLOT, "

INTEN.ON

." ->HP: CPLOT.HP "

INTEN.OFF

." Pre-SCAN conditions: RESTORE" -

CR .^* S.LEFT.HP S.MIDDLE.HP S.RIGHT.HP"

CR ." CLEFT.HP CMIDDLE.HP C.RIGHT.HP" ;

: CPLOT

LOAD.OVERUY 3D-PLOT.SOV

INSTALL S.COLOR{l} IN CONTOUR.COLOR -1 1 FF GDS

TWO XSECTf ! . , 1 ] SUB[ 1 , NS [ 1 ] ; 1 , NS [ 2 ] ] BECOMES> LL TWO XSECT[ ! , , 2 ] SUBf 1 , NS [ 1 ] ; 1 , NS [ 2 ] ] BECOMES> MM TWO XSECTf ! , , 3 ] SUB[ 1 . NS [ 1 ] ; 1 . NS [ 2 ] ] BECOMES> RR

LL [JMIN/MAX - ABS []MAX 0. = NOT IF

VU1D

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF 0 VUPORT.COLOR VUPORT.CLEAR 3 COLOR U AXON.PLOT OUTLINE NC 7 COLOR .05 .94 POSITION " Layer #" 19 ( 1 . 1 ] "." "CAT " " "CAT TWO.UBEL "f 3 ] "CAT UBEL WC

VU1 0 VUPORT.COLOR VUPORT.CLEAR AXIS.DEFAULTS VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF LL 7 CONTOUR.PLOT 7 COLOR NC

270 UBELDIR .04 .87 POSITION TWO.UBEL "f 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR .2 .18 POSITION TWO.UBEL "f 2 ] " #" "CAT SL2 "." "CAT UBEL .07 .12 POSITION Z1 UBEL .5 .12 POSITION Z2 UBEL .05 .22 POSITION Y1 UBEL .05 .91 POSITION Y2 UBEL

2 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 3 ] "CAT " =" "CAT LL DUP []MIN f]MIN "." "CAT UBEL

15 COLOR .15 .065 POSITION " Max " TWO.UBEL "[ 3 ] "CAT " =" "CAT f]MAX []MAX ^*." "CAT UBEL WC OUTUNE THEN

MM [JMIN/MAX - ABS f]MAX 0. = NOT IF

VU2D

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF 0 VUPORT.COLOR VUPORT.CLEAR 3 COLOR MA AXON.PLOT OUTLINE NC 7 COLOR .05 .94 POSITION " Layer #" 19 [ 1 , 2 ] V "CAT " " "CAT TWO.UBEL "[ 4 ] "CAT UBEL WC

VU2

0 VUPORT.COLOR VUPORT.CLEAR AXIS.DEFAULTS VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF MM 7 CONTOUR.PLOT 7 COLOR NC

270 UBELDIR .04 .87 POSITION TWO.UBEL "[ 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR .2 .18 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT UBEL .07 .12 POSITION Z1 UBEL .5 .12 POSITION Z2 UBEL .05 .22 POSITION Y1 UBEL .05 .91 POSITION Y2 UBEL

2 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 4 ] "CAT " =" "CAT MM DUP []MIN []MIN "." "CAT UBEL

15 COLOR .15 .065 POSITION " Max " TWO.UBEL "[ 4 ] "CAT " =" "CAT []MAX []MAX "." "CAT UBEL WC OUTUNE THEN

RR []MIN/MAX - ABS []MAX 0. = NOT IF

VU3D

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF 0 VUPORT.COLOR VUPORT.CLEAR 3 COLOR RAX AXON.PLOT OUTUNE NC 7 COLOR .05 .94 POSITION " Layer #" 19 [ 1 , 3 ] "." "CAT " " "CAT TWO.UBEL "[ 5 ] "CAT UBEL WC

VU3

0 VUPORT.COLOR VUPORT.CLEAR AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF RR 7 CONTOUR.PLOT 7 COLOR NC

270 UBELDIR .04 .87 POSITION TWO.UBEL ^*[ 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR .2 .18 POSITION TWO.UBEL ^*[ 2 ] " #" "CAT SL2 ^*." "CAT UBEL .07 .12 POSITION Z1 UBEL .5 .12 POSITION Z2 UBEL .05 .22 POSITION Y1 LABEL .05 .91 POSITION Y2 UBEL

2 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 5 ] "CAT " =" "CAT RR DUP []MIN []MIN "." "CAT UBEL

15 COLOR .15 .065 POSITION " Max " TWO.UBEL "[ 5 ] "CAT " =" "CAT []MAX []MAX ".^* "CAT UBEL WC OUTUNE THEN BELL {TOP}

CR ." % Energy Sum MAX / MIN: " EMAX . EMIN . 5000 MSECDEUY MNU 1 16 := SL1 N := SL1 SL2 = NOT IF 2 I6 := SL2 N : = THEN ;

: HP.COLOR{l} CASE

1 OF6COLOR ENDOF

2 OF4 COLOR ENDOF

3 OF8 COLOR ENDOF OF3 COLOR ENDOF OF2 COLOR ENDOF OF5 COLOR ENDOF OF7 COLOR ENDOF ENDCASE ;

: SET.PLOTTER

VU.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS 1 AXIS.COLOR 1 UBELCOLOR VERTICAL GRID.ON AXIS.ON HORIZONTAL GRID.ON AXIS.ON ;

: CPLOT.HP

LOAD.OVERUY 3D-PLOT.SOV

SET.PLOTTER

INSTALL HP.COLOR{l} IN CONTOUR.COL.OR

LL [JMIN/MAX - ABS []MAX 0. = NOT

IF

VU1D.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF

1 COLOR U AXON.PLOT

NC 1 COLOR .5 .94 POSITION " Layer #" 19 [ 1 , 1 ] V "CAT

" " "CAT TWO.UBEL "[ 3 ] "CAT CENTERED.UBEL WC OUTUNE

VU1.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

LL 7 CONTOUR.PLOT 1 COLOR NC

90 UBELDIR 90 CHAR.DIR

.065 .35 POSITION TWOlUBEL "[ 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR 0 CHAR.DIR

.52 .18 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT CENTERED.UBEL

.02 .12 POSITION Z1 UBEL

.74 .12 POSITION Z2 CENTERED.UBEL

.05 .22 POSITION Y1 UBEL

.05 .91 POSITION Y2 UBEL

6 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 3 ] "CAT " =" "CAT LL DUP [JMIN f]MIN "." "CAT UBEL

7 COLOR .15 .065 POSITION " Max ^* TWO.UBEL "[ 3 ] "CAT " =" "CAT []MAX []MAX "." "CAT UBEL WC 1 COLOR OUTUNE

THEN

MM [JMIN/MAX - ABS []MAX 0. = NOT

IF

VU2D.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF

1 COLOR MA AXON.PLOT OUTUNE

NC .5 .94 POSITION " Layer #" 19 [ 1 . 2 ] "." "CAT

" " "CAT TWO.UBEL "[ 4 ] "CAT CENTERED.UBEL WC

VU2.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

MM 7 CONTOUR.PLOT 1 COLOR NC

90 UBELDIR 90 CHAR.DIR

.065 .35 POSITION TWO.UBEL "[ 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR 0 CHAR.DIR

.52 .18 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT CENTERED.UBEL .02 .12 POSITION Z1 UBEL .74 .12 POSITION Z2 CENTERED.UBEL .05 .22 POSITION Y1 UBEL .05 .91 POSITION Y2 UBEL

6 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 4 ] "CAT " =" "CAT MM DUP []MIN []MIN "." "CAT UBEL

7 COLOR .15 .065 POSITION " Max " TWO.UBEL "[ 4 ] "CAT " =" "CAT []MAX []MAX "." "CAT UBEL WC 1 COLOR OUTUNE

THEN

RR F MIN/MAX - ABS []MAX 0. = NOT IF

VU3D.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF AXIS.OFF

1 COLOR RAX AXON.PLOT OUTUNE

NC .5 .94 POSITION " Layer #" 19 [ 1 . 3 ] "." "CAT

" " "CAT TWO.UBEL "[ 5 ] "CAT CENTERED.UBEL WC

VU3.HP HP7475 PLOTTER.DEFAULTS AXIS.DEFAULTS

VERTICAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

HORIZONTAL NO.UBELS UBELSCALE.OFF GRID.OFF AXIS.OFF

RR 7 CONTOUR.PLOT 1 COLOR NC

90 UBELDIR 90 CHAR.DIR

.52 .18 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT CENTERED.UBEL

.02 .12 POSITION Z1 UBEL

.74 .12 POSITION Z2 CENTERED.UBEL

.05 .22 POSITION Y1 UBEL

.05 .91 POSITION Y2 LABEL

6 COLOR .15 .025 POSITION " Min " TWO.UBEL "[ 5 ] "CAT " =" "CAT RR DUP []MIN f]MIN "." "CAT UBEL

7 COLOR .15 .065 POSITION " Max " TWO.UBEL "f 5 ] "CAT " =" "CAT []MAX f]MAX "." "CAT UBEL 1 COLOR OUTUNE

THEN

TOP.HP HP7475

0 UBELDIR 0 CHAR.DIR NC

.5 .7 POSITION REM CENTERED.UBEL

.015 .20 POSITION "DATE " " "CAT TIME "CAT UBEL

OUTLINE PLOTTER.OFF CPLOT ;

: TWO.WAY.SCAN

ND

0. TW. VECTOR : = 0 MSFUG : =

0 BECOMES > TWO

0 BECOMES > EG

0 BECOMES > QG

0 BECOMES > Z

L1 RAMP L1 RAMP UMINATE ROT.INDICES.RIGHT BECOMES > PAS 0. PAS : =

100. DUP EMAX : = EMIN := 0. RF2 : = 0 !9 : = 0. ST : = 0. XX : =

7 FOREGROUND TYPE TWSCAN.PSP INTEN.ON CR

CR .^* The MAXIMUM number of steps in TWO.WAY.SCAN is 50." INTEN.OFF CR

REM TYPE

CR

CR ." Change the remark (Y/N) ? " CAPS.LOCKON "INPUT " Y" "=

IF RM

THEN

CR CR ." 1st SCAN Layer #" #INPUT DUP SL1 := N := 1 16 := SCAN.SET.UP SCAN.UBELHEAD TWO.UBEL "[ 1 ] ":= ID "[ N ] SLID1 ": =

ND

CR CR ." 2nd SCAN Layer #" #INPUT DUP SL2 := N := 2 16 := SCAN.SET.UP

SCAN.UBELHEAD TWO.UBEL "[ 2 ] ":= ID "[ N ] SLID2 ":=

ND

CR ." Select three output variables."

CR CR ." 1st output variable: Layer # = " #INPUT DUP 19 [ 1 . 1 ] : =

SOC 19 [ 2 , 1 ] := "DUP TWO.UBEL "[ 3 ] ": =

CR CR ." 2nd output variable: Layer # = " #INPUT DUP 19 [ 1 , 2 ] :=

SOC 19 [ 2 . 2 ] := "DUP TWO.UBEL "[ 4 ] ": =

CR CR ." 3rd output variable: Layer # = " #INPUT DUP 19 [ 1 . 3 ] : =

SOC 19 [ 2 , 3 ] := "DUP TWO.UBEL "[ 5 ] ": =

SCREEN.CLEAR {TOP} CR ." Calculating . . " 1 NS [ 1 ] + 0 DO SL1 N := SLID1 ID "[ N ] ":= 1 16 := 1 15 := I K3 := 2JUMP SL2 N := SUD2 ID "[ N ] ":= 216 := 315 := -13 FF 1 NS [ 2 ] + 0 DO

CR J .." \ " I ? K3 := 2JUMP CALCZAXIS CALC.Q E.CHECK

41 DO

I9[1.I] I8:= 19 [2. I] CASE

1 OF RA ENDOF

2 OF TA ENDOF

3 OF RB ENDOF

4 OF TB ENDOF

5 OF PA [ 18 ] ENDOF

6 OF QA f 18 ] ENDOF

7 OF AIM [ 18.4 ] ZIMAG ENDOF ENDCASE DUP RF2 [ 4 I + ] : =

TW.VECTOR [ NS [ 2 ] 1 + J - . I ] : = LOOP LOOP 10 =

IF TW.VECTOR SUBf 1 , NS f 2 ] ; ! ] BECOMES > TWO ELSE TW.VECTOR SUBf 1 , NS [ 2 ] ; ! ] TWO UMINATE BECOMES > TWO THEN LOOP

-11 FF115 := 0 RF2 := SL1 N : = SUD1 ID "[ N] ":= 1 I6:= 0 K3 : = 2JUMP RF2 [ 2 ] 0 = IF RF2 [ 1 ]

ELSE RF2 [ 1 ] RF2 [ 2 ] Z=X+IY THEN"."Y2": = NS { 1 ] K3 := 2JUMP RF2 [ 2 ] 0 = IF RF2 [ 1 ]

ELSERF2[1 ] RF2 [ 2 ] Z=X+IY THE VY1 ": =

0 RF2 := SL2 N := SUD2 ID "[ N ] ":= 216 := 0 K3 : = 2JUMP RF2 [ 2 ] 0 = IF RF2 [ 1 ]

ELSE RF2 [ 1 ] RF2 [ 2 ] Z=X+IY THEN"."Z2": =

NS [ 2 ] K3 := 2JUMP RF2 [ 2 ] 0 = IF RF2 [ 1 ]

ELSERF2 [1 ] RF2 [2]Z=X+IY THENVZ1 ": = CPLOT ;

: S.LEFT.HP SET.PLOTTER

LOAD.OVERUY 3D-PLOT.SOV U 1 COLOR VERTICAL AXIS.ON AXON.PLOT NC 1 COLOR .35.99 POSITION

TWO.UBEL "[ 3 ] " , " "CAT " Layer #" "CAT 19 [ 1.1 ] "." "CAT NAME "[ 19 [ 1 , 1 ] ] "CAT UBEL

.69.24 POSITION TWO.UBEL "f 1 ] " #" "CAT SL1 "." "CAT UBEL .67.16 POSITION Y1 UBEL .83.31 POSITION Y2 UBEL .25.075 POSITION TWO.UBEL "f 2 ] " #" "CAT SL2 "." "CAT UBEL .13 .10 POSITION Z1 UBEL .57 .10 POSITION Z2 UBEL

.01 .04 POSITION "DATE " " "CAT REM "CAT UBEL -1 2 FF

.01 .008 POSITION " Illumination = " PB "." "CAT " From Below" "CAT UBEL PLOTTER.OFF MNU ;

: S.MIDDLE.HP SET.PLOTTER

LOAD.OVERUY 3D-PLOT.SOV MA 1 COLOR VERTICAL AXIS.ON AXON.PLOT NC 1 COLOR .35 .99 POSITION

TWO.UBEL "[ 4 ] " , " "CAT " Layer #" "CAT 19 [ 1 , 2 ] "." "CAT NAME "[ 19 [ 1 , 2 ] ] "CAT UBEL

.69 .24 POSITION TWO.UBEL "f 1 ] " #" "CAT SL1 "." "CAT UBEL .67 .16 POSITION Y1 UBEL .83 .31 POSITION Y2 UBEL

.25 .075 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT UBEL .13 .10 POSITION Z1 UBEL .57 .10 POSITION Z2 UBEL

.01 .04 POSITION "DATE " " "CAT REM "CAT UBEL -1 2 FF

: S.RIGHT.HP SEΞT.PLOTTER

LOAD.OVERUY 3D-PLOT.SOV RAX 1 COLOR VERTICAL AXIS.ON AXON.PLOT NC 1 COLOR .35 .99 POSITION

TWO.UBEL "[ 5 ] " , " "CAT " Layer #" "CAT 19 [ 1 , 3 ] "." "CAT NAME "[ 19 [ 1 , 3 ] ] "CAT UBEL

.69 .24 POSITION TWO.UBEL "[ 1 ] " #" "CAT SL1 "." "CAT UBEL .67 .16 POSITION Y1 UBEL .83 .31 POSITION Y2 UBEL

.25 .075 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT UBEL .13 .10 POSITION Z1 UBEL .57 .10 POSITION Z2 UBEL .01 .04 POSITION "DATE " " "CAT REM "CAT UBEL -1 2 FF

: C.LEFT.HP

SET.PLOTTER

LOAD.OVERUY 3D-PLOT.SOV

INSTALL HP.COLOR{l} IN CONTOUR.COLOR

" VS 10" GRAPH.COMMAND

VERTICAL NO.UBELS

HORIZONTAL NO.UBELS -1 2 FF LL 7 CONTOUR.PLOT

" VS 40" GRAPH.COMMAND

NC 1 COLOR .50 .99 POSITION

TWO.UBEL "[ 3 ] " , " "CAT " Layer #" "CAT 19 f 1 , 1 ] "." "CAT

NAME "f 19 [ 1 , 1 ] ] "CAT CENTERED.UBEL 90 UBELDIR 90 CHAR.DIR .04 .45 POSITION TWO.UBEL "f 1 ] " #" "CAT SL1 "." "CAT UBEL

0 UBELDIR 0 CHAR.DIR .03 .15 POSITION Y1 UBEL .03 .95 POSITION Y2 UBEL

.50 .09 POSITION TWO.UBEL ^*[ 2 ] " #" "CAT SL2 "." "CAT CENTERED.UBEL .15 .09 POSITION Z1 CENTERED.UBEL .90 .09 POSITION Z2 CENTERED.UBEL .01 .04 POSITION "DATE " " "CAT REM "CAT UBEL -1 2 FF .01 .008 POSITION " Illumination = " PB "." "CAT " From Below" "CAT UBEL

6 COLOR

.75 .008 POSITION " Min " TWO.UBEL "[ 3 ] "CAT " = " "CAT LL DUP []MIN []MIN "." "CAT UBEL

7 COLOR

.75 .04 POSITION " Max ^* TWO.UBEL "[ 3 ] "CAT " = " "CAT []MAX []MAX "." "CAT UBEL WC PLOTTER.OFF MNU ;

: QMIDDLE.HP

SET.PLOTTER

LOAD.OVERUY 3D-PLOT.SOV

INSTALL HP.COLOR{l} IN CONTOUR.COLOR

" VS 10" GRAPH.COMMAND

VERTICAL NO.UBELS HORIZONTAL NO.UBELS -1 2 FF MM 7 CONTOUR.PLOT " VS 40" GRAPH.COMMAND NC 1 COLOR .50 .99 POSITION

TWO.UBEL "[ 4 ] " . " "CAT " Layer #" "CAT 19 [ 1 , 2 ] "." "CAT

NAME "[ 19 [ 1 . 2 ] ] "CAT CENTERED.UBEL 90 UBELDIR 90 CHAR.DIR

.04 .45 POSITION TWO.UBEL "[ 1 ] " #" "CAT SL1 "." "CAT UBEL 0 UBELDIR 0 CHAR.DIR .03 .15 POSITION Y1 UBEL .03 .95 POSITION Y2 UBEL

.50 .09 POSITION TWO.UBEL "[ 2 ] " #" "CAT SL2 "." "CAT CENTERED.UBEL .15 .09 POSITION Z1 CENTERED.UBEL .90 .09 POSITION Z2 CENTERED.UBEL .01 .04 POSITION "DATE " " "CAT REM "CAT UBEL -1 2 FF .01 .008 POSITION " Illumination = " PB "." "CAT " From Below" "CAT UBEL

6 COLOR

.75 .008 POSITION " Min " TWO.UBEL "[ 4 ] "CAT " = " "CAT MM DUP []MIN []MIN "." "CAT UBEL

7 COLOR

.75 .04 POSITION " Max " TWO.UBEL "[ 4 ] "CAT " = " "CAT []MAX []MAX "." "CAT UBEL WC PLOTTER.OFF MNU ;

: CRIGHT.HP SET.PLOTTER LOAD.OVERUY 3D-PLOT.SOV INSTALL HP.COLOR{l} IN CONTOUR.COLOR

" VS 10" GRAPH.COMMAND

VERTICAL NO.UBELS

HORIZONTAL NO.UBELS -1 2 FF RR 7 CONTOUR.PLOT

" VS 40" GRAPH.COMMAND

NC 1 COLOR

.50 .99 POSITION

TWO.UBEL "[ 5 ] " , " 'CAT " Layer #" "CAT 19 [ 1 , 3 ] "." "CAT

NAME "[ 19 [ 1 , 3 ] ] "CAT CENTERED.UBEL 90 UBELDIR 90 CHAR.DIR .04 .45 POSITION TWO.UBEL "f 1 ] " #" "CAT SL1 "." "CAT UBEL

0 UBELDIR 0 CHAR.DIR .03 .15 POSITION Y1 UBEL .03 .95 POSITION Y2 UBEL

6 COLOR

.75 .008 POSITION " Min " TWO.UBEL "f 5 ] "CAT " = " "CAT RR DUP []MIN []MIN "." "CAT UBEL

7 COLOR

.75 .04 POSITION " Max " TWO.UBEL "f 5 ] "CAT " = " "CAT []MAX []MAX "." "CAT UBEL WC PLOTTER.OFF MNU ; : INPUT.COOK -1 1 FF 7 FOREGROUND CR CR ." Layer ^* N . N 1 = IF ." TOP UYER" THEN N L = IF ." BOTTOM UYER^* THEN " " TYPE NAME "[ N ] TYPE WH "[ N ] " D" "= IF CR ." e' = " #INPUT

CR ." e" = " #INPUT ABS Z=X+IY CONJ AIM [ N , 1 ] : =

CR ." Layer thickness, cm = " #INPUT ARE [ N , 2 ] : =

CR ." Heat capacity, cal/g = " #INPUT ARE [ N , 3 ] : =

CR ." Density, g/ml = " #INPUT ARE [ N . 4 ] : = THEN

WH "[ N ] " A" "= IF CR ." Layer" N . ." = Air"

CR ." Thickness, cm = " #INPUT ARE [ N , 2 ] : = THEN

WH "[ N ] " M" "=

IF CR CR ." Layer" N . ." = Metal" CR THEN

WH "[ N ] " MM" "= IF CR ." Layer" N . ." = Metal" 2. ARE [ N , 1 ] : =

CR ." Thickness, cm = " #INPUT ARE [ N , 2 ] : =

CR ." Conductivity, 1/ohm cm = " #INPUT SIGMA : =

1.0D SIGMA NEG EO / W / Z=X+IY AIM [ N , 1 ] : = CR THEN WH "[ N ] " S" " = IF CR ." Layer" N . ." = Susceptor"

CR ." Rs (Real), Ohm/sq = " #INPUT

CR ." Reactance (Imaginary Part, NEGATIVE for broken susceptors) = "

#INPUT Z=X+IY AIM f N , 4 ] : = CR THEN ;

: COOK.PLOT SCREEN.SET.UP COOK.STEPS 1 + 1 DO

C [ I ] COLOR NC .60 .90 I .03 * - POSITION COOK.CONDITION "f I ] UBEL WC

Q.COOK XSECTf I , ! ] QG : =

Z.COOK XSECTf I , ! ] Z : =

Q.SUB SWAP I 1 - FLOAT ZS * + SWAP XY.DATA.PLOT LOOP ORIG

TYPE MNUCOOK.PSP -1 1 FF CR ." Max = " EMAX . CR .' Min = " EMIN . ;

: COOK

BRE DUP BECOMES > CRE ARE : = \ base case is first layer of CRE & CIM

BIM DUP BECOMES > CIM AIM : =

LNG 2. * DUP LNG : = f]SUM 12 : = \ double the Z-axis point density, but dont 12 FLOAT REAL RAMP BECOMES > Z \ adjust as f(e*) 12 FLOAT REAL RAMP BECOMES > QG 12 FLOAT DP.REΞAL RAMP BECOMES > EG

0 K3 := 1. I3 : =

ARE XSECTf ! . 3 ] ARE XSECT[ ! , 4 ] * CPR := \ Cp*rho

ARE XSECT[ ! , 2 ] SUB[ 1 , L ] []SUM ZM := \ Zmax

BOX CALC.Q

QG BECOMES > Q.COOK

Z BECOMES > Z.COOK

ND " " COOK.CONDITION ":= 7 FOREGROUND

CR ." COOK allows you to superimpose heating profiles corresponding to any"

CR ." dielectric, thickness, Cp, or density changes may which occur in cooking."

CR ." COOK heating curves will be superimposed on the first (base) case that"

CR ." you have already input. Enter your description of the base case:"

CR CR " " "INPUT "CAT COOK.CONDITION "[ 1 ] ": =

CR CR ." Do you want to save REPORTS of COOK to disk (Y/N)? "

CAPS.LOCKON "INPUT " Y" "=

IF 1 CFFUG := 1 N := REPORT.FIL

ELSE 0 CFFUG : =

THEN ND 7 FOREGROUND

CR ." Enter the number of ADDITIONAL conditions that you wish to examine" CR ." (e.g. temperatures, etc.). " #INPUT 1 + COOK.STEPS : = COOK.STEPS 1 + 2 DO

-1 0 FF " " CR CR CR ." Describe COOK condition #" I . ." : "

"INPUT "CAT COOK.CONDITION "f I ] ": = BEGIN CR CR CR ." Condition #" I . COOK.CONDITION "[ I ] TYPE INTEN.ON CR CR ." Which layer do you want to change?" INTEN.OFF CR ." (Just hit < ENTER > to proceed to the next COOK condition.)" CR CR ." Layer # = " #INPUT WHILE N := INPUT.COOK REPEAT CRE ARE UMINATE BECOMES > CRE CIM AIM UMINATE BECOMES > CIM LOOP 0 11 : = BEGIN CR

CR ." Do you need to fix any bad input (Y/N)? " CAPS.LOCKON "INPUT " Y" "= WHILE CR ." Condition # to be fixed = " #INPUT DUP 11 : = CR 1 =

IF CR ." Cant fix condition # 1 , the BASE CASE. Try again." ELSE CR ." Condition #" 11 . COOK.CONDITION "[ 11 ] TYPE CR ." Layer # to be fixed = " #INPUT N : = INPUT.COOK ARE CRE XSECTf 11 1 + , ! , ! ] : = AIM CIM XSECTf 11 1 + , ! , ! ] : = THEN REPEAT

CR CR REM TYPE CR

CR ." Change the remark (Y/N) ? " CAPS.LOCKON "INPUT " Y" " = IF RM THEN CR CR ." Calculating . ." COOK.STEP_ 1 + 2 DO

CRE XSECTf I , ! , ! ] ARE := CIM XSECT[ I , ! . I ] AIM : =

ARE XSECT[ ! , 3 ] ARE XSECT[ I . 4 ] * CPR : = \ Cp*rho

ARE XSECT[ ! , 2 ] SUB[ 1 , L ] []SUM ZM MAX ZM := \ Zmax

BOX CALC.Q QMAX YM MAX YM := E.CHECK

Q.COOK QG UMINATE BECOMES > Q.COOK

Z.COOK Z UMINATE BECOMES > Z.COOK

1 CFFUG = IF I N := REPORT.FIL THEN LOOP COOK.PLOT ;

: COOK.HP COOK.STEPS 6 >

IF ND INTEN.ON BELL BELL CR ." Hold < ENTER > down until it beeps." INTEN.OFF

THEN

HP.SET.UP

COOK.STEPS 1 + 1 DO

C [ I ] COLOR " VS 40" GRAPH.COMMAND

NC .70 .90 I .03 * - POSITION COOK.CONDITION "f I ] UBEL WC

" VS 10" GRAPH.COMMAND

Q.COOK XSECTf I , ! ] QG : =

Z.COOK XSECTf I , ! ] Z : =

Q.SUB SWAP I 1 - FLOAT ZS * + SWAP XY.DATAPLOT LOOP 0 UBELDIR 0 CHAR.DIR -1 2 FF .01 .04 POSITION REM UBEL

.01 .008 POSITION "DATE

" illumination = " "CAT PB ".^* "CAT " From Below" "CAT UBEL WC

PLOTTER.OFF COOK.PLOT ;

NORMAL -1. GM : = ECHO.ON

Claims

CLAIMS :

1. A microwave heatable food product comprising:

a first edible component;

a second edible component proximate said first edible component;

a third edible component disposed between said first and second edible components; and

a reflective packaging element proximate said second edible component;

at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components having been adjusted and said reflective packaging element having been positioned whereby during exposure to microwave radiation said third edible component will heat at an increased rate relative to an unadjusted food product.

2. The food product of claim 1 wherein the thickness and dielectric properties of at least one of said edible components has been adjusted.

3. The food product of claim 1 wherein the thickness of at least one of said edible components has been adjusted.

4. The food product of claim 1 wherein at least one dielectric property of at least one of said food products has been adjusted.

5. The food product of claim 1 wherein said reflective packaging element comprises a metal layer.

6. The food product of claim 1 wherein said reflective packaging element comprises a layer of aluminum foil.

7. A microwave heatable food product comprising:

a first edible component;

a second edible component proximate said first edible component;

a reflective packaging element proximate said second edible component;

at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components having been adjusted and said reflective packaging element having been positioned whereby during exposure to microwave radiation at ieast one of said first and second edible components will heat at a decreased rate relative to an unadjusted food product.

8. The food product of claim 7 wherein the thickness and dielectric properties of at least one of said edible components has been adjusted.

9. The food product of claim 7 wherein the thickness of at least one of said edible components has been adjusted.

10. The food product of claim 7 wherein at least one dielectric property of at least one of said food products has been adjusted.

11. The food product of claim 7 wherein said reflective packaging element comprises a metal layer.

12. The food product of claim 7 wherein said reflective packaging element comprises a layer of aluminum foil.

13. A method of making a microwave heatable food product, said method comprising:

providing a first edible component;

providing a second edible component proximate said first edible component;

providing a reflective packaging element proximate at least one of said edible components; and

adjusting at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components and positioning said reflective packaging element whereby during exposure to microwave radiation said third edible component will heat at an increased rate relative to an unadjusted food product.

14. A method of making a microwave heatable food product, said method comprising:

providing a first edible component;

providing a second edible component proximate said first edible component;

adjusting at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components and positioning said reflective packaging element whereby during exposure to microwave radiation said first and second edible components will heat at an decreased rate relative to an unadjusted food product.

15. A method of controlled microwave heating of a food product comprising:

placing a food product in a microwave oven, said food product having a first and second edible components and a reflective packaging element proximate at least one of said edible components, at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components having been adjusted and said reflective packaging element having been positioned whereby during exposure to microwave radiation said third edible component will heat at an increased rate relative to an unadjusted food product; and exposing said food product to microwave radiation for a time period sufficient to heat said food product to a temperature within a predetermined range.

16. A method of controlled microwave heating of a food product comprising:

placing a food product in a microwave oven, said food product having a first and second edible components and a reflective packaging element proximate at least one of said edible components, at least one of a group of properties consisting of thickness and dielectric properties of at least one of said edible components having been adjusted and said reflective packaging element having been positioned whereby during exposure to microwave radiation said first and second edible components will heat at an decreased rate relative to an unadjusted food product; and

exposing said food product to microwave radiation for a time period sufficient to heat said food product to a temperature within a predetermined range.