(FILECREATED "26-Jul-86 17:14:28" ("compiled on " {DSK}DINDE>SCATTERPLOT.;2) "12-Nov-85 14:59:23" bcompl'd in "LOOPS with TEDIT 2-Jun-86 ..." dated " 2-Jun-86 16:58:15") (FILECREATED "26-Jul-86 16:58:34" {DSK}DINDE>SCATTERPLOT.;2 25930 changes to: (FNS SCATTERPLOTErase SCATTERPLOTApplyFunction) previous date: "24-Jul-86 16:05:02" {DSK}DINDE>SCATTERPLOT.;1) SCATTERPLOT D1 (P 13Q ScatterPlotSystem P 12Q YMinChanged? P 11Q XMinChanged? P 10Q YMin P 7 XMin P 6 OriginalScatterPlot P 5 Names P 4 Menu P 0 Plot I 2 ThePlot I 1 OptionalListOfNames I 0 ListOfXYPairs) ÔBd¦dg1o @ A @M oo# @°&d¹OIýó¨I_¿i_¿OIýó¨I_¿i_¿µÛ`dL¿dH¿dM¿dN¿dN¿O´O ºdJ¿O´O »dK ¿HgoHgOLgOH HOÉÉ H O(317Q REDRAWPLOTWINDOW 313Q SCATTERPLOTDraw 273Q SCATTERPLOTInitialize 267Q WINDOWADDPROP 256Q PLOTADDPROP 245Q PLOTADDMENUITEMS 220Q ABS 201Q ABS 46Q SCATTERPLOTCreate 36Q SCATTERPLOTGetNames 32Q LENGTH 23Q FM.FORMATMENU 11Q CREATEPLOT) (306Q ScatterPlot 301Q ScatterPlotSystem 262Q ScatterPlotSystem 251Q ScatterPlotSystem 236Q RIGHT 136Q ScatterPlotSystemTYPE# 6 ScatterPlot) ( 242Q ((Reexpress SCATTERPLOTSelectFunction "Selects and applies function(s) to the ScatterPlot")) 56Q 0.0 52Q 0.0 20Q (((TYPE TITLE LABEL % % % % % % X-Axis% % % % % % FONT (MODERN 14Q BOLD)) (TYPE TITLE LABEL % % % % % % Y-Axis% % % % % % FONT (MODERN 14Q BOLD))) ((TYPE NWAY ID X-AXIS LABEL % % % X**3% % % ) (TYPE NWAY ID Y-AXIS LABEL % % % Y**3% % % )) ((TYPE NWAY ID X-AXIS LABEL % % % X**2% % % ) (TYPE NWAY ID Y-AXIS LABEL % % % Y**2% % % )) ((TYPE NWAY ID X-AXIS LABEL % % % % X% % % % % ) (TYPE NWAY ID Y-AXIS LABEL % % % % Y% % % % % )) ((TYPE NWAY ID X-AXIS LABEL % % X**1/2% % ) (TYPE NWAY ID Y-AXIS LABEL % % Y**1/2% % )) ((TYPE NWAY ID X-AXIS LABEL % % X**1/3% % ) (TYPE NWAY ID Y-AXIS LABEL % % Y**1/3% % )) ((TYPE NWAY ID X-AXIS LABEL % % % LN% X% % % ) (TYPE NWAY ID Y-AXIS LABEL % % % LN% Y% % % )) ((TYPE NWAY ID X-AXIS LABEL % -X**-1/3% ) (TYPE NWAY ID Y-AXIS LABEL % -Y**-1/3% )) ((TYPE NWAY ID X-AXIS LABEL % -X**-1/2% ) (TYPE NWAY ID Y-AXIS LABEL % -Y**-1/2% )) ((TYPE NWAY ID X-AXIS LABEL % % -X**-1% % ) (TYPE NWAY ID Y-AXIS LABEL % % -Y**-1% % )) ((TYPE NWAY ID X-AXIS LABEL % % -X**-2% % ) (TYPE NWAY ID Y-AXIS LABEL % % -Y**-2% % )) ((TYPE NWAY ID X-AXIS LABEL % % % User% % % SELECTEDFN SCATTERPLOTApplyUserDefinedFunctionToX FONT (GACHA 12Q BOLD) MESSAGE "Selects a user defined function for the X-Axis") (TYPE NWAY ID Y-AXIS LABEL % % % User% % % SELECTEDFN SCATTERPLOTApplyUserDefinedFunctionToY FONT (GACHA 12Q BOLD) MESSAGE "Selects a user defined function for the Y-Axis")) ((LABEL " ")) ((LABEL % % % % % % % Add% % % % % % % SELECTEDFN SCATTERPLOTAddUserDefinedFunction FONT (MODERN 16Q BOLD) MESSAGE "Adds a user defined function to the ScatterPlot") (LABEL % % % % % % % Plot% % % % % % % SELECTEDFN SCATTERPLOTApplyFunction FONT (MODERN 16Q BOLD) MESSAGE "Applies the selected functions to the ScatterPlot")) (WINDOWPROPS TITLE "Select and Plot"))) SCATTERPLOTAddUserDefinedFunction D1 (P 2 NewFunction P 1 ScatterPlotSystem P 0 FreeMenuWindow) LHg Igo` Jgð‘JoJ hIÉh(73Q ERROR 70Q CONCAT 65Q MKSTRING 41Q PromptRead 14Q GETWINDOWUSERPROP 2 WHICHW) (103Q ScatterPlotSystem 51Q LAMBDA 36Q PROMPTWINDOW 27Q FUNCTION 24Q ScatterPlotSystem 11Q ScatterPlotSystem) ( 61Q "Not a valid Lisp Function - " 33Q "Enter (LAMBDA (X) ...):") SCATTERPLOTApplyFunction D1 (P 56Q FunctionName P 55Q FunctionName P 54Q OtherPlotObjects P 53Q ReplaceablePlotObjects P 52Q NewScatterPlot P 51Q Y P 50Q X P 47Q Name P 46Q Point P 40Q Data P 37Q ConsCell P 33Q ConsCell P 27Q ConsCell P 23Q ConsCell P 17Q YShift P 16Q XShift P 15Q OldScatterPlot P 14Q Names P 13Q OriginalTitle P 12Q YFunction P 11Q SelectedFunction P 10Q FunctionName P 7 XFunction P 6 SelectedFunction P 5 FunctionName P 4 Plot P 3 State P 2 ScatterPlotSystem P 0 FreeMenuWindow F 57Q CROSS) ñ/Hg H JÉ¼Kgð´KMdgð²4¿JÉ¤g°*JÉNµJÉ©Hg ¿°ñJÉ‚ Ogð’±yKdgð¡Odgð²5¿JÉ¤g°+JÉ OµJÉ©Hg ¿°ñJÉ‚ Ogð’±H L É(JÉ_¿JOO Oµ‚±¨L go¿JÉJÉ _¿O¢±¹O²_0JÉÉ°FdO&Odo ÔÔkOO&Odo ÔÔkO_ ¿O"µ O h_$‚O &_"¿µ»O$±îO²S0JÉÉ°:dO.Odo ÔÔkOO.kO_(¿O*µ O(h_,‚O(&_*¿µÇO,±™O²R0JÉÉ°:dO6kOO6Odo ÔÔkO_0¿O2µ O0h_4‚O0&_2¿µÇO4°D0JÉÉ°.dO>kOO>kO_8¿O:µ O8h_<‚O8&_:¿µÓO< `dO@¿OO@r)ODµŒ_L¿OBµ‚±ÐOF¹dI¿*JJÉJJÉJOOOTL goJOJOJÉÉ+LÉOV ,LOV ¿OX–LOX ¿LOTÉ JOTLgiLgiKgð´K-OZgð²ULgJÉi°H_N¿OLOL_R¿_PORONW^_J¿OHµOJh_H_F¿OD_D¿OB_B¿±þëOJ&_H¿°ëLOZ Kdgð¡.O\gð²LgJÉi…LO\ L gOL h(1755Q REDRAWPLOTWINDOW 1751Q PUTWINDOWPROP 1741Q GETPLOTWINDOW 1734Q SCATTERPLOTLabelYAxis 1725Q PLOTLABEL 1654Q SCATTERPLOTLabelXAxis 1577Q CREATEPOINT 1544Q PLOTLABEL 1475Q RESCALEPLOT 1465Q RESCALEPLOT 1445Q SCATTERPLOTDraw 1427Q SCATTERPLOTErase 1415Q SCATTERPLOTErase 1404Q LDIFFERENCE 1333Q PUTWINDOWPROP 1321Q GETPLOTWINDOW 1012Q MIN 655Q MIN 540Q MIN 514Q MIN 415Q PUTWINDOWPROP 403Q GETPLOTWINDOW 364Q SCATTERPLOTGetOldScatterPlot 336Q \INSUREWINDOW 333Q GETPLOTWINDOW 327Q CLOSEW 305Q SCATTERPLOTGetYFunction 267Q SCATTERPLOTApplyUserDefinedFunction 151Q SCATTERPLOTGetXFunction 133Q SCATTERPLOTApplyUserDefinedFunction 24Q FM.READSTATE 14Q GETWINDOWUSERPROP 2 WHICHW) (1744Q TITLE 1714Q ScatterPlotSystem 1710Q LEFT 1701Q % % % User% % % 1663Q Y-AXIS 1533Q ScatterPlotSystem 1527Q BOTTOM 1520Q % % % User% % % 1502Q X-AXIS 1471Q Y 1461Q X 1451Q ScatterPlotSystem 1440Q ScatterPlot 1375Q PLOT 1364Q ScatterPlot 1357Q ScatterPlotSystem 1347Q ScatterPlotSystem 1337Q ScatterPlotSystem 1324Q TITLE 1303Q ScatterPlotSystem 1273Q ScatterPlotSystem 1267Q ScatterPlotSystem 1257Q ScatterPlotSystem 1253Q ScatterPlotSystem 1170Q ScatterPlotTYPE# 1074Q ScatterPlot 1067Q ScatterPlotSystem 754Q ScatterPlot 747Q ScatterPlotSystem 627Q ScatterPlot 622Q ScatterPlotSystem 466Q ScatterPlot 461Q ScatterPlotSystem 433Q ScatterPlotSystem 422Q ScatterPlotSystem 406Q TITLE 347Q ScatterPlotSystem 316Q PUNT 276Q ScatterPlotSystem 264Q Y 255Q ScatterPlotSystem 240Q ScatterPlotSystem 232Q PUNT 224Q ScatterPlotSystem 214Q % % % User% % % 175Q Y-AXIS 162Q PUNT 142Q ScatterPlotSystem 130Q X 121Q ScatterPlotSystem 105Q ScatterPlotSystem 77Q PUNT 71Q ScatterPlotSystem 61Q % % % User% % % 43Q X-AXIS 33Q ScatterPlotSystem 11Q ScatterPlotSystem) ( 1330Q "Reconstructing..." 1007Q 5.960465E-8 652Q 5.960465E-8 535Q 5.960465E-8 511Q 5.960465E-8 412Q "Calculating...") SCATTERPLOTApplyUserDefinedFunction D1 (P 7 i P 0 ScatterPlotSystem I 1 Axis I 0 FreeMenuWindow) À@g 1ggAdgð”¿gˆgð´ghgggg`@HÉ° d_ Oh¼MµLh^L&½µáN¹dI¿di¿Adgð•¿o‰gð´oºdJ¿dg ¿dg¿jdnÿdh»dK ¿ hh (275Q EVAL 260Q MENU 117Q MKATOM 114Q MKSTRING 6 GETWINDOWUSERPROP) (231Q DEFAULTMENUHELDFN 222Q CLRPROMPT 201Q Y 166Q X 77Q ScatterPlotSystem 67Q MENUTYPE# 64Q FUNCTION 61Q with 56Q ScatterPlotSystem 53Q of 45Q UserDefinedYFunction 37Q Y 33Q UserDefinedXFunction 25Q X 20Q ScatterPlotSystem 15Q replace 3 ScatterPlotSystem) ( 210Q "Apply which function to the Y-axis?" 175Q "Apply which function to the X-axis?") SCATTERPLOTApplyUserDefinedFunctionToX D1 (P 0 FreeMenuWindow) Hg (14Q SCATTERPLOTApplyUserDefinedFunction 2 WHICHW) (11Q X) () SCATTERPLOTApplyUserDefinedFunctionToY D1 (P 0 FreeMenuWindow) Hg (14Q SCATTERPLOTApplyUserDefinedFunction 2 WHICHW) (11Q Y) () SCATTERPLOTCreate D1 (P 10Q Y P 7 X P 6 Name P 5 Point I 2 PlottingSymbol I 1 Names I 0 Data F 11Q CROSS) S `d@¿A@rIµ…½HµJHdI¿¾MM_¿_ONBµW¼KµLh[ºI¹H¸°ÃL&»°õ(73Q CREATEPOINT) (2 ScatterPlotTYPE#) () SCATTERPLOTDraw D1 (P 0 PlotObject I 1 PlotObjects I 0 Plot) AŒdH@iµòh(14Q ADDPLOTOBJECT) NIL () SCATTERPLOTErase D1 (P 0 PlotObject I 1 PlotObjects I 0 Plot) AŒdH@iµòh(14Q DELETEPLOTOBJECT) NIL () SCATTERPLOTGetNames D1 (P 1 i I 1 ListOfScatterPlotPointNames I 0 Number) 6A@A kÔ2IHó³!oI ¼Kµ Lh[ºIkÔY°äL&»°÷J (63Q \APPEND2 32Q CONCAT 27Q MKSTRING 5 LENGTH) NIL ( 23Q "Point ") SCATTERPLOTGetOldScatterPlot D1 (L (2 YFunction 1 XFunction 0 ScatterPlotSystem)) \AoôBoô–@É@É@É@ÉAdHðš¿BHð’HAIð˜BIð’IAJð´BJð´JNIL (44Q ScatterPlotSystem 36Q ScatterPlotSystem 30Q ScatterPlotSystem 21Q ScatterPlotSystem) ( 13Q (LAMBDA (Y) Y) 4 (LAMBDA (X) X)) SCATTERPLOTGetXFunctionA0001 D1 (I 0 X) @l (5 EXPT) NIL () SCATTERPLOTGetXFunctionA0002 D1 (L (0 X)) @dÖNIL NIL () SCATTERPLOTGetXFunctionA0003 D1 (I 0 X) @ (3 SQRT) NIL () SCATTERPLOTGetXFunctionA0004 D1 (I 0 X) @o (7 EXPT) NIL ( 4 .3333334) SCATTERPLOTGetXFunctionA0005 D1 (I 0 X) @ (3 LOG) NIL () SCATTERPLOTGetXFunctionA0006 D1 (I 0 X) o@o × (17Q MINUS 13Q EXPT) NIL ( 10Q .3333334 3 1.0) SCATTERPLOTGetXFunctionA0007 D1 (I 0 X) o@ × (13Q MINUS 7 SQRT) NIL ( 3 1.0) SCATTERPLOTGetXFunctionA0008 D1 (I 0 X) o@× (10Q MINUS) NIL ( 3 1.0) SCATTERPLOTGetXFunctionA0009 D1 (I 0 X) o@dÖ× (12Q MINUS) NIL ( 3 1.0) SCATTERPLOTGetXFunctionA0010 D1 (L (0 X)) @NIL NIL () SCATTERPLOTGetXFunction D1 (L (0 FunctionName)) _@dgð“ggð“g@dgð“ggð“g@dgð“ggð“g@dgð“ggð“g@gð“ggNIL (134Q SCATTERPLOTGetXFunctionA0010 130Q SCATTERPLOTGetXFunctionA0009 123Q % % -X**-2% % 116Q SCATTERPLOTGetXFunctionA0008 111Q % % -X**-1% % 105Q SCATTERPLOTGetXFunctionA0007 100Q % -X**-1/2% 72Q SCATTERPLOTGetXFunctionA0006 65Q % -X**-1/3% 61Q SCATTERPLOTGetXFunctionA0005 54Q % % % LN% X% % % 46Q SCATTERPLOTGetXFunctionA0004 41Q % % X**1/3% % 35Q SCATTERPLOTGetXFunctionA0003 30Q % % X**1/2% % 22Q SCATTERPLOTGetXFunctionA0002 15Q % % % X**2% % % 11Q SCATTERPLOTGetXFunctionA0001 4 % % % X**3% % % ) () SCATTERPLOTGetYFunctionA0001 D1 (I 0 Y) @l (5 EXPT) NIL () SCATTERPLOTGetYFunctionA0002 D1 (L (0 Y)) @dÖNIL NIL () SCATTERPLOTGetYFunctionA0003 D1 (I 0 Y) @ (3 SQRT) NIL () SCATTERPLOTGetYFunctionA0004 D1 (I 0 Y) @o (7 EXPT) NIL ( 4 .3333334) SCATTERPLOTGetYFunctionA0005 D1 (I 0 Y) @ (3 LOG) NIL () SCATTERPLOTGetYFunctionA0006 D1 (I 0 Y) o@o × (17Q MINUS 13Q EXPT) NIL ( 10Q .3333334 3 1.0) SCATTERPLOTGetYFunctionA0007 D1 (I 0 Y) o@ × (13Q MINUS 7 SQRT) NIL ( 3 1.0) SCATTERPLOTGetYFunctionA0008 D1 (I 0 Y) o@× (10Q MINUS) NIL ( 3 1.0) SCATTERPLOTGetYFunctionA0009 D1 (I 0 Y) o@dÖ× (12Q MINUS) NIL ( 3 1.0) SCATTERPLOTGetYFunctionA0010 D1 (L (0 Y)) @NIL NIL () SCATTERPLOTGetYFunction D1 (L (0 FunctionName)) _@dgð“ggð“g@dgð“ggð“g@dgð“ggð“g@dgð“ggð“g@gð“ggNIL (134Q SCATTERPLOTGetYFunctionA0010 130Q SCATTERPLOTGetYFunctionA0009 123Q % % -Y**-2% % 116Q SCATTERPLOTGetYFunctionA0008 111Q % % -Y**-1% % 105Q SCATTERPLOTGetYFunctionA0007 100Q % -Y**-1/2% 72Q SCATTERPLOTGetYFunctionA0006 65Q % -Y**-1/3% 61Q SCATTERPLOTGetYFunctionA0005 54Q % % % LN% Y% % % 46Q SCATTERPLOTGetYFunctionA0004 41Q % % Y**1/3% % 35Q SCATTERPLOTGetYFunctionA0003 30Q % % Y**1/2% % 22Q SCATTERPLOTGetYFunctionA0002 15Q % % % Y**2% % % 11Q SCATTERPLOTGetYFunctionA0001 4 % % % Y**3% % % ) () SCATTERPLOTInitialize D1 (I 0 Plot) @ggi@ggih(25Q PLOTTICS 12Q PLOTTICS) (21Q BOTH 16Q BOTTOM 6 BOTH 3 LEFT) () SCATTERPLOTLabelXAxis D1 (I 1 FunctionName I 0 Plot) ³Adgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAgð›@ggi@ggi(260Q PLOTLABEL 244Q PLOTLABEL 222Q PLOTLABEL 201Q PLOTLABEL 155Q PLOTLABEL 134Q PLOTLABEL 110Q PLOTLABEL 67Q PLOTLABEL 43Q PLOTLABEL 22Q PLOTLABEL) (254Q X 251Q BOTTOM 240Q X**3 235Q BOTTOM 227Q % % % X**3% % % 216Q X**2 213Q BOTTOM 205Q % % % X**2% % % 175Q X**1/2 172Q BOTTOM 163Q % % X**1/2% % 151Q X**1/3 146Q BOTTOM 140Q % % X**1/3% % 130Q LN% X 125Q BOTTOM 116Q % % % LN% X% % % 104Q -X**-1/3 101Q BOTTOM 73Q % -X**-1/3% 63Q -X**-1/2 60Q BOTTOM 51Q % -X**-1/2% 37Q -X**-1 34Q BOTTOM 26Q % % -X**-1% % 16Q -X**-2 13Q BOTTOM 4 % % -X**-2% % ) () SCATTERPLOTLabelYAxis D1 (I 1 FunctionName I 0 Plot) ³Adgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAdgðœ¿@ggigð›@ggiAgð›@ggi@ggi(260Q PLOTLABEL 244Q PLOTLABEL 222Q PLOTLABEL 201Q PLOTLABEL 155Q PLOTLABEL 134Q PLOTLABEL 110Q PLOTLABEL 67Q PLOTLABEL 43Q PLOTLABEL 22Q PLOTLABEL) (254Q Y 251Q LEFT 240Q Y**3 235Q LEFT 227Q % % % Y**3% % % 216Q Y**2 213Q LEFT 205Q % % % Y**2% % % 175Q Y**1/2 172Q LEFT 163Q % % Y**1/2% % 151Q Y**1/3 146Q LEFT 140Q % % Y**1/3% % 130Q LN% Y 125Q LEFT 116Q % % % LN% Y% % % 104Q -Y**-1/3 101Q LEFT 73Q % -Y**-1/3% 63Q -Y**-1/2 60Q LEFT 51Q % -Y**-1/2% 37Q -Y**-1 34Q LEFT 26Q % % -Y**-1% % 16Q -Y**-2 13Q LEFT 4 % % -Y**-2% % ) () SCATTERPLOTRedraw D1 (I 0 ScatterPlotSystem) @É @(10Q REDRAWPLOTWINDOW) (3 ScatterPlotSystem) () SCATTERPLOTSelectFunction D1 (P 2 Region P 1 Menu P 0 ScatterPlotSystem I 0 Plot) N@Ég'HÉ¹HÉ³,Hi¿I ÉIJJhdIo I h(112Q OPENW 105Q MOVEW 102Q GETBOXPOSITION 50Q \INSUREWINDOW) (40Q ScatterPlotSystem 30Q ScatterPlotSystem 21Q ScatterPlotSystem 10Q ScatterPlotSystem 3 PLOT) ( 76Q "Select position for function menu") (PRETTYCOMPRINT SCATTERPLOTCOMS) (RPAQQ SCATTERPLOTCOMS ((RECORDS ScatterPlot ScatterPlotSystem) (FNS SCATTERPLOT SCATTERPLOTAddUserDefinedFunction SCATTERPLOTApplyFunction SCATTERPLOTApplyUserDefinedFunction SCATTERPLOTApplyUserDefinedFunctionToX SCATTERPLOTApplyUserDefinedFunctionToY SCATTERPLOTCreate SCATTERPLOTDraw SCATTERPLOTErase SCATTERPLOTGetNames SCATTERPLOTGetOldScatterPlot SCATTERPLOTGetXFunction SCATTERPLOTGetYFunction SCATTERPLOTInitialize SCATTERPLOTLabelXAxis SCATTERPLOTLabelYAxis SCATTERPLOTRedraw SCATTERPLOTSelectFunction))) (DATATYPE ScatterPlot (Data PlotObjects)) (DATATYPE ScatterPlotSystem (Plot Menu MenuHasBeenDisplayedFlag Functions XTransformOffSet YTransformOffSet CurrentXFunction CurrentYFunction UserDefinedXFunction UserDefinedYFunction Names Display Original First Second Third)) (/DECLAREDATATYPE (QUOTE ScatterPlot) (QUOTE (POINTER POINTER)) (QUOTE ((ScatterPlot 0 POINTER) ( ScatterPlot 2 POINTER))) (QUOTE 4)) (/DECLAREDATATYPE (QUOTE ScatterPlotSystem) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( ScatterPlotSystem 0 POINTER) (ScatterPlotSystem 2 POINTER) (ScatterPlotSystem 4 POINTER) ( ScatterPlotSystem 6 POINTER) (ScatterPlotSystem 8 POINTER) (ScatterPlotSystem 10 POINTER) ( ScatterPlotSystem 12 POINTER) (ScatterPlotSystem 14 POINTER) (ScatterPlotSystem 16 POINTER) ( ScatterPlotSystem 18 POINTER) (ScatterPlotSystem 20 POINTER) (ScatterPlotSystem 22 POINTER) ( ScatterPlotSystem 24 POINTER) (ScatterPlotSystem 26 POINTER) (ScatterPlotSystem 28 POINTER) ( ScatterPlotSystem 30 POINTER))) (QUOTE 32)) (PUTPROPS SCATTERPLOT COPYRIGHT ("Massachusetts Institute of Technology" 1986)) NIL