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