==CONTPB34S1 2D-3D Contour plot of 3 B34S series - 1 graph B34SEXEC MAKEMENU COMMANDN('2D - 3D Contour plot - One graph') COMMANDH('Input 3 series (X, Y, Z). Calculates a weighted average ', 'and converts it to a two dimensional matrix suitable for ', '2-3 dimensional surface and contour plots. NGRID sets the ', 'dimensions of the matrix. ')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" "%A34SLET grid = '_NULL_'^" '%A34SLET ngrid = 50 ^' '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET sboxwid =.2 ^' '%A34SLET sboxhgt =.2 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET ptype =CONTOUR3^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET htitle1= .8^' '%A34SLET htitle2= .8^' '%A34SLET haxis1 = .8^' '%A34SLET haxis2 = .8^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 fieldhelp('Draws border on plot.') textid('Controls if border is drawn') text('Border Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=real page=1 row=11 col1=2 letname(sboxwid) col2=24 Fieldhelp('Sets width of box used to average heights') textid('Width of box used to average. Range .01 - .45') text('Sboxwid:') default=' .2' realrange(.01,.45)$ field type=input fieldtype=real page=1 row=11 col1=42 letname(sboxhgt) col2=64 Fieldhelp('Sets height of box used to average heights') textid('Height of box used to average. Range .01 - .45') text('Sboxhgt:') default=' .2' realrange(.01,.45)$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ngrid) FIELDTYPE=INTEGER DEFAULT='50 ' INTRANGE(25,10000) COL2=24 TEXTID='Dimension of grid' TEXT('Grid Dimension:') $ field type=input fieldtype=checkbox page=1 row=12 col1=42 letname(grid) col2=50 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid:') Choicecode('no', 'yes') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='X Variable' TEXT('X Varible:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var2) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='Y Variable' TEXT('Y Varible:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var3) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='Z Variable' TEXT('Z Varible:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=16 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ngrid =%b34seval(&ngrid) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# sboxwid =%b34seval(&sboxwid) /$# sboxhgt =%b34seval(&sboxhgt) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot(%B34SEVAL(&var1) %b34seval(&var2) %b34seval(&var3) /$# ) /$# %b34sif(&grid.eq.yes.or.&grid.eq.YES)then $ /$# grid /$# %b34sendif $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==CONTPB34S2 2D-3D Contour plot of 3 B34S series - 2 graphs B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Two Plots') COMMANDH('Input 3 series (X, Y, Z). Calculates a weighted average ', 'and converts it to a two dimensional matrix suitable for ', '2-3 dimensional surface and contour plots. NGRID sets the ', 'dimensions of the matrix. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" '%A34SLET ngrid = 50 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET sboxwid =.2 ^' '%A34SLET sboxhgt =.2 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET ptype =CONTOUR3^' '%A34SLET ptype_2 =CONTOUR3^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1_1 = .8^' '%A34SLET htitle1_2 = .8^' '%A34SLET htitle2_1 = .8^' '%A34SLET htitle2_2 = .8^' '%A34SLET haxis1_1 = .8^' '%A34SLET haxis1_2 = .8^' '%A34SLET haxis2_1 = .8^' '%A34SLET haxis2_2 = .8^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT('High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=5 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=6 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=choices page=1 row=7 col1=42 letname(ptype_2) col2=64 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type 2:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=checkbox page=1 row=8 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=9 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row= 9 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=real page=1 row=10 col1=2 letname(sboxwid) col2=24 Fieldhelp('Sets width of box used to average heights') textid('Width of box used to average. Range .01 - .45') text('Sboxwid:') default=' .2' realrange(.01,.45)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(sboxhgt) col2=64 Fieldhelp('Sets height of box used to average heights') textid('Height of box used to average. Range .01 - .45') text('Sboxhgt:') default=' .2' realrange(.01,.45)$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ngrid) FIELDTYPE=INTEGER DEFAULT='50 ' INTRANGE(25,10000) COL2=24 TEXTID='Dimension of grid' TEXT('Grid Dimension:') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='X Variable 1' TEXT('X Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(var1_2) FIELDTYPE=varname DEFAULT=' ' COL2=64 TEXTID='X Variable 2' TEXT('X Varible # 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(var2) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='Y Variable 1' TEXT('Y Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=42 LETNAME(var2_2) FIELDTYPE=varname DEFAULT=' ' COL2=64 TEXTID='Y Variable 2' TEXT('Y Varible # 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var3) FIELDTYPE=varname DEFAULT=' ' COL2=12 TEXTID='Z Variable 1' TEXT('Z Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=42 LETNAME(var3_2) FIELDTYPE=varname DEFAULT=' ' COL2=64 TEXTID='Z Variable 2' TEXT('Z Varible # 2:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=15 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width for title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height for title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width for axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height for axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ngrid =%b34seval(&ngrid) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# sboxwid =%b34seval(&sboxwid) /$# sboxhgt =%b34seval(&sboxhgt) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot(%B34SEVAL(&var1) %b34seval(&var2) %b34seval(&var3) /$# ) /$# plottype=%b34seval(&ptype) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1_1),%b34seval(&htitle1_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1_1),%b34seval(&haxis1_2)) /$# $ /$# plot(%B34SEVAL(&var1_2) %b34seval(&var2_2) %b34seval(&var3_2) /$# ) /$# plottype=%b34seval(&ptype_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle2_1),%b34seval(&htitle2_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis2_1),%b34seval(&haxis2_2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==CONTPFSAV2 2D-3D Contour plot of 3 FSAV series - 2 graphs B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Two Plots') COMMANDH('Input 3 series (X, Y, Z). Calculates a weighted average ', 'and converts it to a two dimensional matrix suitable for ', '2-3 dimensional surface and contour plots. NGRID sets the ', 'dimensions of the matrix. ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET IIN3_2 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET ngrid = 50 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET sboxwid =.2 ^' '%A34SLET sboxhgt =.2 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET ptype =CONTOUR3^' '%A34SLET ptype_2 =CONTOUR3^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1_1 = .8^' '%A34SLET htitle1_2 = .8^' '%A34SLET htitle2_1 = .8^' '%A34SLET htitle2_2 = .8^' '%A34SLET haxis1_1 = .8^' '%A34SLET haxis1_2 = .8^' '%A34SLET haxis2_1 = .8^' '%A34SLET haxis2_2 = .8^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=5 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=6 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=choices page=1 row=7 col1=42 letname(ptype_2) col2=64 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type 2:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=checkbox page=1 row=8 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=9 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row= 9 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=real page=1 row=10 col1=2 letname(sboxwid) col2=24 Fieldhelp('Sets width of box used to average heights') textid('Width of box used to average. Range .01 - .45') text('Sboxwid:') default=' .2' realrange(.01,.45)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(sboxhgt) col2=64 Fieldhelp('Sets height of box used to average heights') textid('Height of box used to average. Range .01 - .45') text('Sboxhgt:') default=' .2' realrange(.01,.45)$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(ngrid) FIELDTYPE=INTEGER DEFAULT='50 ' INTRANGE(25,10000) COL2=24 TEXTID='Dimension of grid' TEXT('Grid Dimension:') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(var1) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='X Variable 1' TEXT('X Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(var1_2) FIELDTYPE=character DEFAULT=' ' COL2=64 TEXTID='X Variable 2' TEXT('X Varible # 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(var2) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='Y Variable 1' TEXT('Y Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=42 LETNAME(var2_2) FIELDTYPE=character DEFAULT=' ' COL2=64 TEXTID='Y Variable 2' TEXT('Y Varible # 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var3) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='Z Variable 1' TEXT('Z Varible # 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=42 LETNAME(var3_2) FIELDTYPE=character DEFAULT=' ' COL2=64 TEXTID='Z Variable 2' TEXT('Z Varible # 2:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=15 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# scaunit(44) scafname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ngrid =%b34seval(&ngrid) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# sboxwid =%b34seval(&sboxwid) /$# sboxhgt =%b34seval(&sboxhgt) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot(%B34SEVAL(&var1) %b34seval(&var2) %b34seval(&var3) /$# ) /$# plottype=%b34seval(&ptype) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1_1),%b34seval(&htitle1_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1_1),%b34seval(&haxis1_2)) /$# $ /$# plot(%B34SEVAL(&var1_2) %b34seval(&var2_2) %b34seval(&var3_2) /$# ) /$# plottype=%b34seval(&ptype_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle2_1),%b34seval(&htitle2_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis2_1),%b34seval(&haxis2_2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==CONTPFSV1 2D-3D Contour plot of 3 FSAV series - 1 graph B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics One Plot') COMMANDH('Input 3 series (X, Y, Z). Calculates a weighted average ', 'and converts it to a two dimensional matrix suitable for ', '2-3 dimensional surface and contour plots. NGRID sets the ', 'dimensions of the matrix. ')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT('High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET ngrid = 50 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET sboxwid =.2 ^' '%A34SLET sboxhgt =.2 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET ptype =CONTOUR3^' '%A34SLET IIN4 = 0 ^' '%A34SLET htitle1= .8^' '%A34SLET htitle2= .8^' '%A34SLET haxis1 = .8^' '%A34SLET haxis2 = .8^' '%A34SLET IIIN3 = 0 ^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot', 'Two Dimensional Contour Plot', 'Two Dimensional filled Contour P' 'Three Dimensional Scatter ' 'Three Dimensional Scatter X marker' 'Three Dimensional Scatter Y marker' 'Three Dimensional Scatter Z marker' 'Three Dimensional Stepped ' 'Three Dimensional Stepped Color ' 'X-Y-Z Plot connected Points ' ) Choicecode('CONTOUR3', 'CONTOURC', 'CONTOUR2', 'CONTOURF' 'CONTOURS', 'CONTOURSX', 'CONTOURSY','CONTOURSZ' 'STEPPED3D','STEPPED3DC','XYZPLOT' ) default= ('CONTOUR3 ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=real page=1 row=11 col1=2 letname(sboxwid) col2=24 Fieldhelp('Sets width of box used to average heights') textid('Width of box used to average. Range .01 - .45') text('Sboxwid:') default=' .2' realrange(.01,.45)$ field type=input fieldtype=real page=1 row=11 col1=42 letname(sboxhgt) col2=64 Fieldhelp('Sets height of box used to average heights') textid('Height of box used to average. Range .01 - .45') text('Sboxhgt:') default=' .2' realrange(.01,.45)$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(ngrid) FIELDTYPE=INTEGER DEFAULT='50 ' INTRANGE(25,10000) COL2=24 TEXTID='Dimension of grid' TEXT('Grid Dimension:') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(var1) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='X Variable' TEXT('X Varible:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var2) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='Y Variable' TEXT('Y Varible:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(var3) FIELDTYPE=character DEFAULT=' ' COL2=12 TEXTID='Z Variable' TEXT('Z Varible:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=17 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# scaunit(44) scafname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ngrid =%b34seval(&ngrid) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# sboxwid =%b34seval(&sboxwid) /$# sboxhgt =%b34seval(&sboxhgt) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot(%B34SEVAL(&var1) %b34seval(&var2) %b34seval(&var3) /$# ) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==CONVERTGRAPH Converts Interactor Graph using INTCONV program b34sexec options dodos('start c:\b34slm\intconv.exe \max')$ b34srun$ == ==GRAPHB34S1 HR Graphics using B34S Data and one plot B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics One Plot') COMMANDH('Input series to plot. For futher detail see help command.', 'A maximum of eight series can be supplied for xy plots.', 'A maximum of nine series can be supplied for other plots.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET rotate = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET log = 0 ^' '%A34SLET grid = 0 ^' '%A34SLET nokey = 0 ^' '%A34SLET nolabel= 0 ^' '%A34SLET IN4 = 0^' '%A34SLET ptype =OBSPLOT^' '%A34SLET IIN4 = 0^' '%A34SLET htitle1= .8^' '%A34SLET htitle2= .8^' '%A34SLET haxis1 = .8^' '%A34SLET haxis2 = .8^' '%A34SLET setxmin= 0.0^' '%A34SLET setxmax= 0.0^' '%A34SLET setymin= 0.0^' '%A34SLET setymax= 0.0^' '%A34SLET fitspline="no" ^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=checkbox page=1 row=6 col1=42 letname(nokey) col2=54 fieldhelp('Turn off key code on right on graph.') textid('Turn off key code.') text('No keycode:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(nolabel) col2=54 fieldhelp('Turn off label on series.') textid('Turn off label.') text('No label:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=choices page=1 row=9 col1=2 letname(log) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(rotate) col2=54 fieldhelp('Allows rotation of Y label on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Rotate Y Label>') text('Rotate Y:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=10 col1=2 letname(grid) col2=24 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=10 col1=42 letname(fitspline) col2=54 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit:') Choicecode('no', 'yes') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables to plot:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IIN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables to plot:') PRELINE('%A34SLET IIIN3=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=14 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title: ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis: ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis: ') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(setxmin) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis' TEXT('Minimum x:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(setxmax) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis' TEXT('Maximum x:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(setymin) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis' TEXT('Minimum y:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=42 LETNAME(setymax) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis' TEXT('Maximum y:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# $ /$# plot(%B34SEVAL(&IN3) /$# %B34SIF(&IIIN3.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3) /$# %B34SENDIF $ /$# ) /$# %b34sif(&log.eq.LinLog.or.&log.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&rotate.eq.YES.or.&rotate.eq.yes)%then $ /$# ROTATEYLABEL /$# %b34sendif $ /$# %b34sif(&fitspline.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# NOKEY /$# %b34sendif $ /$# %b34sif(&nolabel.eq.yes)%then $ /$# NOLABEL /$# %b34sendif $ /$# %b34sif(&log.eq.LogLin.or.&log.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid.eq.yes.or.&grid.eq.YES)then $ /$# grid /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# setxrange(%b34seval(&setxmin,&setxmax)) /$# setyrange(%b34seval(&setymin,&setymax)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==GRAPHB34S2 HR Graphics using B34S Data and Two plots B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Two Plots') COMMANDH('Input series to plot. For futher detail see help command.', 'A maximum of eight series can be supplied for xy plots.', 'A maximum of nine series can be supplied for other plots.') tlabels('Basic Graph Settings','Advanced Graph Settings')$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET IIN3_2 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET ptype =OBSPLOT^' '%A34SLET ptype_2 =OBSPLOT^' '%A34SLET IIN4 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1_1 = .8^' '%A34SLET htitle1_2 = .8^' '%A34SLET htitle2_1 = .8^' '%A34SLET htitle2_2 = .8^' '%A34SLET haxis1_1 = .8^' '%A34SLET haxis1_2 = .8^' '%A34SLET haxis2_1 = .8^' '%A34SLET haxis2_2 = .8^' '%A34SLET setxmin1 = 0.0^' '%A34SLET setxmax1 = 0.0^' '%A34SLET setymin1 = 0.0^' '%A34SLET setymax1 = 0.0^' '%A34SLET setxmin2 = 0.0^' '%A34SLET setxmax2 = 0.0^' '%A34SLET setymin2 = 0.0^' '%A34SLET setymax2 = 0.0^' '%A34SLET log = 0 ^' '%A34SLET grid = 0 ^' '%A34SLET nokey = 0 ^' '%A34SLET nolabel= 0 ^' '%A34SLET log_2 = 0 ^' '%A34SLET grid_2 = 0 ^' '%A34SLET fitspline1="no" ^' '%A34SLET fitspline2="no" ^' '%A34SLET IIIN3_2 = 0^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=42 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=64 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=3 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=checkbox page=1 row=3 col1=42 letname(nokey) col2=54 fieldhelp('Turn off key code on right on graph.') textid('Turn off key code.') text('No keycode:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=3 col1=58 letname(nolabel) col2=70 fieldhelp('Turn off label.') textid('Turn off label.') text('No label:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=5 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for graph 1') text('Plot type 1:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=choices page=1 row=5 col1=42 letname(ptype_2) col2=64 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for graph 2') text('Plot type 2:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=checkbox page=1 row=6 col1=2 letname(fitspline1) col2=24 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit Plot 1:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=6 col1=42 letname(fitspline2) col2=64 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit Plot 2:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(log) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type plot 1:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row=7 col1=42 letname(grid) col2=64 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid plot 1:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=choices page=1 row= 8 col1=2 letname(log_2) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type plot 1:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row= 8 col1=42 letname(grid_2) col2=64 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid plot 2:') Choicecode('no', 'yes') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=2 LETNAME(IN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables plot 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(IIN3) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables plot 1: ') PRELINE('%A34SLET IIIN3=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=11 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING COL2=15 OPTIONAL COL2=24 TEXTID='Optional title plot 1' TEXT('Title plot 1: ') PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(htitle1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(htitle1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(haxis1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=42 LETNAME(haxis1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IN3_2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables plot 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(IIN3_2) FIELDTYPE=QVARLIST DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables plot 2: ') PRELINE('%A34SLET IIIN3_2=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=15 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING COL2=15 OPTIONAL COL2=24 TEXTID='Optional title plot 2' TEXT('Title plot 2: ') PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 LETNAME(haxis2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 LETNAME(haxis2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' limitf(1) $ /$EXIT GROUP FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(setxmin1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis' TEXT('Minimum x1:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=42 LETNAME(setxmax1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis' TEXT('Maximum x1:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(setymin1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis' TEXT('Minimum y1:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=42 LETNAME(setymax1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis' TEXT('Maximum y1:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(setxmin2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis' TEXT('Minimum x2:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=42 LETNAME(setxmax2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis' TEXT('Maximum x2:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=2 LETNAME(setymin2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis' TEXT('Minimum y2:') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=42 LETNAME(setymax2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis' TEXT('Maximum y2:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=10 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=10 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' limitf(2) $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# $ /$# plot(%B34SEVAL(&IN3) /$# %B34SIF(&IIIN3.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3) /$# %B34SENDIF $ /$# ) /$# gposition(1) /$# plottype=%b34seval(&ptype) /$# %b34sif(&log.eq.LinLog.or.&log.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&log.eq.LogLin.or.&log.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid.eq.yes.or.&grid.eq.YES)then $ /$# grid /$# %b34sendif $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1_1),%b34seval(&htitle1_2)) /$# %B34SENDIF $ /$# %b34sif(&fitspline1.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# nokey /$# %b34sendif $ /$# %b34sif(&nolabel.eq.yes)%then $ /$# NOLABEL /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis1_1),%b34seval(&haxis1_2)) /$# setxrange(%b34seval(&setxmin1,&setxmax1)) /$# setyrange(%b34seval(&setymin1,&setymax1)) /$# $ /$# plot(%B34SEVAL(&IN3_2) /$# %B34SIF(&IIIN3_2.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3_2) /$# %B34SENDIF $ /$# ) /$# gposition(2) /$# plottype=%b34seval(&ptype_2) /$# %b34sif(&log_2.eq.LinLog.or.&log_2.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&log_2.eq.LogLin.or.&log_2.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid_2.eq.yes)then $ /$# grid /$# %b34sendif $ /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle2_1),%b34seval(&htitle2_2)) /$# %B34SENDIF $ /$# %b34sif(&fitspline2.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# nokey /$# %b34sendif $ /$# %b34sif(&nolabel.eq.yes)%then $ /$# nolabel /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis2_1),%b34seval(&haxis2_2)) /$# setxrange(%b34seval(&setxmin2,&setxmax2)) /$# setyrange(%b34seval(&setymin2,&setymax2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==GRAPHCOLORS Set Graph Colors B34SEXEC MAKEMENU COMMANDN('Graphics Colors') COMMANDH('See help command for OPTIONS command and HRGRAPHICS ', 'command for further detail on graphics settings. If XYPLOT', 'is in effect series 1 is placed on axis and color 2 is', 'for series 2. Otherwise color 2 is for series 1.') $ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' Set Graphics Screen Colors ') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET GCOLOR1=BLUE^', '%A34SLET GCOLOR2=GREEN^', '%A34SLET GCOLOR3=BLUE^', '%A34SLET GCOLOR4=RED^', '%A34SLET GCOLOR5=MAGENTA^', '%A34SLET GCOLOR6=CYAN^', '%A34SLET GCOLOR7=WHITE^', '%A34SLET GCOLOR8=GRAY^', '%A34SLET GCOLOR9=BMAGENTA^', '%A34SLET GGRAYS =GGRAYSOFF^', '%A34SLET GRAYS1 =GRAY^', '%A34SLET GRAYS2 =GRAY^', '%A34SLET d3fill1=outline ^', '%A34SLET d3fill2=white ^', '%A34SLET d3fill3=red ^', '%A34SLET d3fill4=white ^', '%A34SLET d3fill5=red ^', '%A34SLET d3fill6=white ^', '%A34SLET d3fill7=red ^', 'A34SEXEC OPTIONS') $ FIELD TYPE=INPUT FIELDTYPE=checkbox PAGE=1 ROW=3 COL1=1 COL2=28 FIELDHELP('Set graph Background options') LETNAME(GGRAYS) TEXTID('Use space bar to toggle') TEXT('Graph Background:') CHOICECODE('GGRAYSOFF','GGRAYSON') DEFAULT=(' ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=4 COL1=1 COL2=28 FIELDHELP('Set graphics Axis fill') LETNAME(d3fill1) TEXTID('Hit Fn6 key to see choices') TEXT('Axis Fill Options:') CHOICES('3-D Axis outline only', '3-D Axis mixed colors' '3-D Axis solid colors') CHOICECODE('OUTLINE','MIXED','SOLID') DEFAULT=('OUTLINE') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=5 COL1=1 COL2=28 FIELDHELP('Set graphics background color.') letname(grays1) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Graphics Bk color 1:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('GRAY ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=5 COL1=39 COL2=60 FIELDHELP('Set graphics background color.') letname(grays2) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Graphics Bk color 2:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('GRAY ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=6 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR1) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 1:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('GREEN ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=6 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR2) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 2:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('GREEN ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR3) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 3:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('RED ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=7 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR4) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 4:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('BLUE ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=8 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR5) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 5:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('MAGENTA ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW= 8 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR6) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 6:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('CYAN ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR7) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 7:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('BGREEN ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=9 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR8) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 8:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('BRED ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=10 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(GCOLOR9) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Color series 9:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('BMAGENTA ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=12 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill2) TEXTID('Hit Fn6 key to see choices for colors') TEXT('X Axis Color 1:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('WHITE ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=12 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill3) TEXTID('Hit Fn6 key to see choices for colors') TEXT('X Axis Color 2:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('RED ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=13 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill4) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Y Axis Color 1:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('WHITE ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=13 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill5) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Y Axis Color 2:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('RED ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=14 COL1=1 COL2=28 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill6) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Z Axis Color 1:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('WHITE ') $ FIELD TYPE=INPUT FIELDTYPE=CHOICES PAGE=1 ROW=14 COL1=39 COL2=60 FIELDHELP('Set graphics Curve colors') LETNAME(d3fill7) TEXTID('Hit Fn6 key to see choices for colors') TEXT('Z Axis Color 2:') CHOICES('Black ', 'Red ', 'Yellow ', 'Green ', 'Cyan ', 'Blue ', 'Magenta ', 'White ', 'Gray ', 'Bright Red ', 'Bright Yellow ', 'Bright Green ', 'Bright Cyan ', 'Bright Blue ', 'Bright Magenta', 'Bright White ',) CHOICECODE('BLACK','RED','YELLOW','GREEN','CYAN','BLUE','MAGENTA', 'WHITE','GRAY','BRED','BYELLOW','BGREEN','BCYAN','BBLUE' 'BMAGENTA','BWHITE') DEFAULT=('RED ') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=16 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('GCOLOR(%A34SEVAL(&GCOLOR1 &GCOLOR2 &GCOLOR3 &GCOLOR4', '&GCOLOR5 &GCOLOR6 &GCOLOR7 &GCOLOR8 &GCOLOR9)) ', '%A34SEVAL(&GGRAYS) ', 'd3axisfill( %A34SEVAL(&d3fill1))' 'd3xaxiscolor(%A34SEVAL(&d3fill2,&d3fill3))' 'd3yaxiscolor(%A34SEVAL(&d3fill4,&d3fill5))' 'd3zaxiscolor(%A34SEVAL(&d3fill6,&d3fill7))' 'GGRAYSMIX( %A34SEVAL(&grays1,&grays2)) ' '^' 'A34SEEND^') $ B34SEEND$ == ==GRAPHFSAV1 HR Graphics using FSAV Data and one plot B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics One Plot') COMMANDH('Input series to plot. For futher detail see help command.', 'A maximum of eight series can be supplied for xy plots.', 'A maximum of nine series can be supplied for other plots.')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" "%A34SLET rotate = '_NULL_'^" '%A34SLET log = 0 ^' '%A34SLET grid = 0 ^' '%A34SLET nokey = 0 ^' '%A34SLET IN4 = 0^' '%A34SLET ptype =OBSPLOT^' '%A34SLET IIN4 = 0^' '%A34SLET htitle1= .8^' '%A34SLET htitle2= .8^' '%A34SLET haxis1 = .8^' '%A34SLET haxis2 = .8^' '%A34SLET fitspline="no" ^' '%A34SLET setxmin= 0.0^' '%A34SLET setxmax= 0.0^' '%A34SLET setymin= 0.0^' '%A34SLET setymax= 0.0^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=checkbox page=1 row=6 col1=42 letname(nokey) col2=54 fieldhelp('Turn off key code on right on graph.') textid('Turn off key code.') text('No keycode:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=choices page=1 row=9 col1=2 letname(log) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(rotate) col2=51 fieldhelp('Allows rotation of Y label on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Rotate Y Label>') text('Rotate Y:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=10 col1=2 letname(grid) col2=24 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=10 col1=42 letname(fitspline) col2=64 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit:') Choicecode('no', 'yes') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(IN3) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables to plot:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(IIN3) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables to plot:') PRELINE('%A34SLET IIIN3=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=13 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(setxmin) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis' TEXT('Minimum x:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(setxmax) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis' TEXT('Maximum x:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(setymin) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis' TEXT('Minimum y:') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=42 LETNAME(setymax) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis' TEXT('Maximum y:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=20 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=20 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=old$ b34srun$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# scaunit(44) scafname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# $ /$# plot(%B34SEVAL(&IN3) /$# %B34SIF(&IIIN3.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3) /$# %B34SENDIF $ /$# ) /$# %b34sif(&rotate.eq.YES.or.&rotate.eq.yes)%then $ /$# ROTATEYLABEL /$# %b34sendif $ /$# %b34sif(&log.eq.LinLog.or.&log.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&log.eq.LogLin.or.&log.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid.eq.yes.or.&grid.eq.YES)then $ /$# grid /$# %b34sendif $ /$# %b34sif(&fitspline.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# nokey /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# setxrange(%b34seval(&setxmin,&setxmax)) /$# setyrange(%b34seval(&setymin,&setymax)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==GRAPHFSAV2 HR Graphics using FSAV Data and Two plots B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Two Plots') COMMANDH('Input series to plot. For futher detail see help command.', 'A maximum of eight series can be supplied for xy plots.', 'A maximum of nine series can be supplied for other plots.') tlabels('Basic Graph Settings','Advanced Graph Settings')$ FIELD TYPE=INFO PAGE=1 ROW=1 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET IIN3_2 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET ptype =OBSPLOT^' '%A34SLET ptype_2 =OBSPLOT^' '%A34SLET IIN4 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle = .8^' '%A34SLET htitle_2 = .8^' '%A34SLET log = 0 ^' '%A34SLET grid = 0 ^' '%A34SLET nokey = 0 ^' '%A34SLET log_2 = 0 ^' '%A34SLET grid_2 = 0 ^' '%A34SLET htitle1_1 = .8^' '%A34SLET htitle1_2 = .8^' '%A34SLET htitle2_1 = .8^' '%A34SLET htitle2_2 = .8^' '%A34SLET haxis1_1 = .8^' '%A34SLET haxis1_2 = .8^' '%A34SLET haxis2_1 = .8^' '%A34SLET haxis2_2 = .8^' '%A34SLET fitspline1="no" ^' '%A34SLET fitspline2="no" ^' '%A34SLET setxmin1 = 0.0^' '%A34SLET setxmax1 = 0.0^' '%A34SLET setymin1 = 0.0^' '%A34SLET setymax1 = 0.0^' '%A34SLET setxmin2 = 0.0^' '%A34SLET setxmax2 = 0.0^' '%A34SLET setymin2 = 0.0^' '%A34SLET setymax2 = 0.0^' '%A34SLET IIIN3_2 = 0^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=20 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=52 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=69 TEXTID='Sets SCA FSAVE file name' TEXT('FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=3 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=checkbox page=1 row=3 col1=42 letname(nokey) col2=54 fieldhelp('Turn off key code on right on graph.') textid('Turn off key code.') text('No keycode:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=dqstring page=1 row=4 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=5 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for graph 1') text('Plot type 1:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=choices page=1 row=5 col1=42 letname(ptype_2) col2=64 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for graph 2') text('Plot type 2:') Choices('Observation plot' 'Time plot ', 'X-Y Plot ', 'Two dimensional histogram', 'Two dimensional labeled histogram', 'Three dimensional histogram', 'Two dimensional cumulative histogram', 'Three dimensional cumulative histogram', 'Two dimensional bar graph', 'Two dimensional labeled bar graph', 'Three dimensional bar graph', 'Two dimensional cumulative bar graph', 'Three dimensional cumulative bar graph', 'Scatter graph','HighLow histogram' 'High low histogram with values' 'Observation plot with bar' 'Time Plot with bar') Choicecode('OBSPLOT', 'TIMEPLOT','XYPLOT', 'HIST2D', 'HIST2DV', 'HIST3D' 'HIST2DC', 'HIST3DC','BAR2D', 'BAR2DV' 'BAR3D', 'BAR2DC', 'BAR3DC', 'SCATTER', 'HIST2DHL', 'HIST2DHLV', 'OBSPLOTB','TIMEPLOTB') default= ('OBSPLOT ') $ field type=input fieldtype=checkbox page=1 row=6 col1=2 letname(fitspline1) col2=24 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit Plot 1:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=checkbox page=1 row=6 col1=42 letname(fitspline2) col2=64 fieldhelp('Controls whether points are connected or' 'a spline is fit through points for OBSPLOT and' 'XYPLOT commands.') textid('No => spline is not fit through points') text('Spline fit Plot 2:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(log) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type plot 1:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row=7 col1=42 letname(grid) col2=64 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid plot 1:') Choicecode('no', 'yes') default=(' ') $ field type=input fieldtype=choices page=1 row= 8 col1=2 letname(log_2) col2=24 fieldhelp('Sets type of axis.' 'Log cannot be used if negative values.') textid('Select the desired axis type') text('Axis type plot 1:') Choices('Linear x - Linear y ' 'Linear x - Log y ', 'Log x - Linear y ', 'Log x - Log y ') Choicecode('LinLin','LinLog','LogLin','LogLog') default=('LinLin') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(grid_2) col2=64 fieldhelp('Allows placement of a grid on graph.' 'Used with OBSPLOT, TIMEPLOT and XYPLOT.') textid('Place Grid / Graticules on graph') text('Grid plot 2:') Choicecode('no', 'yes') default=(' ') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=2 LETNAME(IN3) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables plot 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(IIN3) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables plot 1: ') PRELINE('%A34SLET IIIN3=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=11 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING COL2=15 OPTIONAL COL2=24 TEXTID='Optional title plot 1' TEXT('Title plot 1: ') PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(IN3_2) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 5 variable names here' TEXT('Variables plot 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IIN3_2) FIELDTYPE=qstring DEFAULT=' ' COL2=24 TEXTID='Specify up to 4 variable names here' TEXT('Variables plot 2: ') PRELINE('%A34SLET IIIN3_2=1^') optional $ FIELD TYPE=INFO PAGE=1 ROW=14 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING COL2=15 OPTIONAL COL2=24 TEXTID='Optional title plot 2' TEXT('Title plot 2: ') PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' limitf(1) $ /$EXIT GROUP FIELD TYPE=INPUT PAGE=1 ROW= 5 COL1=2 LETNAME(htitle1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title1' TEXT('Width of title1:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(htitle1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title1' TEXT('Height of title1:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=42 LETNAME(haxis1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis1' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=42 LETNAME(haxis1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis1' TEXT('Height of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=2 LETNAME(setxmin1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis1' TEXT('Minimum x1:') $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=42 LETNAME(setxmax1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis1' TEXT('Maximum x1:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=2 LETNAME(setymin1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis1' TEXT('Minimum y1:') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=42 LETNAME(setymax1) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis1' TEXT('Maximum y1:') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=2 LETNAME(htitle2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title2' TEXT('Width of title2:') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=2 LETNAME(htitle2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title2' TEXT('Height of title2:') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=42 LETNAME(haxis2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis2' TEXT('Width of axis2:') $ FIELD TYPE=INPUT PAGE=1 ROW= 9 COL1=42 LETNAME(haxis2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis2' TEXT('Height of axis2:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(setxmin2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum x value on axis' TEXT('Minimum x2:') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=42 LETNAME(setxmax2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum x value on axis' TEXT('Maximum x2:') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(setymin2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=24 TEXTID='Optionally sets minimum y value on axis' TEXT('Minimum y2:') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(setymax2) FIELDTYPE=real DEFAULT=' ' realrange(-32.e+20 32.e+20) COL2=66 TEXTID='Optionally sets maximum y value on axis' TEXT('Maximum y2:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=14 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=14 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' limitf(2) $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=old$ b34srun$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# scaunit(44) scafname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# $ /$# plot(%B34SEVAL(&IN3) /$# %B34SIF(&IIIN3.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3) /$# %B34SENDIF $ /$# ) /$# gposition(1) /$# plottype=%b34seval(&ptype) /$# %b34sif(&log.eq.LinLog.or.&log.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&log.eq.LogLin.or.&log.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid.eq.yes.or.&grid.eq.YES)then $ /$# grid /$# %b34sendif $ /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1_1),%b34seval(&htitle1_2)) /$# %B34SENDIF $ /$# %b34sif(&fitspline1.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# nokey /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis1_1),%b34seval(&haxis1_2)) /$# setxrange(%b34seval(&setxmin1,&setxmax1)) /$# setyrange(%b34seval(&setymin1,&setymax1)) /$# $ /$# plot(%B34SEVAL(&IN3_2) /$# %B34SIF(&IIIN3_2.EQ.1)%THEN$ /$# %B34SEVAL(&IIN3_2) /$# %B34SENDIF $ /$# ) /$# gposition(2) /$# plottype=%b34seval(&ptype_2) /$# %b34sif(&log_2.eq.LinLog.or.&log_2.eq.LogLog)%then $ /$# LOGYAXIS /$# %b34sendif $ /$# %b34sif(&log_2.eq.LogLin.or.&log_2.eq.LogLog)%then $ /$# LOGXAXIS /$# %b34sendif $ /$# %b34sif(&grid_2.eq.yes)then $ /$# grid /$# %b34sendif $ /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle2_1),%b34seval(&htitle2_2)) /$# %B34SENDIF $ /$# %b34sif(&fitspline2.eq.yes)%then $ /$# FITSPLINE /$# %b34sendif $ /$# %b34sif(&nokey.eq.yes)%then $ /$# nokey /$# %b34sendif $ /$# axisheight=(%B34SEVAL(&haxis2_1),%b34seval(&haxis2_2)) /$# setxrange(%b34seval(&setxmin2,&setxmax2)) /$# setyrange(%b34seval(&setymin2,&setymax2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==LINEEDIT Call B34S line editor to submit job B34SEXEC MAKEMENU COMMANDN('Line Edit Menu') FHCOLOR(REVERSE,GREEN,BLACK) COMMANDH('This menu allows user to submit a quick job.', 'Line Editing is allowed on each line.')$ FIELD TYPE=INPUT PAGE=1 ROW=1 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=2 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=1 FIELDTYPE = CHARACTER OPTIONAL FIELDHELP('Edit the line.') TEXTID('Use Tab to go between lines. Use Enter to submit.') DEFAULT( ' ')$ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP B34SEEND$ == ==MARSPISP1 3D Contour plot of MARS or PISPLINE Surface 1 plot B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics One Plot') COMMANDH('Input MARS or PiSPLINE surface file and display surface ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET display =1 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET ptype =MARSPISP^' '%A34SLET IN4 = 0 ^' '%A34SLET IIN4 = 0 ^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^' '%A34SLET IIIN3 = 0 ^') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT('High resolution graphics MARS/PISPLINE Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=choices REQUIRED choices('MARS Curve ' 'MARS Surface' 'PISPLINE XG' 'PISPLINE YG') choicecode('MARSCRV','MARSSRF','PISPXG','PISPYG') DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name. Use Fn6 for choices.' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot') Choicecode('MARSPISP','MARSPISPC') default= ('MARSPISPC') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(display) FIELDTYPE=INTEGER DEFAULT='1 ' INTRANGE(1,100) COL2=24 TEXTID='Sets plot dimension' TEXT('Plot Dimension:') required $ FIELD TYPE=INFO PAGE=1 ROW=14 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=18 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=18 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# marsunit(44) surffname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot display=%B34SEVAL(&display) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==MARSPISP2 3D Contour plot of MARS or PISPLINE Surface 2 plots B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Two Plots') COMMANDH('Input MARS or PISPLINE surface file and display surface ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET IIN3_2 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour =9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation =0.0 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET d3axis =no ^' '%A34SLET d3border =no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border =no ^' '%A34SLET ptype =MARSPISPC^' '%A34SLET ptype_2 =MARPPISP^' '%A34SLET DISPLAY = 1^' '%A34SLET DISPLAY_2 = 2^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1_1 = .8^' '%A34SLET htitle1_2 = .8^' '%A34SLET htitle2_1 = .8^' '%A34SLET htitle2_2 = .8^' '%A34SLET haxis1_1 = .8^' '%A34SLET haxis1_2 = .8^' '%A34SLET haxis2_1 = .8^' '%A34SLET haxis2_2 = .8^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=choices REQUIRED choices('MARS Curve ' 'MARS Surface' 'PISPLINE XG' 'PISPLINE YG') choicecode('MARSCRV','MARSSRF','PISPXG','PISPYG') DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name. Use Fn6 for choices.' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=5 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=6 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot') Choicecode('MARSPISP','MARSPISPC') default= ('MARSPISPC') $ field type=input fieldtype=checkbox page=1 row=8 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=9 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row= 9 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=2 LETNAME(display) FIELDTYPE=integer DEFAULT='1 ' COL2=24 TEXTID='Dimension of plot 1' TEXT('Dimension 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(display_2) FIELDTYPE=integer DEFAULT='2 ' COL2=24 TEXTID='Dimension plot 2' TEXT('Dimension 2:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=15 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=16 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(htitle1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=42 LETNAME(haxis1_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2_2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# marsunit(44) surffname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# plottype=%b34seval(&ptype) /$# $ /$# plot display =%B34SEVAL(&display) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1_1),%b34seval(&htitle1_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1_1),%b34seval(&haxis1_2)) /$# $ /$# plot display =%B34SEVAL(&display_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle2_1),%b34seval(&htitle2_2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis2_1),%b34seval(&haxis2_2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==MARSPISP4 3D Contour plot of MARS or PISPLINE Surface 4 plots B34SEXEC MAKEMENU COMMANDN('High Resolution Graphics Four Plots') COMMANDH('Input MARS or PiSPLINE surface file and display surface ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE("%A34SLET IIN2 = '_NULL_'^" "%A34SLET IIN3 = '_NULL_'^" "%A34SLET IIN3_2 = '_NULL_'^" "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour =9 ^' '%A34SLET angle =22.5 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET rotation =0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border =no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border =no ^' '%A34SLET ptype =MARSPISPC^' '%A34SLET ptype_2 =MARPPISP^' '%A34SLET DISPLAY = 1^' '%A34SLET DISPLAY_2 = 0^' '%A34SLET DISPLAY_3 = 0^' '%A34SLET DISPLAY_4 = 0^' '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET IN4_3 = 0^' '%A34SLET IIN4_3 = 0^' '%A34SLET IN4_4 = 0^' '%A34SLET IIN4_4 = 0^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^' '%A34SLET IIIN3 = 0^') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=choices REQUIRED choices('MARS Curve ' 'MARS Surface' 'PISPLINE XG' 'PISPLINE YG') choicecode('MARSCRV','MARSSRF','PISPXG','PISPYG') DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name. Use Fn6 for choices.' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=5 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=6 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=7 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot') Choicecode('MARSPISP','MARSPISPC') default= ('MARSPISPC') $ field type=input fieldtype=checkbox page=1 row=8 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=8 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=9 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row= 9 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=2 LETNAME(display) FIELDTYPE=integer DEFAULT='1 ' COL2=24 TEXTID='Dimension of plot 1' TEXT('Dimension 1:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=42 LETNAME(display_2) FIELDTYPE=integer DEFAULT='2 ' COL2=64 TEXTID='Dimension plot 2' TEXT('Dimension 2:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=2 LETNAME(display_3) FIELDTYPE=integer DEFAULT='0 ' COL2=24 TEXTID='Dimension of plot 3' TEXT('Dimension 3:') REQUIRED $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=42 LETNAME(display_4) FIELDTYPE=integer DEFAULT='0 ' COL2=64 TEXTID='Dimension plot 4' TEXT('Dimension 4:') REQUIRED $ FIELD TYPE=INFO PAGE=1 ROW=12 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=14 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=15 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=16 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 3 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(IN4_3) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 4 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_3) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS gformat=fourgraph /$# marsunit(44) surffname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# plottype=%b34seval(&ptype) /$# $ /$# %b34sif(&display.ne.0)then $ /$# plot display =%B34SEVAL(&display) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# %B34SENDIF $ /$# %b34sif(&display_2.ne.0)then $ /$# plot display =%B34SEVAL(&display_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# %B34SENDIF $ /$# %b34sif(&display_3.ne.0)then $ /$# plot display =%B34SEVAL(&display_3) /$# gposition(3) /$# %B34SIF(&IIN4_3.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_3) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# %B34SENDIF $ /$# %b34sif(&display_4.ne.0)then $ /$# plot display =%B34SEVAL(&display_4) /$# gposition(4) /$# %B34SIF(&IIN4_4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# %B34SENDIF $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==PRINTGRAPH Prints Interactor Graph using INTPRINT program b34sexec options dodos('start c:\b34slm\intprint.exe \max')$ b34srun$ == ==RELOADMENU Reload prior menu B34SEXEC MAKEMENU COMMANDN(' Reloaded Menu ') COMMANDH('Prior menu has been reloaded.') FHCOLOR(REVERSE,GREEN,BLACK) GETMENU$ B34SRUN$ == ==SETGGRAPH Sets Graphics Defaults %B34SLET J =%B34SGET(DB34SG,GFACTOR,1)$ %B34SLET imode =%B34SGET(ib34sg,imode,1)$ %B34SLET icharr1=%B34SGET(ib34sg,icharr,1)$ %B34SLET icharr2=%B34SGET(ib34sg,icharr,2)$ %B34SLET icharr3=%B34SGET(ib34sg,icharr,3)$ %B34SLET icharr4=%B34SGET(ib34sg,icharr,4)$ %B34SLET icharr5=%B34SGET(ib34sg,icharr,5)$ %B34SLET icharr6=%B34SGET(ib34sg,icharr,6)$ %B34SLET icharr7=%B34SGET(ib34sg,icharr,7)$ %B34SLET icharr8=%B34SGET(ib34sg,icharr,8)$ %B34SLET icharr9=%B34SGET(ib34sg,icharr,9)$ B34SEXEC MAKEMENU COMMANDN('Sets Graphics Command Defaults') COMMANDH('This menu is an option to calling OPTIONS and' 'resetting Graphics Defaults') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=10 TEXTCOLOR=byellow TEXT(' Globally sets Graph Defaults') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=10 LETNAME(GFACTOR) FIELDTYPE=real fieldhelp('GFACTOR controls how graphs are drawn with' 'Graph Menu.') DEFAULT=%b34seval("' &j '") realrange(0.0,1.0) COL2=20 TEXTID='Sets GFACTOR to rescale plots' TEXT('GFACTOR:') $ field type=input fieldtype=choices page=1 row=5 col1=10 letname(ptype) col2=24 fieldhelp('Function 6 Character choices') textid('Select the desired source of characters') text('IMODE:') Choices('Digits => ICHARR 0 - 9' 'Letters => ICHARR A-Z 1-26. a-z 27-52.', 'MARKERS => ICHARR 1-20 ', 'Symbols => ICHARR 33-126 161-255') Choicecode('DIGITS','LETTERS','MARKERS', 'SYMBOLS') %b34sif(&IMODE.eq.1)%then$ default= ('DIGITS ') %b34sendif$ %b34sif(&IMODE.eq.2)%then$ default= ('LETTERS') %b34sendif$ %b34sif(&IMODE.eq.3)%then$ default= ('MARKERS') %b34sendif$ %b34sif(&IMODE.eq.4)%then$ default= ('SYMBOLS') %b34sendif$ $ FIELD TYPE=INPUT PAGE=1 ROW=6 COL1=10 LETNAME(ICHARR1) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr1 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(1):') $ FIELD TYPE=INPUT PAGE=1 ROW=7 COL1=10 LETNAME(ICHARR2) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr2 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(2):') $ FIELD TYPE=INPUT PAGE=1 ROW=8 COL1=10 LETNAME(ICHARR3) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr3 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(3):') $ FIELD TYPE=INPUT PAGE=1 ROW=9 COL1=10 LETNAME(ICHARR4) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr4 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(4):') $ FIELD TYPE=INPUT PAGE=1 ROW=10 COL1=10 LETNAME(ICHARR5) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr5 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(5):') $ FIELD TYPE=INPUT PAGE=1 ROW=11 COL1=10 LETNAME(ICHARR6) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr6 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(6):') $ FIELD TYPE=INPUT PAGE=1 ROW=12 COL1=10 LETNAME(ICHARR7) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr7 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(7):') $ FIELD TYPE=INPUT PAGE=1 ROW=13 COL1=10 LETNAME(ICHARR8) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr8 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(8):') $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=10 LETNAME(ICHARR9) fieldtype=INTEGER DEFAULT=%b34seval("' &icharr9 '") INTRANGE(0,999999999) COL2=24 TEXTID='Sets Character code' TEXT('ICHARR(9):') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=16 COL1=10 COL2=26 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=17 COL1=10 COL2=26 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape:') DEFAULT=' ' $ /$EXIT GROUP BOX position(10,4,37,17) $ PGMCARDS$ /$# %b34sif(&PTYPE.eq. DIGITS)%then$ /$# %b34slet imode= 1$ /$# %b34sendif$ /$# %b34sif(&PTYPE.eq.LETTERS)%then$ /$# %b34slet imode= 2$ /$# %b34sendif$ /$# %b34sif(&PTYPE.eq.MARKERS)%then$ /$# %b34slet imode= 3$ /$# %b34sendif$ /$# %b34sif(&PTYPE.eq.SYMBOLS)%then$ /$# %b34slet imode= 4$ /$# %b34sendif$ /$# B34SEXEC OPTIONS /$# GFACTOR=%B34SEVAL(&GFACTOR) /$# IMODE =%B34SEVAL(&IMODE ) /$# ICHARR =(%b34seval(&icharr1) /$# %b34seval(&icharr2) /$# %b34seval(&icharr3) /$# %b34seval(&icharr4) /$# %b34seval(&icharr5) /$# %b34seval(&icharr6) /$# %b34seval(&icharr7) /$# %b34seval(&icharr8) /$# %b34seval(&icharr9)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND $ == ==SURFPB34S1 2D-3D Surface plot from 1 B34S series - 1 graph B34SEXEC MAKEMENU COMMANDN('3D Surface plot - One graph') COMMANDH('Input 1 series. User sets NX, NY, NZ') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET display =1 ^' '%A34SLET ptype =SURF3D^' "%A34SLET NX = '_NULL_'^" "%A34SLET NY = '_NULL_'^" "%A34SLET NZ = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot',) Choicecode('SURF3D','SURF3DC') default= ('SURF3D ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=integer page=1 row=11 col1=2 letname(NX) col2=24 Fieldhelp('Sets NX for input vector') textid('Note: NOOB = NX*NY*NZ') text('NX:') default=' ' required $ field type=input fieldtype=integer page=1 row=12 col1=2 letname(NY) col2=24 Fieldhelp('Sets NY for input vector') textid('Note: NOOB = NX*NY*NZ') text('NY:') default=' ' required $ field type=input fieldtype=integer page=1 row=13 col1=2 letname(NZ) col2=24 Fieldhelp('Sets NZ for input vector') textid('Note: NOOB = NX*NY*NZ') text('NZ:') default=' ' required $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=24 TEXTID='Input variable that contains NX*NY*NY obs.' TEXT('Input Varible:') REQUIRED $ field type=input fieldtype=integer page=1 row=15 col1=2 letname(display) col2=24 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display:') default='1 ' required $ FIELD TYPE=INFO PAGE=1 ROW=17 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# nx =%b34seval(&nx) /$# ny =%b34seval(&ny) /$# nz =%b34seval(&nz) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot(%B34SEVAL(&var1) ) /$# display=%B34SEVAL(&display) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==SURFPB34S2 2D-3D Contour plot of 1 B34S series - 2 graphs B34SEXEC MAKEMENU COMMANDN('3D Surface plot - Two graphs') COMMANDH('Input 1 series. User sets NX, NY, NZ') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET display =1 ^' '%A34SLET display_2 =1 ^' '%A34SLET ptype =SURF3D^' "%A34SLET NX = '_NULL_'^" "%A34SLET NY = '_NULL_'^" "%A34SLET NZ = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(IN1) FIELDTYPE=INTEGER DEFAULT=' ' INTRANGE(0,999999999) COL2=24 TEXTID='Blank defaults to 1' TEXT('Beginning obs.:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(IN2) FIELDTYPE=INTEGER DEFAULT=' ' COL2=24 TEXTID='Blank defaults to last observation' INTRANGE(0,999999999) TEXT('Ending Obs.:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for plot 1') text('Plot 1 type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot',) Choicecode('SURF3D','SURF3DC') default= ('SURF3D ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=integer page=1 row=11 col1=2 letname(NX) col2=24 Fieldhelp('Sets NX for input vector') textid('Note: NOOB = NX*NY*NZ') text('NX:') default=' ' required $ field type=input fieldtype=integer page=1 row=12 col1=2 letname(NY) col2=24 Fieldhelp('Sets NY for input vector') textid('Note: NOOB = NX*NY*NZ') text('NY:') default=' ' required $ field type=input fieldtype=integer page=1 row=13 col1=2 letname(NZ) col2=24 Fieldhelp('Sets NZ for input vector') textid('Note: NOOB = NX*NY*NZ') text('NZ:') default=' ' required $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=24 TEXTID='Input variable that contains NX*NY*NY obs.' TEXT('Input Varible:') REQUIRED $ field type=input fieldtype=integer page=1 row=15 col1=2 letname(display) col2=24 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display 1:') default='1 ' required $ field type=input fieldtype=integer page=1 row=15 col1=42 letname(display_2) col2=64 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display 2:') default='1 ' required $ FIELD TYPE=INFO PAGE=1 ROW=16 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# gformat=twograph /$# %B34SIF(&IN1.NE.0)%THEN $ /$# IBEGIN=%B34SEVAL(&IN1) /$# %B34SENDIF $ /$# %B34SIF(&IN2.NE.0)%THEN $ /$# IEND =%B34SEVAL(&IN2) /$# %B34SENDIF $ /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# nx =%b34seval(&nx) /$# ny =%b34seval(&ny) /$# nz =%b34seval(&nz) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot( %B34SEVAL(&var1) ) /$# display=%b34seval(&display) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# plot( %B34SEVAL(&var1) ) /$# display=%b34seval(&display_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= %B34SEVAL(&htitle) /$# %B34SENDIF $ /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==SURFPFSAV2 2D-3D Contour plot of 1 FSAV series - 2 graphs B34SEXEC MAKEMENU COMMANDN('3D Surface plot - One graph') COMMANDH('Input 1 series from fsave file. User sets NX, NY, NZ') $ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' '%A34SLET d3axis =no ^' "%A34SLET grid = '_NULL_'^" '%A34SLET d3border=no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET display =1 ^' '%A34SLET ptype =SURF3D^' "%A34SLET NX = '_NULL_'^" "%A34SLET NY = '_NULL_'^" "%A34SLET NZ = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IN4_2 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET IIN4_2 = 0^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^')$ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using FSV Data') TEXTID(' ')$ FIELD TYPE=INPUT PAGE=1 ROW=3 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type for plot 1') text('Plot 1 type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot',) Choicecode('SURF3D','SURF3DC') default= ('SURF3D ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=integer page=1 row=11 col1=2 letname(NX) col2=24 Fieldhelp('Sets NX for input vector') textid('Note: NOOB = NX*NY*NZ') text('NX:') default=' ' required $ field type=input fieldtype=integer page=1 row=12 col1=2 letname(NY) col2=24 Fieldhelp('Sets NY for input vector') textid('Note: NOOB = NX*NY*NZ') text('NY:') default=' ' required $ field type=input fieldtype=integer page=1 row=13 col1=2 letname(NZ) col2=24 Fieldhelp('Sets NZ for input vector') textid('Note: NOOB = NX*NY*NZ') text('NZ:') default=' ' required $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=24 TEXTID='Input variable that contains NX*NY*NY obs.' TEXT('Input Varible:') REQUIRED $ field type=input fieldtype=integer page=1 row=15 col1=2 letname(display) col2=24 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display 1:') default='1 ' required $ field type=input fieldtype=integer page=1 row=15 col1=42 letname(display_2) col2=64 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display 2:') default='1 ' required $ FIELD TYPE=INFO PAGE=1 ROW=16 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 1 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=17 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INFO PAGE=1 ROW=18 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title for plot 2 on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(IN4_2) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4_2=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=20 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=22 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=22 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS gformat=twograph /$# scaunit(44) scafname(%b34seval(&scafname)) /$# plottype=%b34seval(&ptype) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# nx =%b34seval(&nx) /$# ny =%b34seval(&ny) /$# nz =%b34seval(&nz) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot( %B34SEVAL(&var1) ) /$# display=%b34seval(&display) /$# gposition(1) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= %B34SEVAL(&htitle) /$# %B34SENDIF $ /$# $ /$# plot( %B34SEVAL(&var1) ) /$# display=%b34seval(&display_2) /$# gposition(2) /$# %B34SIF(&IIN4_2.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4_2) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==SURFPFSV1 2D-3D Contour plot of 1 FSAV series - 1 graph B34SEXEC MAKEMENU COMMANDN('3D Surface plot - One graph') COMMANDH('Input 1 series from FSAVE file. User sets NX, NY, NZ') $ FIELD TYPE=INFO PAGE=1 ROW=2 COL1=2 TEXTCOLOR=byellow TEXT(' High resolution graphics using B34S Data') TEXTID(' ')$ FIELD TYPE=HIDDEN PAGE=1 ROW=1 COL1=1 PRELINE('%A34SLET IN1 = 0^' '%A34SLET IN2 = 0^' "%A34SLET dsn = '_NULL_'^" '%A34SLET ncontour=9 ^' '%A34SLET angle =22.5 ^' '%A34SLET rotation=0.0 ^' "%A34SLET grid = '_NULL_'^" '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET d3axis =no ^' '%A34SLET d3border=no ^' '%A34SLET display =1 ^' '%A34SLET ptype =SURF3D^' "%A34SLET NX = '_NULL_'^" "%A34SLET NY = '_NULL_'^" "%A34SLET NZ = '_NULL_'^" '%A34SLET IN4 = 0^' '%A34SLET IIN4 = 0^' '%A34SLET htitle1 = .8 ^' '%A34SLET htitle2 = .8 ^' '%A34SLET haxis1 = .8 ^' '%A34SLET haxis2 = .8 ^')$ FIELD TYPE=INPUT PAGE=1 ROW=4 COL1=2 LETNAME(dataset) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=qefile REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets the SCA FSAV file name. Fn 6 for menu.' TEXT('SCA FSAV Dataset:') $ FIELD TYPE=INPUT PAGE=1 ROW=5 COL1=2 LETNAME(scafname) fieldhelp('The FSAV browse command can be used to provide' 'information on dataset names, file names and a' 'list of the variables in the dataset. ') FIELDTYPE=character REQUIRED DEFAULT=' ' COL2=24 TEXTID='Sets SCA FSAVE file name' TEXT('SCA FSAVE file name:') OPTIONAL $ FIELD TYPE=INPUT FIELDTYPE= CHOICES PAGE=1 ROW=6 COL1=2 COL2=24 fieldhelp('Field sets whether to DISPLAY and or PRINT graph') PRELINE('%A34SLET IIN2=') postline('^') TEXTID('Hit Fn6 to see choices') TEXT('Output:') choices('Display on Screen', 'Both Display on Screen and Print to a file', 'Print to a file') Choicecode('DISPLAY','DISPLAYPRINT','PRINT') DEFAULT=('DISPLAY ') $ field type=input fieldtype=dqstring page=1 row=7 col1=2 letname(dsn) col2=24 fieldfeld('Sets plot output file name') testid('Plot output file if PRINT set') text('Plot output file:') default=('b34splot.wmf ') $ field type=input fieldtype=choices page=1 row=8 col1=2 letname(ptype) col2=24 fieldhelp('Function 6 shows plot choices') textid('Select the desired plot type') text('Plot type:') Choices('Three Dimensional Surface Plot ', 'Three Dimensional Contour Plot',) Choicecode('SURF3D','SURF3DC') default= ('SURF3D ') $ field type=input fieldtype=checkbox page=1 row=9 col1=2 letname(d3axis) col2=24 fieldhelp('Draws axis on plot.') textid('No => no axis drawn') text('Axis Drawn:') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=checkbox page=1 row=9 col1=42 letname(d3border) col2=64 textid('Controls if border is drawn') text('Border Drawn:') fieldhelp('Draws border on plot.') Choicecode('no', 'yes') default=('1') $ field type=input fieldtype=real page=1 row=10 col1=2 letname(angle) col2=24 Fieldhelp('Sets angle of elevation of display') textid('Specify angle of elevation of display. Range 0.0 - 45.0') text('Angle of Elevation:') default=' 0.0' realrange(0.0,45.0)$ field type=input fieldtype=real page=1 row=10 col1=42 letname(rotation) col2=64 Fieldhelp('Sets rotation of display') textid('Rotation of display. Range -360.0 - 360.0') text('Rotation:') default=' 0.0' realrange(-360.0,360.0)$ field type=input fieldtype=integer page=1 row=11 col1=2 letname(NX) col2=24 Fieldhelp('Sets NX for input vector') textid('Note: NOOB = NX*NY*NZ') text('NX:') default=' ' required $ field type=input fieldtype=integer page=1 row=12 col1=2 letname(NY) col2=24 Fieldhelp('Sets NY for input vector') textid('Note: NOOB = NX*NY*NZ') text('NY:') default=' ' required $ field type=input fieldtype=integer page=1 row=13 col1=2 letname(NZ) col2=24 Fieldhelp('Sets NZ for input vector') textid('Note: NOOB = NX*NY*NZ') text('NZ:') default=' ' required $ FIELD TYPE=INPUT PAGE=1 ROW=14 COL1=2 LETNAME(var1) FIELDTYPE=varname DEFAULT=' ' COL2=24 TEXTID='Input variable that contains NX*NY*NY obs.' TEXT('Input Varible:') REQUIRED $ field type=input fieldtype=integer page=1 row=15 col1=2 letname(display) col2=24 Fieldhelp('Sets face to display') textid('Must be set LE NZ') text('Display:') default='1 ' required $ FIELD TYPE=INFO PAGE=1 ROW=17 COL1=2 COL2=24 TEXTID='Optional title' TEXT('Specify a title on next line: ') $ FIELD TYPE=INPUT PAGE=1 ROW=18 COL1=2 LETNAME(IN4) FIELDTYPE=DQSTRING PRELINE('%A34SLET IIN4=1^') DEFAULT= ' ' COL2=2 TEXTID=' ' OPTIONAL $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=19 TEXTID='Sets width of characters in title' TEXT('Width of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=2 LETNAME(htitle2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=26 TEXTID='Sets height of characters in title' TEXT('Height of title:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis1) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=58 TEXTID='Sets width of characters on axis' TEXT('Width of axis:') $ FIELD TYPE=INPUT PAGE=1 ROW=19 COL1=42 LETNAME(haxis2) FIELDTYPE=real DEFAULT=' ' realrange(.1,10.) COL2=66 TEXTID='Sets height of characters on axis' TEXT('Height of axis:') $ /$EXIT GROUP FIELD TYPE=INPUT FIELDTYPE=RUN PAGE=1 ROW=21 COL1=1 COL2=25 FIELDHELP('Run') TEXTID('Run Command. ') text('Push to Run Command:') DEFAULT=' ' $ FIELD TYPE=INPUT FIELDTYPE=ESCAPE PAGE=1 ROW=21 COL1=30 COL2=55 FIELDHELP('Escape ') TEXTID('Terminate command. ') text('Push to Escape Command:') DEFAULT=' ' $ /$EXIT GROUP PGMCARDS$ /$# B34SEXEC options open(%b34seval(&dataset)) unit(44) /$# disp=unknown$ b34srun$ /$# B34SEXEC HRGRAPHICS plottype=%b34seval(&ptype) /$# scaunit(44) scafname(%b34seval(&scafname)) /$# %B34SEVAL(&IIN2) /$# gport(%b34seval(&dsn)) /$# nx =%b34seval(&nx) /$# ny =%b34seval(&ny) /$# nz =%b34seval(&nz) /$# ncontour=%b34seval(&ncontour) /$# angle =%b34seval(&angle) /$# rotation=%b34seval(&rotation) /$# %b34sif(&d3axis.eq.yes)then $ /$# d3axis /$# %b34sendif $ /$# %b34sif(&d3border.eq.yes)then $ /$# d3border /$# %b34sendif $ /$# $ /$# plot( %B34SEVAL(&var1) ) /$# display=%B34SEVAL(&display) /$# %B34SIF(&IIN4.NE.0)%THEN $ /$# TITLE = /$# %B34SEVAL(&IN4) /$# htitle= (%B34SEVAL(&htitle1),%b34seval(&htitle2)) /$# %B34SENDIF $ /$# axisheight=(%B34SEVAL(&haxis1),%b34seval(&haxis2)) /$# $ /$# B34SEEND $ B34SRETURN$ B34SEEND$ == ==VIEWGRAPH Views an Interactor Graph using INTVIEW program b34sexec options dodos('start c:\b34slm\intview.exe \max')$ b34srun$ ==