1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        EVPI:   COMPUTES THE EXPECTED VALUE OF PERFECT 
4  REM                INFORMATION
5  REM        36688 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
8  DATA 50,40000.,66,20,0
100  DIM X[100],G[401]
105  READ B,K,M
110  READ S,N
120  IF N=0 THEN 167
130  IF K>0 THEN 150
140  LET S=1-S
150  GOSUB 1000
160  LET S=ABS((B-M)/U)
165  GOTO 170
167  GOSUB 1000
170  IF K<0 THEN 200
180  LET U=(M-B)/S
190  GOTO 210
200  LET U=(B-M)/S
210  GOSUB 2000
220  LET E=ABS(K*S*L)
230  PRINT "BREAKEVEN VALUE";B;"SLOPE OF PAYOFF LINE";K
240  PRINT "MEAN VALUE";M;"STANDARD DEVIATION";S
250  PRINT "EXPECTED VALUE OF PERCENT INFORMATION"E
260  STOP 
1000  FOR N=1 TO 50
1020  READ X1
1025  LET X[N]=-X1
1030  LET X[101-N]=X1
1035  NEXT N
1040  IF S <= .005 THEN 1100
1050  IF S >= .995 THEN 1120
1060  LET N=INT(100*S+.5)
1070  LET U=X[N]+(X[N+1]-X[N])*(100*S-N+.5)
1080  GOTO 1200
1100  LET U=X[1]-100*(.005-S)*(X[2]-X[1])
1110  GOTO 1200
1120  LET U=X[100]+100*(S-.995)*(X[100]-X[99])
1200  RETURN 
1210  DATA 2.57583,2.17009,1.95996,1.81191,1.6954
1220  DATA 1.5081,1.5141,1.43953,1.3722,1.31058
1230  DATA 1.25357,1.20036,1.15035,1.10306,1.05812
1240  DATA 1.01522,.974114,.934589,.896473,.859617
1250  DATA .823894,.789192,.755415,.722479,.690309
1260  DATA .658338,.628006,.59776,.568051,.538836
1270  DATA .510074,.481727,.453762,.426148,.398855
1280  DATA .371856,.345125,.318639,.292375,.266311
1290  DATA .240426,.214702,.189113,.163658,.138304
1300  DATA .113038,.0878448,.0627068,.0376083,.0125335
2000  FOR N=1 TO 401
2020  READ G[N]
2030  NEXT N
2040  LET U1=ABS(U)
2050  LET U2=INT(U1*100)
2060  LET L=G[U2+1]+(G[U2+2]-G[U2+1])*(100*U1-U2)
2070  IF U >= 0 THEN 2100
2080  LET L=L+U1
2100  RETURN 
2500  DATA .3938,.394,.389,.3841,.3793,.3744,.3697,.3649,.3602,.3556
2510  DATA .3509,.3464,.3418,.3373,.3328,.3284,.324,.3197,.3154,.3111
2520  DATA .3069,.3027,.2986,.2944,.2904,.2863,.2824,.2784,.2745,.2706
2530  DATA .2668,.263,.2592,.2555,.2518,.2481,.2445,.2409,.2374,.2339
2540  DATA .2304,.227,.2236,.2203,.2169,.2137,.2104,.2072,.204,.2009
2550  DATA .1978,.1947,.1917,.1887,.1857,.1828,.1799,.1771,.1742,.1714
2560  DATA .1687,.1659,.1633,.1606,.158,.1554,.1528,.1503,.1478,.1453
2570  DATA .1429,.1405,.1381,.1358,.1334,.1312,.1289,.1267,.1245,.1223
2580  DATA .1202,.1181,.116,.114,.112,.11,.108,.1061,.1042,.1023
2590  DATA .1004,.0986,.0968,.095,.0933,.0916,.0899,.0882,.0865,.0849
2600  DATA .08332,.08174,.08019,.07866,.07716,.07568,.07422,.07279
2610  DATA .07138,.06999
2620  DATA .06862,.06727,.06595,.06465,.06336,.0621,.06086,.05964
2630  DATA .05844,.05726
2640  DATA .0561,.05496,.05384,.05274,.05165,.05059,.04954,.04851
2650  DATA .0475,.0465
2660  DATA .04553,.04457,.04363,.0427,.04179,.0409,.04002,.03916
2670  DATA .03831,.03748
2680  DATA .03667,.03587,.03508,.03431,.03356,.03281,.03208,.03137
2690  DATA .03067,.02998
2700  DATA .02931,.02865,.028,.02736,.02674,.02612,.02552,.02494
2710  DATA .02436,.0238
2720  DATA .02324,.0227,.02217,.02165,.02114,.02064,.02015,.01967
2730  DATA .0192,.01874
2740  DATA .01829,.01785,.01742,.01699,.01658,.01617,.01578,.01539
2750  DATA .01501,.01464
2760  DATA .01428,.01392,.01357,.01323,.0129,.01257,.01226,.01195
2770  DATA .01164,.01134
2780  DATA .01105,.01077,.01049,.01022,.00996,.0097,.00944,.0092
2790  DATA .00896,.00872
2800  DATA .008491,.008266,.008046,.007832,.007623,.007418,.007219
2810  DATA .007024,.006835,.006649
2820  DATA .006468,.006292,.00612,.005952,.005788,.005628,.005472
2830  DATA .00532,.005172,.005028
2840  DATA .004887,.00475,.004616,.004486,.004358,.004235,.004114
2850  DATA .003996,.003882,.00377
2860  DATA .003662,.003556,.003453,.003352,.003255,.003159,.003067
2870  DATA .002977,.002889,.002804
2880  DATA .00272,.00264,.002561,.002484,.00241,.002337,.002267
2890  DATA .002199,.002132,.002067
2900  DATA .002004,.001943,.001883,.001826,.001769,.001715,.001662
2910  DATA .00161,.00156,.001511
2920  DATA .001464,.001418,.001373,.00133,.001288,.001247,.001207
2930  DATA .001169,.001132,.001095
2940  DATA .00106,.001026,.000993,.000961,.00093,.000899,.00087
2950  DATA .000841,.000814,.000787
2960  DATA .0007611,.0007359,.0007115,.0006879,.000665,.0006423
2970  DATA .0006213,.0006004,.0005802,.0005606
2980  DATA .0005417,.0005233,.0005055,.0004883,.0004716,.0004555
2990  DATA .0004398,.0004247,.0004101,.0003959
3000  DATA .0003822,.0003689,.000356,.0003436,.0003316,.0003199
3010  DATA .0003087,.0002978,.0002873,.0002771
3020  DATA .0002673,.0002577,.0002485,.0002396,.0002311,.0002227
3030  DATA .0002147,.000207,.0001995,.0001922
3040  DATA .0001852,.0001785,.000172,.0001657,.0001596,.0001537
3050  DATA .000148,.0001426,.0001373,.0001322
3060  DATA .0001273,.0001225,.0001179,.0001135,.0001093,.0001051
3070  DATA .0001012,9.73E-05,9.36E-05,9.01E-05
3080  DATA 8.666E-05,8.335E-05,8.016E-05,7.709E-05,7.413E-05,7.127E-05
3090  DATA 6.852E-05,6.587E-05,6.331E-05,6.085E-05
3100  DATA 5.848E-05,5.62E-05,5.4E-05,5.188E-05,4.984E-05,4.788E-05
3110  DATA 4.599E-05,4.417E-05,4.242E-05,4.073E-05
3120  DATA 3.911E-05,3.755E-05,3.605E-05,3.46E-05,3.321E-05,3.188E-05
3130  DATA 3.059E-05,2.935E-05,2.816E-05,2.702E-05
3140  DATA 2.592E-05,2.486E-05,2.385E-05,2.287E-05,2.193E-05,2.103E-05
3150  DATA 2.016E-05,1.933E-05,1.853E-05,1.776E-05
3160  DATA 1.702E-05,1.632E-05,1.563E-05,1.498E-05,1.435E-05,1.375E-05
3170  DATA 1.317E-05,1.262E-05,1.208E-05,1.157E-05
3180  DATA 1.108E-05,1.061E-05,1.016E-05,9.72E-06,9.31E-06,8.91E-06
3190  DATA 8.52E-06,8.16E-06,7.81E-06,7.47E-06
3200  DATA 7.14E-06
3210  END 
