Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/cexpln.bas
There are 2 other files named cexpln.bas in the archive. Click here to see a list.
00020REM*********************************************************
00030REM CEXPLN CEXPLN CEXPLN CEXPLN CEXPLN CEXPLN
00040REM***********************************************************
00050REM
00060REM MODULES GIVES EXPLANATION OF CADA MONITOR
00070REM
00080REM*********************************************************
00090J=0
00100 DIM M(111)
00110MAT M=ZER
00120 FILES RFILE1,RFILE2,RFILE3
00160RESTORE#1
00161 INPUT# 1,K,J,I
00170REM *********************************************************
00180REM
00190REM K=77 IF REQUEST WAS MADE IN CMONTR FOR ANOTHER
00200REM READING OF THE EXPLANATION
00210REM
00220REM **********************************************************
00230IF K=77 THEN 680
00240IF K=66 THEN 320
00250PRINT L$
00260PRINT " THE COMPUTER ASSISTED DATA ANALYSIS (CADA) MONITOR"
00270PRINT
00280PRINT "IF YOU WANT AN EXPLANATION OF THE CADA MONITOR TYPE '77'."
00290PRINT "IF YOU WANT A LISTING OF THE CADA COMPONENTS TYPE '99'."
00300PRINT "IF YOU WANT A PARTICULAR COMPONENT TYPE ITS NUMBER."
00310REM
00320INPUT I
00330IF I=-9999 THEN 580
00340IF I=99 THEN 1620
00350IF I=77 THEN 680
00360IF I <> 55.5 THEN 420
00370K=73
00380I=0
00390J=0
00400SCRATCH#1
00401 PRINT # 1,K,J,I
00410CHAIN "CMONTR"
00420IF I <> 66.6 THEN 510
00430K=74
00440GOTO 400
00450REM ***************************************************************
00460REM
00470REM IF '99', '77', OR '-9999' IS NOT SPECIFIED THEN IT IS
00480REM ASSUMED THAT HE WANTS TO GO DIRECTLY TO A COMPONENT
00490REM
00500REM ****************************************************************
00510J=I
00520REM
00530REM I=3 IF THE REQUEST WAS FOR A PARTICULAR COMPONENT
00540REM J IS SET EQUAL TO THE NUMBER OF REQUESTED COMPONENT
00550REM***************************************************************
00560I=3
00570GOTO 1710
00580PRINT
00590GOSUB 610
00600GOTO 280
00610PRINT
00620 REM
00630PRINT"THE -9999 RESTART OPTION IS NOT AVAILABLE AT THIS POINT."
00640REM
00650PRINT"IF YOU WANT A RESTART USE THE PANIC BUTTON OPTION."
00660PRINT
00670RETURN
00680PRINT L$
00690PRINT "THE CADA MONITOR IS AN INTERACTIVE SYSTEM FOR USE IN BAYESIAN"
00700PRINT "STATISTICAL DATA ANALYSIS. YOUR INTERACTION WITH THE COMPUTER"
00710PRINT "WILL BE ENTIRELY THROUGH THE USE OF THE ENGLISH LANGUAGE AND"
00720PRINT "THE ARABIC NUMERALS. YOU WILL USE NO SPECIALIZED COMPUTER"
00730PRINT "PROGRAMMING LANGUAGE. "
00740PRINT
00750PRINT "THIS SYSTEM IS CAREFULLY DESIGNED FOR USE BY PERSONS HAVING"
00760PRINT "A WIDE VARIETY OF EXPERIENCE IN BAYESIAN DATA ANALYSIS. THE"
00770PRINT "LESS EXPERIENCED PERSON WILL LIKE THE CAREFUL STEP-BY-STEP"
00780PRINT "GUIDANCE PROVIDED BY THE MONITOR. THE MORE EXPERIENCED"
00790PRINT "PERSON WILL LIKE THE POWER AND VERSATILITY OF THE SYSTEM -"
00800PRINT "THE ABILITY TO DO A WIDE RANGE OF COMPLEX ANALYSES QUICKLY,"
00810PRINT "EFFORTLESSLY AND INEXPENSIVELY."
00820PRINT
00830PRINT "THIS COMBINATION OF GUIDANCE, POWER AND VERSATILITY SHOULD"
00840PRINT "HELP THOSE AT ALL LEVELS OF EXPERIENCE INCREASE THEIR LEVEL"
00850PRINT "OF CAPABILITY MORE QUICKLY THAN THEY WOULD USING THE MORE"
00860PRINT "CONVENTIONAL DATA ANALYSES SYSTEMS."
00870PRINT
00880PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
00890INPUT I
00900IF I <> -9999 THEN 930
00910GOSUB 610
00920GOTO 890
00930PRINT L$
00940PRINT "THE CADA MONITOR IS STRUCTURED INTO THREE LEVELS."
00950PRINT "==================== CADA MONITOR ========================="
00960PRINT "BINARY UNIVARIATE ... LEVEL I"
00970PRINT "MODELS NORMAL MODELS (COMPONENTS)"
00980PRINT "--------------------------------------------------------------"
00990PRINT "BETA MIXED BETA BETA NEGATIVE ... LEVEL II"
01000PRINT "BINOMIAL BINOMIAL BINOMIAL (MODELS)"
01010PRINT "--------------------------------------------------------------"
01020PRINT "PRIOR PREPOSTERIOR POSTERIOR ... LEVEL III"
01030PRINT "DISTRIBUTION ANALYSIS ANALYSIS (MODULES)"
01040PRINT "============================================================="
01050PRINT "WHEN YOU ACCESS THE MONITOR YOU ARE GIVEN A LISTING OF THE"
01060PRINT "COMPONENTS FROM WHICH YOU ARE TO SELECT THE ONE APPROPRIATE"
01070PRINT "FOR YOUR PROBLEM, FOR EXAMPLE, THE BINARY MODELS COMPONENT."
01080PRINT "YOU ARE THEN TO SELECT FROM THE LISTING OF THE BINARY MODELS"
01090PRINT "THE APPROPRIATE MODEL, FOR EXAMPLE, THE BETA-BINOMIAL MODEL."
01100PRINT "NEXT YOU ARE TO SELECT FROM THE LISTING OF THE MODULES OF THE"
01110PRINT "BETA-BINOMIAL MODEL THE MODULE CORRESPONDING TO THE POINT IN"
01120PRINT "THE ANALYSIS WHERE YOU WANT TO BEGIN YOUR ANALYIS."
01130PRINT
01140PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
01150INPUT I
01160PRINT L$
01170PRINT " HORIZONTAL AND VERTICAL ACCESS"
01180PRINT
01190PRINT "YOU WILL FIND THAT A FEATURE OF THE MONITOR IS THE EASE OF"
01200PRINT "HORIZONTAL ACCESS BETWEEN MODULES OF A MODEL AND VERTICAL"
01210PRINT "ACCESS FROM ONE MODEL OR COMPONENT TO ANOTHER. WITHIN MODEL"
01220PRINT "ACCESS FROM MODULE TO MODULE IS AUTOMATIC AS YOU GO THROUGH"
01230PRINT "THE PORTIONS OF THE BAYESIAN ANALYSIS YOU WANT TO UNDERTAKE."
01240PRINT "THE NEEDED RESULTS ARE PASSED FROM ONE MODULE TO THE NEXT. IF"
01250PRINT "YOU BEGIN AT OTHER THAN THE FIRST MODULE YOU MUST PROVIDE THE"
01260PRINT "NEEDED RESULTS FROM THE PREVIOUS MODULES."
01270PRINT
01280PRINT "UPON COMPLETION OF A MODULE YOU ARE GIVEN THESE OPTIONS. "
01290PRINT "(1) RETURN TO ANY MODULE IN THAT MODEL. IF YOU DO THIS THE"
01300PRINT " THE RESULTS OF ALL MODULES PRIOR TO THE ONE TO WHICH YOU"
01310PRINT " ARE RETURNING REMAIN AVAILABLE."
01320PRINT "(2) SELECT A MODEL WITHIN THE SAME COMPONENT. IF YOU SELECT"
01330PRINT " THE SAME MODEL THE RESULTS OF THE PREVIOUS MODEL WILL"
01340PRINT " NOT BE AVAILABLE."
01350PRINT "(3) SELECT A DIFFERENT COMPONENT."
01360PRINT "(4) EXIT THE CADA MONITOR."
01370PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
01380INPUT I
01390PRINT L$
01400PRINT " RESTART OPTION"
01410PRINT
01420PRINT "ANY TIME YOU ARE ASKED FOR INPUT YOU CAN INITIATE A RESTART"
01430PRINT "BY TYPING '-9999'. YOU ARE THEN GIVEN A LIST OF THE OPTIONS"
01440PRINT "DESCRIBED IN THE PREVIOUS SECTION. AS PRINTED THESE ARE"
01450PRINT " 1. RESTART AT THE BEGINNING OF THIS MODULE"
01460PRINT " 2. SELECT A DIFFERENT MODULE FROM THIS MODEL"
01470PRINT " 3. SELECT A DIFFERENT MODEL FROM THIS COMPONENT"
01480PRINT " 4. SELECT A DIFFERENT COMPONENT"
01490PRINT " 5. EXIT CADA MONITOR."
01500PRINT
01510PRINT " THE PANIC BUTTON"
01520PRINT
01530PRINT "IF YOU WANT TO STOP EXECUTION OF A MODULE AT SOME TIME OTHER"
01540PRINT "THAN WHEN INPUT IS REQUESTED YOU CAN DO SO BY TYPING THE"
01550PRINT "'INTERRUPT' OR 'BREAK' APPROPRIATE FOR THE TYPE OF TERMINAL"
01560PRINT "AND COMPUTER SYSTEM YOU ARE USING. THIS WILL DISENGAGE YOU "
01570PRINT "FROM THE MONITOR. TO REESTABLISH COMMUNICATION WITH THE"
01580PRINT "CADA MONITOR YOU MUST 'GET-CADA' AND 'RUN' JUST AS YOU WOULD"
01590PRINT "IF YOU WERE INITIALY ACCESSING THE MONITOR."
01600PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
01610INPUT I
01620I=1
01630REM ****************************************************************
01640REM
01650REM 999 INFORMS CMONTR THAT ENTRY VIA CEXPLN
01660REM I=1 IF EXPLANATION OR COMPONENTS LISTING REQUESTED
01670REM I=3 IF PARTICULAR COMPONENT REQUESTED
01680REM J=NUMBER OF REQUESTED COMPONENT OR 0
01690REM
01700REM ****************************************************************
01710SCRATCH#1
01711 PRINT # 1,9999,I,J,0,0,0
01720CHAIN "CMONTR"
09999END