(FILECREATED " 3-Apr-86 14:15:41" ("compiled on " {QV}RELEASE0.1>DEMO>IDLDEMO.;1) "12-Nov-85 14:59:23" recompiled changes: IDLDEMO in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED " 3-Apr-86 14:15:04" {QV}RELEASE0.1>DEMO>IDLDEMO.;1 7513 changes to: (FNS IDLDEMO) previous date: "12-Feb-86 12:07:20" {QV}SOURCES>IDLDEMO.;7) IDLDEMO D1 (P 4 IDLDEMO.MENU P 3 TEDITWINDOW P 2 TTYWINDOW F 5 TtyDisplayStream F 6 LOTTERY F 7 LOTTERY2 F 10Q SHADE1 F 11Q LOTTERY3 F 12Q IDLDEMO.TTYWINDOW F 13Q IDLDEMO.SHADEDITEM) ºU n:lnÂn¼ ohi `do¿dg¿do¿dg ¿dg¿jdnÿdhHdI ¿g c g cg cJcdln:n,l– LJgg LÉcdLW gK J h(266Q GIVE.TTY.PROCESS 262Q TEDIT 253Q IDLDEMO.SHADEDOUBLEITEM 233Q ATTACHMENU 220Q SHAPEW 215Q CREATEREGION 172Q IDLMATRIX 167Q READFILE 157Q IDLMATRIX 154Q READFILE 144Q IDLMATRIX 141Q READFILE 32Q CREATEW 21Q CREATEREGION 3 WFROMDS) (256Q DEMOSCRIPT.TEDIT 237Q MENU 230Q TOP 225Q RIGHT 164Q LOTTERY3.DATA 151Q LOTTERY2.DATA 136Q LOTTERY1.DATA 100Q DEFAULTMENUHELDFN 71Q CLRPROMPT 52Q IDLDEMO.WHENSELECTEDFN 35Q MENUTYPE#) ( 62Q "Typescript Menu for IDL demo" 43Q (("Inspect Lottery data" (INSPECT LOTTERY)) ((INSPECT LOTTERY) (INSPECT LOTTERY)) ("Select winning numbers" (SETQ NUMBERS IT)) ((SETQ NUMBERS IT) (SETQ NUMBERS IT)) ("Histogram of winning numbers" (HISTOGRAM NUMBERS)) ((HISTOGRAM NUMBERS) (HISTOGRAM NUMBERS)) ("Select payoffs" (SETQ PAYOFF IT)) ((SETQ PAYOFF IT) (SETQ PAYOFF IT)) ("Histogram of payoffs" (SETQ HIST (HISTOGRAM PAYOFF))) ((HISTOGRAM PAYOFF) (SETQ HIST (HISTOGRAM PAYOFF))) ("Add $500 line to Histogram" (PLOTLINE HIST NIL 764Q (QUOTE $500) 2)) ((PLOTLINE HIST NIL 764Q) (PLOTLINE HIST NIL 764Q (QUOTE $500) 2)) ("Relate Payoff to winning number" (SETQ SCAT (SCATTERPLOT PAYOFF NUMBERS))) ((SCATTERPLOT PAYOFF NUMBERS) (SETQ SCAT (SCATTERPLOT PAYOFF NUMBERS))) ("Regress payoff on number" (PROGN (SETQ CV (COVAR LOTTERY)) (SETQ SWEPT (SWEEP CV (QUOTE Number))) (SETQ RESULT (AT (REGRESS CV SWEPT) (QUOTE (Payoff ALL ALL)))) (SHOW))) (((COVAR LOTTERY) etc.) (PROGN (SETQ CV (COVAR LOTTERY)) (SETQ SWEPT (SWEEP CV (QUOTE Number))) (SETQ RESULT (AT (REGRESS CV SWEPT) (QUOTE (Payoff ALL ALL)))) (SHOW))) ("Inspect result" (INSPECT RESULT)) ((INSPECT RESULT) (INSPECT RESULT)) ("Extract Coefficients" (SETQ COEF (AT IT (QUOTE ((Number Constant)))))) ((SETQ COEF IT) (SETQ COEF (AT IT (QUOTE ((Number Constant)))))) ("Add the regression line" (ADDLINESTOPLOT SCAT COEF (QUOTE $500) 2)) ((ADDLINESTOPLOT SCAT COEF) (ADDLINESTOPLOT SCAT COEF (QUOTE $500) 2)) ("Add smoother to menu" (PLOTADDMENUITEMS SCAT (QUOTE RIGHT) (QUOTE ((Smooth SCATTERPLOT.RUNNINGREGRESS))))) ((PLOTADDMENUITEMS SCAT ...) (PLOTADDMENUITEMS SCAT (QUOTE RIGHT) (QUOTE ((Smooth SCATTERPLOT.RUNNINGREGRESS))))) ("Select Payoff's for Second Year" (SETQ PAYOFF2 (AT LOTTERY2 (QUOTE (Payoff2))))) ((AT LOTTERY2 (QUOTE (Payoff2))) (SETQ PAYOFF2 (AT LOTTERY2 (QUOTE (Payoff2))))) ("Select Payoff's for Third Year" (SETQ PAYOFF3 (AT LOTTERY3 (QUOTE (Payoff3))))) ((AT LOTTERY3 (QUOTE (Payoff3))) (SETQ PAYOFF3 (AT LOTTERY3 (QUOTE (Payoff3))))) ("Compare payoff's for three years" (SETQ BOXPLOT (BOXPLOTS PAYOFF PAYOFF2 PAYOFF3))) ((BOXPLOTS PAYOFF ...) (SETQ BOXPLOT (BOXPLOTS PAYOFF PAYOFF2 PAYOFF3))) ("Add $500 mark to Boxplots" (PLOTLINE BOXPLOT 0 764Q (QUOTE $500) 2)) ((PLOTLINE BOXPLOT 0 764Q) (PLOTLINE BOXPLOT 0 764Q (QUOTE $500) 2))) 25Q "N.J. Pick-It Lottery Data") IDLDEMO.CLEANUP D1 (P 0 TTYWINDOW F 1 TtyDisplayStream) Q H Hg h(21Q PUTWINDOWPROP 12Q DETACHALLWINDOWS 3 WFROMDS) (16Q MINSIZE) () IDLDEMO.SHADEDOUBLEITEM D1 (P 3 REGION2 P 2 REGION1 P 1 ITEM2 P 0 MENUW I 2 SHADE I 1 MENU I 0 ITEM1) \A @AÉ "@A ZIA [hddHJJJJggB hddHKKKKggB h(130Q BITBLT 73Q BITBLT 35Q MENUITEMREGION 27Q MENUITEMREGION 15Q MEMB 3 WFROMMENU) (123Q INVERT 120Q TEXTURE 66Q INVERT 63Q TEXTURE 10Q MENU) () IDLDEMO.WHENSELECTEDFN D1 (P 1 TAIL P 0 FORM I 2 BUTTON I 1 MENU I 0 ITEM F 2 IDLDEMO.SHADEDITEM F 3 SHADE1 F 4 IDLDEMO.TTYWINDOW) [@RAS T Hdgð›…d ¿µøƒ ¿@AÉ I kåjð’I€Icdµ AÉcAS h(127Q IDLDEMO.SHADEDOUBLEITEM 70Q LENGTH 61Q MEMB 46Q BKSYSBUF 35Q BKSYSBUF 17Q GIVE.TTY.PROCESS 13Q IDLDEMO.SHADEDOUBLEITEM) (115Q MENU 54Q MENU 25Q PROGN) () (PRETTYCOMPRINT IDLDEMOCOMS) (RPAQQ IDLDEMOCOMS ((FNS IDLDEMO IDLDEMO.CLEANUP IDLDEMO.SHADEDOUBLEITEM IDLDEMO.WHENSELECTEDFN))) (PUTPROPS IDLDEMO COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL