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