;;SUBTREE CS MAIN Crankshaft main tree
;;TREE CRANKS. 1 XO.2.2 RFDES.3.2 ANALYS.5.2 YJN.6.2
1 4 2 2 2
;;CALLED SUBTREES 11 MJ
12 2201 13 4010
;;TEXT
1 Crankshaft main tree 2 X.O = 1
3 RF design.inp
XO.2.2 RFDES.3.7 ANALYS.5 FIN1.7.2 CALLMS.9.12 PC.l1.7
4 Call main journal input tree 5 Call analysis tree
6
7 FIN.l=A 8 GRIND.2 = .05
CALLMA.
YJN.6 GRIND.8.2 CALLMN.I0.13 WAIT.12.7
9 Call main journal material removal subtree 10 Call main cheek material removal subtree 11 PC
12 WAIT
;;END
;;SUBTREE MJ Crankshaft Main Journal Input
;;TREE
CHECK.l.2 9 NUMBER. 2 NUMBNR.3
NUMHER.4 THRUST. 5
MAINF.6 MAINFK.7
MAINFW.8 MAINJ.9
CHECKJ. I0
NUMBER.2.3 2 NMAIN.l1 OTHER. 12
OTHER. 12.2 1 NMAINN.13.1
NUMBNR.3.3 2 NCHKE.14 OTHERT.15
OTHERT.15.2 1 NCHKO.16.1
NUMHER.4.3 2 NCYLE.17 OTHERB.18
OTHERB.18.2 NCYLO.19.1
THRUST.5.3 2 OTHERP .21.2 1
MAINF.6.3 2
OTHZRV.24.2 1 MAINFK.7.3 2 OTHERF.27.2 1 MAINFW.8.3 2 OTHERS.30.2 1
MAINJ.9.3 2
OTHERH.33.2 1 CHECKJ.I0.2 4 TVS.37
CUH.35.2 XNMH.39.2 BHJ.36.2 XNC.4I.2 TVS.37.2 X1.43.2 UJZ.38.2
Xl W.45.2 1
;;CALLED SUBTREES 11 2079
12 2042 13 2081 14 2045
;;TEXT
ITMEQ.20 ITMO.22.1 RMFEQ.23 RMF3.25.1 LUMFE.26 LUMF3.28.1 UMFEQ.29 UMF3.31.1 DMEQ.32 DM2E.34.1 CUH.35 UJZ.38 XNMH.39.2 CALLMY.40.11 XNC.41.2 CALLMZ.42.I3 X1.43.2
CALLM.44.12 Xl W.45.2 CALLMB.46.14
1 Check main journal input data 2 Number of mains
3 Number of cheeks 4 Number of cylinders 5 Thrust main bearing # 6 Main fillet radius
7 Main fillet undercut length 8 Main fillet undercut depth 9 Main journal diameter 10 Check recursive values 11 NMAIN EQ NMAIN 12 OTHER
OTHERP.21 OTHZRV.24 OTHERF.27 OTHERS. 30 OTHERH.33 BHJ.36
13 NMAIN.O[ 4,8] Enter the number of main journals 14 NCHK EQ NCHK
15 OTHER
16 NCHK.O[4,14] Enter the number of main cheeks
17 NCYL EQ NCYL 18 OTHER
19 NCYL.0[4, 12] Enter the number of cylinders 20 ITMEQ ITM
21 OTHER
22 ITM.O[l,NMAIN] Which main takes the thrust? ( 1 - &NMAIN) 23 RMFEQRMF
24 OTHER
25 RMF.3 Enter the main fillet radius 26 LUMF EQ LUMF
27 OTHER
28 LUMF.3 Enter the length of the main fillet undercut 29 UMF EQUMF
30 OTHER
31 UMF. 3 Enter the depth of the main fillet undercut 32 DMEQDM
33 OTHER
34 DM.2 Enter the main journal diameter 35
36 37 38
39 X.O = 1
40 Call main joumallength subtree 41 X.O=l
42 Call main shoulder thickness subtree 43 X.O = 1
44 Call main shoulder radius subtree 45 X.O == 1
46 Call main shoulder fillet radius subtree
;;END
;;SUBTREE 2042 Crankshaft Main shoulder radius
;;TREE
MAINS.l .2 2 TESTF.2
TESTF.2.3 2 RMSX.4
OTHER.S.2 RMSXK.6.1
TESTFB.3.3 2 XL TN.7 XL TN.7.2 1 XX.9.2
XX.9.2 1 CALLS.lO.ll
;;CALLED SUBTREES 11 2042
;;TEXT
TESTFB.3 OTHER. 5 OTHERW.8
1 Main shoulder radius
2 Test for main shoulder radius 3 Test for more
4 RMS(X) EQ RMS(X) 5 OTHER
6 RMS(X).2 Enter the radius of the main shoulder # &X 7 XLTNCHK
8 OTHER 9 X.O =X + 1 lO Call subtree 2042
;;END
;;SUBTREE 2045 Crankshaft Main shoulder fillet
;;TREE
MAINS.l.2 2 TESTF.2
TESTF.2.3 2 RMSXA
OTHER.5.2 1 RMSXK.6.1
TESTFB.3.3 2 XLTN.7
XLTN.7.2 XX.9.2
XX.9.2 1 CALLS.lO.ll
;;CALLED SUBTREES 11 2045
;;TEXT
1 Main shoulder fillet radius
2 Test for main shoulder fillet radius 3 Test for more
4 RMSF(X) EQ RMSF(X) 5 OTHER
TESTFB.3 OTHER.S OTHERW.8
6 RMSF(X).2 Enter the radius of the main shoulder fillet # &X 7 XLTNCHK
8 OTHER 9 X .O=X+ 1 10 CalI subtree 2045
;;END
;;SUBTREE 2079 Crankshaft Main journal length
;;TREE MAINJ.l.2 TESTF.2.3 OTHER.5.2
2 2 1
TESTF.2 LMXA LMXN.6.1
TESTFS.3.3 2 XLTN.7
XLTN.7.2 XX.9.2
XX.9.2 1 CALLS. 10.1 1
;;CALLED SUBTREES
TESTFS.3 OTHER.S OTHERP.8
11 2079
;;TEXT
1 Main journal length checks 2 Test for length
3 Test for more 4 LM(X) EQ LM(X) 5 OTHER
6 LM(X).2 Enter the main journal length of journal # &X 7 X LTNMAIN
8 OTHER 9 X.O = X + 1
10Call subtree 2079
;;END
;;SUBTREE 2081 Crankshaft Main journal shoulder
;;TREE MAINJ.l.2 TESTF.2.3 OTHER.5.2 TESTFH.3.3
2 2 1 2
TESTF.2 TMSX.4 TMSXU.6.1 XLTN.7
XLTN.7.2 XX.9.2
XX.9.2 1 CALLS.IO.ll
;;CALLED SUBTREES 11 2081
;;TEXT
1 Main journal thickness check 2 Test for thickness variable 3 Test for more
4 TMS(X) EQ TMS(X) 5 OTHER
TESTFH.3 OTHER. 5 OTHERA.8
6 TMS(X).3 Enter the thickness of the main journal shoulder # &X 7 XLTNCHK
8 OTHER 9 X.O = X + 1 10 Call subtree 2081
;;END
;;SUBTREE 2201 Journal diam material calc
;;TREE
MAINJ.1.2 3 CALLR.2.11 CALLG.4.13
;;CALLED SUBTREES 11 2301
12 2401
CALLF.3.1
13 2501
;;TEXT
1 Main journal diameter material removal calculation 2 Call rough removal calculation subtree
3 Call finish removal calculation subtree 4 Call grind removal calculation subtree
;;END
;;SUBTREE MJ Crankshaft Main Journal Input
;;TREE CHECK. 1.2
NUMBER.2.3 OTHER. 12.2 NUMBNR.3.3 OTHERT.15.2 NUMHER.4.3 OTHERB.18.2 THRUST. 5.3 OTHERP.21 .2 MAINF.6.3 OTHZRV.24.2 MAINFK.7.3 OTHERF.27.2 MAINFW.8.3 OTHERS.30.2 MAINJ.9.3 OTHERH.33.2 CHECKJ.10.2 CUH.3S.2 XNMH.39.2 BHJ.36.2 XNC.41.2 TVS.37.2 X1.43.2 UJZ.38.2 Xl W.45.2
9
2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 4
1
;;CALLED SUBTREES 11 2079
NUMBER. 2 NUMBER.4 MAINF.6 MAINFW.8 CHECKJ.I0 NMAIN.l1 NMAINN.13.1 NCHKE.14 NCHKO.16.1 NCYLE.17 NCYLO.19.1 ITMEQ.20 ITMO.22.1 RMFEQ.23 RMF3.25.1 LUMFE.26 LUMF3.28.1 UMFEQ.29 UMF3.31.1 DMEQ.32 DM2E.34.1 CUH.35 TVS.37 XNMH.39.2 CALLMY.40.11 XNC.41.2 CALLMZ.42.13 X1.43.2
CALLM.44.12 Xl W.4S.2 CALLMB.46.14
NUMBNR.3 THRUST. 5 MAINFK.7 MAINJ.9 OTHER.l2 OTHERT.l5 OTHERB.18 OTHERP.21 OTHZRV.24 OTHERF.27 OTHERS.30 OTHERH.33 BHJ.36 UJZ.38
12 2042 13 2081 14 2045
;;TEXT
1 Check main journal input data 2 Number of mains
3 Number of cheeks 4 Number of cylinders 5 Thrust main bearing # 6 Main fillet radius
7 Main fillet undercut length 8 Main fillet undercut depth 9 Main journal diameter 10 Check recursive values 11 NMAIN EQ NMAIN 12 OTHER
13 NMAIN.O[4,8] Enter the number of main journals 14 NCHK EQ NCHK
15 OTHER
16 NCHK.O[4, 14] Enter the number of main cheeks 17 NCYL EQ NCYL
18 OTHER
19 NCYL.O[4, 12] Enter the number of cylinders 20 ITM EQ ITM
21 OTHER
22 ITM.O[I,NMAIN] Which main takes the thrust? ( 1 - &NMAIN) 23 RMFEQRMF
24 OTHER
25 RMF.3 Enter the main fillet radius 26 LUMF EQ LUMF
27 OTHER
28 LUMF.3 Enter the length of the main fillet undercut 29 UMF EQ UMF
30 OTHER
31 UMF .3 Enter the depth of the main fillet undercut 32 DMEQDM
33 OTHER
34 DM.2 Enter the main journal diameter 35
36 37 38
39 X.O = I
40 Call main joumallength subtree 41 X.O= I
42 Call main shoulder thickness subtree 43 X.O = 1
44 Call main shoulder radius subtree 45 X.O = 1
46 Call main shoulder fillet radius subtree
;;END
;;SUBTREE 2042 Crankshaft Main shoulder radius
;;TREE MAINS. 1.2 TESTF.2.3 OTHER.S.2 TESTFB.3.3 XLTN.7.2 XX.9.2
2 2
}
2
;;CALLED SUBTREES 11 2042
;;TEXT
TESTF.2 RMSX.4 RMSXK.6.1 XLTN.7 XX.9.2 CALLS.} 0.11
1 Main shoulder radius
2 Test for main shoulder radius 3 Test for more
4 RMS(X) EQ RMS(X) 5 OTHER
TESTFB.3 OTHER. 5 OTHERW.8
6 RMS(X).2 Enter the radius of the main shoulder # &X 7 XLTNCHK
8 OTHER 9 X.O = X +}
10 Call subtree 2042
;;END
;;SUBTREE 2045 Crankshaft Main shoulder fillet
;;TREE
MAINS.l.2 2 TESTF.2 TESTFB.3
TESTF.2.3 2 RMSX.4 OTHER. 5
OTHER.S.2 1 RMSXK.6.1
TESTFB.3.3 2 XLTN.7 OTHERW.8
XLTN.7.2 } XX.9.2
XX.9.2 } CALLS.IO.II
;;CALLED SUBTREES 11 2045
;;TEXT
I Main shoulder fillet radius
2 Test for main shoulder fillet radius 3 Test for more
4 RMSF(X) EQ RMSF(X) 5 OTHER
6 RMSF(X).2 Enter the radius of the main shoulder fillet # &X 7 X LTNCHK
8 OTHER 9 X.O = X + I
10 Call subtree 2045
;;END
;;SUBTREE 2079 Crankshaft Main journal length
;;TREE MAINJ.1.2 TESTF.2.3 OTHER.5.2 TESTFS.3.3 XLTN.7.2 XX.9.2
2 2 I 2 1 1
;;CALLED SUBTREES II 2079
;;TEXT
TESTF.2 LMX.4 LMXN.6.1 XLTN.7 XX.9.2 CALLS. I 0 .11
1 Main journal length checks 2 Test for length
3 Test for more 4 LM(X) EQ LM(X) 5 OTHER
TESTFS.3 OTHER. 5 OTHERP.8
6 LM(X).2 Enter the main journal length of journal # &X 7 XLTNMAIN
8 OTHER 9 X.O = X + I 10 Call subtree 2079
;;END
;;SUBTREE 2081 Crankshaft Main journal shoulder
;;TREE
MAINJ.I.2 2 TESTF.2 TESTFH.3
TESTF.2.3 2 TMSX.4 OTHER. 5
OTHER.5 .2 I TMSXU.6.1
TESTFH.3.3 2 XLTN.7 OTHERA.8
XL TN.7.2 XX.9.2
XX.9.2 I CALLS. 10.1 I
;;CALLED SUBTREES
II 2081
;;TEXT
1 Main journal thickness check 2 Test for thickness variable 3 Test for more
4 TMS(X) EQ TMS(X) 5 OTHER
6 TMS(X).3 Enter the thickness of the main journal shoulder # &X 7 XLTNCHK
8 OTHER 9 X.O = X + 1 10 Call subtree 2081
;;END
;;SUBTREE 2301 Journal rough mat'l calc
;;TREE ROUGH.l.2 TESTF.3.3 XLENA.2 XO.6.2
2 2 1 1
;;CALLED SUBTREES 11 2301
;;TEXT
DMRVOL.2.2 XLENA XO.6.2 CALLS.7.11
1 Rough material removal calculation
TESTF.3 OTHER.5
2 DMRVOL(X) = LM(X) * 3.14159 * DM * (3 - FIN - GRIND) * 3 3 Test for more
4 XLENMAIN 5 OTHER 6 X.O = X + 1
7 Call subtree 2301 - repeat
;;END
;;SUBTREE 2401 Journal finish mat'l calc
;;TREE ROUGH. 1.2 TESTF.3.3 XLENA.2 XO.6.2
2 2
;;CALLED SUBTREES 11 2401
;;TEXT
DMRVOL.2.2 XLENA XO.6.2 CALLS.7.l1
1 Finish material removal calculation
TESTF.3 OTHER. 5
2 DMFVOL(X) = LM(X) * 3.14159 * DM * FIN * 3 3 Test for more
4 X LE NMAIN 5 OTHER 6 X.O == X + 1
7 Call subtree 2401 - repeat
;;END
;;SUBTREE 2501 Journal grind mat'I calc
;;TREE
ROUGH. 1.2 2 DMRVOL.2.2 TESTF.3
TESTF.3.3 2 XLEN.4 OTHER. 5
XLEN.4.2 XO.6.2
XO.6.2 CALLS.7.11
;;CALLED SUBTREES 11 2401
;;TEXT
I Grind material removal calculation
2 DMGYOL(X) == LM(X) * 3.14159 * DM * GRIND * 3 3 Test for more
4 XLENMAIN 5 OTHER 6 X.O == X + 1
7 Call subtree 2501 - repeat
;;END
;;SUBTREE 4010 Cheek (main) material calc
;;TREE CHEEK. 1.2 SAA.2.3 SALT.5.2 CALCUL.4.2 TESTF.9.3 HHU.Il.2 XO.12.2
3 2 1 2 2
;;CALLED SUBTREES 114010
;;TEXT
SAA.2.2 CALCUL.4.7 SALT.5 SAO.7.2 MCHKYO.8.2 SNP. I 0 XO.12.2 CALLS.1 3.II
RCWM2.3.2 OTHER.6 TESTF.9 HHU.II
1 Cheek (main) material removal calculation%
2 SA == ACWT(X) - ACWL(X) 3 RCWM.2 == RCWM(X) 4 se rna
5 SA LT 0 6 OTHER 7 SA == 0 -SA
8 MCHKYOL(X).4 = SA/360 * 3.14159 * (RCWM * RCWM - OM *
OM) * 2.2
9 Test for more 10 XGENCHK II OTHER 12 X.O=X+ I
13 Call subtree 4010 - repeat
;;END
;;SUBTREE 2301 Journal rough mat'l calc
;;TREE
ROUGH.l.2 2 DMRVOL.2.2 TESTF.3
TESTF.3.3 2 XLEN.4 OTHER.5
XLEN.4.2 XO.6.2
XO.6.2 1 CALLS.7.!1
;;CALLED SUBTREES 11 2301
;;TEXT
1 Rough material removal calculation
2 DMRVOL(X) = LM(X) * 3.14159 * OM * (3 - FIN - GRIND) * 3 3 Test for more
4 XLENMAIN 5 OTHER 6 X.O = X + 1
7 Call subtree 2301 - repeat
;;END
;;SUBTREE 2401 Journal finish mat'J calc
;;TREE ROUGH.l .2 TESTF.3.3
2 2
DMRVOL.2.2 XLEN.4
XLEN.4.2 XO.6.2
XO.6.2 I CALLS.7.11
;;CALLED SUBTREES 11 2401
;;TEXT
1 Finish material removal calculation
TESTF.3 OTHER.5
2 DMFVOL(X) = LM(X) * 3.14159 * OM * FIN * 3 3 Test for more
4 X LE NMAIN 5 OTHER 6 X .O = X + 1
7 Call subtree 2401 - repeat
;;ENO