1. This is Dataplot macro ATISS.DP 2. Purpose--Generate an Average Total Inspection (AOQ) curve for a 3. single sample plan. 4. The ATI is defined as: 5. n + (1-Pa)*(nn-n)/n versus p 6. where 7. n = sample size 8. nn = lot size 9. p = desired probabilities 10. pa = bincdf(c,p,n) 11. where c is the acceptance number for defectives 12. 13. Input --N = sample size 14. --NN = lot size 15. --C = number of defectives 16. --PSTART = start value for p 17. --PINC = increment value for p 18. --PSTOP = stop value for p 19. Output--graph 20. 21DELETE ZZZZP ZZZZY ZZZZX 22. 23LET ZZZZC = C 24LET ZZZZN = N 25LET ZZZZNNNN = NN 26. 27LET PSTARTT = 0.001 28LET PINCT = 0.001 29LET PSTOPT = 0.20 30IF PSTART EXISTS 31 LET PSTARTT = PSTART 32END OF IF 33IF PINC EXISTS 34 LET PINCT = PINC 35END OF IF 36IF PSTOP EXISTS 37 LET PSTOPT = PSTOP 38END OF IF 39. 40LET ZZZZP = SEQUENCE PSTARTT PINCT PSTOPT 41LET ZZZZY = BINCDF(ZZZZC,ZZZZP,ZZZZN) 42LET ZZZZY = ZZZZN + (1 - ZZZZY)*(ZZZZNNNN-ZZZZN) 43. 44LABEL CASE ASIS 45TITLE CASE ASIS 46Y1LABEL Probability of Acceptance, Pa 47X1LABEL Lot Fraction Defective, p 48TITLE AOQ Single Sample (^ZZZZN, ^ZZZZC) Curve 49. 50PLOT ZZZZY VS ZZZZP 51. 52