A PC based expert system for positional tolerance allocation
Anuj B. Mehta · OhioLink ETD Center (Ohio Library and Information Network) · 1994
=DIALOG .BOX«(BO OK1.XLW )STEP1.X LM!CHUF .BOX) =FORMU LAC'no",A 26) =IF(G4=F ALSEGOT O(A 11» =IF(AND«( BOOK1.XL W)STEP1.XLM!SKS 139=1,(BO OK1.XlW lSTEP1.X lMISK$6= 2),GOTO (G 13» =IF(AND«( BOOK1.XL W)STEP1.XLM!SKS 139=2, (BOOK1.X LW)STEP 1.XLM!$K S6=2),GO TO(G22» =IF(AND«( BOOK1.XL W)STEP1.XLM!SKS 139=1,(BO OK1.XLW )STEP1.X LM!$K$6= 1),GOTO( G30» =IF{AND« (BOOK1.X LW)STEP 1.XLMISK $139=2, (BOOK1.X LW)STEP 1.xLMI$K$ 6= 1),GOTO (G39)) =FOR.CE LL("poste _oreo".(BOOK1.xLW)MAIN .XLS!post e_oreo,TR UE) =IF(AND« (BOOK1.X LW)disp/a yIS/S11 ="FIRSf',O FFSET(po ste_orea, 0,-2)=1),F ORMULA «(BOOK1 .XLW)MA IN.XLS!SX S4,OFFSE T(paste_o rea,0, 13») =IF(AND« (BOOK1.X LW)displa y/$ISll="F IRSf',OFF SET(past e_area,0, -2)= 1),FORMU LA«(BOO K1.XLW)M AIN.XLS1 SV$4,OFF SET(paste _oreo,O, 14») =IF(AND« (BOOK1.X LW)displo yl$l$ 11="DONE ",OFFSET (paste_ore a,O,-2)=(B OOK1.XLW )SCREEN 3.XLS!$ES9),FORMU LA«(BOO K1.XLW) MAIN.XLS !$Y$4,OF FSET(pas te_oreo,O , 14») =IF(AND« (BOOK1.X LW)displa yl$I$11 ="DONE", OFFSET( poste_ore o,O,-2)=(B OOK1.XL W)SCREE N3.XLSI$ ES9),FOR MULA«(B OOK1.XL W)MAIN.X LSI$Z$4,O FFSET(po ste_oreo,0 ,15») =NEXTO =GOTO« (BOOK1.X LWldispla y!$G$8) =FOR.CELL("po ste_area" ,(BOOK1.XLW)MAI N.XLSlpo ste_area, TRUE) =FORMUL A«(BOOK 1.XLW) MAIN.XLS !$X$4, OFFSET( paste_ore o,o' 13») =FORMU LA«(BOO K1.XLW)M AIN.XLSI$ Y$4,OFFS ET(paste_ oreo,O, 14» =FORMU LA«(BOO Kl ,XLW)MA IN.XLS/$Z $4,OFFSE T(paste_a reo,O, 15) =NEXTO =GOTO« (BOOK1.X LW)displa yl$G$8) =FOR.CELL('ma n_range" , (BOOK1.X LW)MAIN _MAN .XLSIMAN _RANGE .TRUE) =IF(AND« (BOOK1.X LW)displa y_manuoI !S\$5="FIR ST",OFFS ET(man_r ange,O,O )=1),FORM ULA«(BO OK1.XLW )MAIN.XL S!$X$4,O FFSET(m an_range, O,5») ::IF(AND« (BOOKl.xLW) display _manual!$ I$5="FIRS f', OFFSET( man_rong e,O,O)=1) ,FORMUL A«(BOOK 1.XLW)MA IN.XLS/$Y $4, OFFSET( man_rang e,O,6») =IF(AND« (BOOK1.X LW)displa y_manual l$IS5="DO NE",OFFS ET(mon_r ange,O,O )=(BOOK1 .XLW)SCR EEN2.XLS /$E$9),FO RMULA«( BOOKl.xLW)MAIN.X LS!$Y$4,O FFSET(m an_range ,O,6») =IF(AND« (BOOK1.X LWldispla y_manual !$1$5="DO NE",OFFS ET(man_r onge,O,O )=(BOOK1 .xLWlSCREEN2.XLS !$E$9),FO RMULA«( BOOK1.X LW)MA/N .xLSI$Z$4,OFFSET (man_ran ge,0,9»)) =NEXTO =GOTO« (BOOK1.XLWldisp lay_manu al!$G$2) =FOR.CELLC'm an_range ", (BOOK1.X LW)MAIN _MAN .XLS!MAN _RANGE .TRUE) =FORMU LA«(BOO K1.XLW)M AIN.XLS!$ X$4,OFFS ET(man_r ange,O,5) =FORMU LA«(BOO K1.XLW)M AIN.XLS!$ Y$4,OFFS ET(mon_r ange,0,6» =FORMUL A«(BOOK 1.XLW) MAIN.XLS !$Z$4,OFF SET(man_ ronge,O,9 )) =NEXTO =GOTO@ OOK1.XL W)display _manuqL !SGS2) \.0 -..