Programs
     
Home Page

Programs

Favorite Links Page

Airsoft Photos

  

The Programs

These are the progrms you've been looking for.  There are 6 in total.

also, if i have a pair of symbols like this: <=

        It means less than or equal to

if this: >=

        greater than or equal to

and this: ->

        is the store botton

Interference

:disp "enter mmc of shaft"

:input A

:disp "enter max interference"

:input B

:disp "enter lmc of shaft"

:input C

:disp "enter min interference"

:input D

:A-(B*.0010)-> E

:C-(D*.0010)->F

:disp E

:disp F

   CLERARENCE

:disp "input MMC"

:input A

:disp "inpute min clear"

:input B

:disp "inpute LMC"

:Input C

:disp "input max clear"

:input D

:A+(B*.0010)->E

:C+(D*.0010)->F

:disp F

:disp E

Thread Engagement

:lbl AA

:disp "input TPI"

:input A

:disp "head thickness"

:input B

:disp "bolt leangth"

:input D

:disp "top plate thickness"

:inpute E

:disp "bottom plate thickness"

:input F

:B+.005->G

:E-G->H

:D-H-B->I

:1/A->J

:I+(2*J)->K

:I+(5*J)->L

:if L<= 0

:goto BB

:if (B*1.5)>I

:goto CC

:if L>F

:goto DD

:disp "C-Bore depth"

:disp G

:disp "Tap depth"

:disp K

:disp "drill depth"

:disp L

:stop

:lbl BB

:Disp "No thread engagement."

:Goto AA

:lbl CC

:disp "not enough TE."

:disp "try:"

:(B*1.5)+B+H->Z

:Disp Z

:goto AA

:lbl DD

:disp "too long of bolt."

:goto AA

To Inches

:disp "input unit in mm."

:input A

:A*.0394->B

:disp B

Tolerence

:lbl AA

:disp "Enter Diameter"

:input A

:if A<= 0

:goto AA

:disp "enter upper value"

:disp "as stated in book"

:inpute B

:disp "enter in lower value"

:input C

:A+(B*.0010)->D

:A-(C*.0010)->E

:disp D

:disp E


To Millimeters

:disp "input unit in"

:disp "inches."

:input A

:(A*2.54)*10->B

:disp B