; ; Set up data. ; Pressure = (/835.000000,832.000000,827.000000,821.000000,791.000000,693.000000,\ 627.000000, 606.000000,560.000000,555.000000,500.000000,383.000000,355.000000,\ 339.000000,314.000000,209.000000,192.000000,143.000000,111.000000, 100.000000,\ 95.300003,76.400002,62.599998,58.299999,47.299999,30.000000,27.200001,21.500000\ /) Temp = (/ -13.500000, -10.500000, -5.500000, -3.100000, -1.300000, -6.700000, \ -12.900000, -13.100000, -17.700001, -16.900000, -21.299999, -37.099998, \ -40.099998, -41.900002, -42.099998, -62.700001, -59.299999, -60.700001, \ -52.099998, -55.099998, -55.900002, -63.500000, -57.900002, -60.500000, \ -58.099998, -60.900002, -54.900002, -57.299999/) ; ; Create X workstation with default color map and configuration. ; x = create "x" xWorkstationLayerClass noparent end create ; ; Create HLU data object. ; mydata = create "mydata" coordArraysLayerClass noparent "caXArray" : Temp "caYArray" : Pressure end create ; ; Create HLU XyPlot object and assign data_obj to it as data. ; xy_plot = create "xy_plot" xyPlotLayerClass x "vpXF" : .25 "vpYF" : .75 "vpWidthF" : .5 "vpHeightF" : .5 "xyCurveData" : mydata "tiMainOn" : "True" "tiXAxisOn" : "True" "tiYAxisOn" : "True" end create ; ; Draw plot. ; draw(xy_plot) ; ; Use frame to pause and wait for mouse click, which then ; clears the workstation. ; frame(x) ; ; Free variables used in this script. ; delete(Pressure) delete(Temp) delete(mydata) delete(xy_plot) delete(x)