Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
   EXTERNAL SHAPER CUTTER
Language: FORTRAN
Code:
10 KEY OFF :CLS
20 LOCATE 1,20 :PRINT "EXTERNAL SHAPER CUTTER"
30 LOCATE 2,1 :INPUT "NORMAL MODULE            :";A
40 LOCATE 3,1 :INPUT "PRESSURE ANGLE           :";B
50 LOCATE 4,1 :INPUT "HELIX ANGLE              :";C
60 LOCATE 5,1 :INPUT "NO. OF TEETH OF GEAR     :";D
70 LOCATE 6,1 :INPUT "NO OF TEETH OF CUTTER    :";E
80 LOCATE 7,1 :INPUT "TT OF GEAR AT PCD        :";F
90 LOCATE 8,1 :INPUT "ROOT DIA OF GEAR         :";G
100 LOCATE 9,1 :INPUT "OUTSIDE DIA OF CUTTER   :";H
110 LOCATE 10,1 :INPUT "CHAMFER DIA OF GEAR    :";I
120 LOCATE 11,1 :INPUT "CHAMFER ANGLE OF GEAR  :";J
130 LET PI=3.1415927# :B=B*PI/180 :C=C*PI/180 :J=J*PI/180
140 B1=ATN(TAN(B)/COS(C)) :K1=TAN(B1)-B1 :K2=TAN(B)-B
150 L1=A*D/COS(C) :L2=A*E/COS(C) :L3=A*D*K1/K2 :L4=A*E*K1/K2
160 G1=G+L3-L1 :H1=H+L4-L2 :I1=I+L3-L1
170 M1=L3*COS(B) :M2=L4*COS(B)
180 R1=(M1+M2)/(G1+H1) :R2=(1-R1^2)^.5 :B2=ATN(R2/R1) :K3=TAN(B2)-B2
190 O1=M1/COS(B2) :O2=M2/COS(B2) :A1=O1*K2/(D*K1) :F1=(F/L3=K2)*M1
200 F2=(F1/M1-K3)*O1 :F3=A1*PI-F2 :F4=(F3/O2+K3)*M2 :F5=(F4/M2-K2)*L4
210 P=(F5-A*PI/2)/(2*A*TAN(B)) :Q=2*P*A*SIN(B) R3=M2/H1
220 R4=(1-R3^2)^.5 :B3=ATN(R4/R3) :K4=TAN(B3)-B3 :F6=(F4/M2-K4)*H1
230 R=F5/L4 : S=L4*SIN(R) :T=(H1-L4)/2+L2/2*(1-COS(R)) :R5=M1/I1
240 R6=(1-R5^2)^.5 :J1=ATN(R6/R5) :K5=TAN(J1)-J1 :F7=(F1/M1-K5)*I1
250 J2=J+F7/I1 :K6=TAN(J2)-J2 :M3=I1*COS(J2) :U=(F7/I1+K6)*M3
260 R7=M3/O1 :R8=(1-R7^2)^.5 :J3=ATN(R8/R7) :K7=TAN(J3)-J3 :B2=B2*180/PI
270 U1=(U/M3-K7)*O1 :U2=A1*PI-U1 :M4=O2*COS(J3) :K8=U2/O2+K7 :U3=M4*K8
280 LOCATE 2,36 :PRINT "PITCH DIA OF GEAR    :";L1
290 LOCATE 3,36 :PRINT "PITCH DIA OF CUTTER  :";L2
300 LOCATE 4,36 :PRINT "BASE DIA OF CUTTER   :";M2
310 LOCATE 5,36 :PRINT "OPERATING PRESSURE ANGLE :";B2
320 LOCATE 6,36 :PRINT "BASE TT OF CUTTER    :";F4
330 LOCATE 7,36 :PRINT "TT OF CUTTER AT PCD  :";F5
340 LOCATE 8,36 :PRINT "CORRECTION FACTOR    :";P
350 LOCATE 9,36 :PRINT "2XM SIN(B)           :";Q
360 LOCATE 10,36 :PRINT "TIP WIDTH OF CUTTER :";F6
370 LOCATE 11,36 :PRINT "CHORDAL TT OF CUTTER :";S
380 LOCATE 12,36 :PRINT "CHORDAL ADD OF CUTTER :";T
390 LOCATE 13,36 :PRINT "ST BASE DIA          :";M4
400 LOCATE 14,36 :PRINT "INV ST ANGLE         :";K8
410 LOCATE 15,36 :PRINT "ST BASE TT OF CUTTER :";U3
420 LOCATE 13,1 :INPUT "GINDING WHEEL ANGLE   :";J4
430 J4=J4*PI/180 :K9=TAN(J4)-J4 :H2=M2/COS(J4) :V1=(F4/M2-K9)*H2
440 V2=H2*PI*K2/(K1*E)-V1 :P1=M4/H2 :P2=(1-P1^2)^.5 :J5=ATN(P2/P1)
450 K0=TAN(J5)-J5 :V3=(K8-K0)*H2 :V4=H2*PI*K2/(K1*E)-V3 
460 W1=TAN(PI/2-J5)*COS(J4)*(COS(J4)+(SIN(J4)/(J5-J4))) :W=(V4-V2)/2*W1
470 J5=J5*180/PI
480 LOCATE 17,36 :PRINT "WHEEL TT AT PCD    :";V2
490 LOCATE 18,36 :PRINT "ST ANGLE OF WHEEL   :";J5
500 LOCATE 19,36 :PRINT "ST TT OF WHEEL   :";V4
510 LOCATE 20,36 :PRINT "ST HEIGHT :";W
520 LOCATE 9,1 :INPUT "OUTSIDE DIA OF CUTTER :";H
530 IF H=0 THEN GOTO 540 ELSE 160
540 END                                                                                                                                                                                                                                                                                                                                                                                                                        
Comments: