1This is file atids.men--Generate Double Sample ATI Chart
2
3--------------------line 3
41. Double Sample ATI Chart
52. Macro
63.
74. Acceptance Number for Defectives for Sample 1:
84. @CE 1 0 42 50 ?
95. Sample size for Sample 1:
105. @CE 2 0 42 50 ?
116. Acceptance Number for Defectives for Sample 2:
126. @CE 3 0 42 50 ?
137. Sample size for Sample 2:
147. @CE 4 0 42 50 ?
158. Lot Size:
168. @CE 5 0 42 50 ?
179.
1810. Start value for p (default = 0.001):
1910. @CE 6 0 42 50 ?
2011. Increment for p (default = 0.001):
2111. @CE 7 0 42 50 ?
2212. Stop value for p (default = 0.20):
2312. @CE 8 0 42 50 ?
2413.
2514.
2615. Generate the Chart?:
27--------------------
28DELETE ZZZZP ZZZZY ZZZZY1 ZZZZY2 ZZZZT1 ZZZZT2
29.
30LET ZZZZC1 = _1
31LET ZZZZN1 = _2
32LET ZZZZC2 = _3
33LET ZZZZN2 = _4
34LET ZZZZN3 = _5
35.
36LET PSTART = 0.001
37LET PINC = 0.001
38LET PSTOP = 0.20
39LET PSTART = _6
40LET PINC = _7
41LET PSTOP = _8
42.
43LET ZZZZP = SEQUENCE PSTART PINC PSTOP
44LET ZZZZY1 = BINCDF(ZZZZC1,ZZZZP,ZZZZN1)
45LET ZZZZN = SIZE ZZZZY1
46LET ZZZZY2 = 0 FOR I = 1 1 ZZZZN
47LET ZZZZK1 = ZZZZC1+1
48LET ZZZZK2 = ZZZZC2
49FEEDBACK OFF
50LOOP FOR K = ZZZZK1 1 ZZZZK2
51    LET ZK = K
52    LET ZK1 = ZZZZC2 - ZK
53    LET ZZZZT1 = BINPDF(ZK,ZZZZP,ZZZZN1)
54    LET ZZZZT2 = BINCDF(ZK1,ZZZZP,ZZZZN2)
55    LET ZZZZY2  = ZZZZY2 + ZZZZT1*ZZZZT2
56END OF LOOP
57FEEDBACK ON
58LET ZZZZY = ZZZZN1*ZZZZY1+(ZZZZN1+ZZZZN2)*ZZZZY2+ZZZZN3*(1-ZZZZY1+ZZZZY2)
59TITLE ATI Double Sample Curve
60.
61LABEL CASE ASIS
62TITLE CASE ASIS
63Y1LABEL Average Total Inspection
64X1LABEL Lot Fraction Defective, p
65.
66PLOT ZZZZY VS ZZZZP
67LABEL
68TITLE
69--------------------
70
71--------------------
72