Hi,
I was looking on the net for a spring calculator you know to input the Initial load, final load , wire dia etc. Then the program would tell you the free length, number of turns solid height etc.
I found this old post on the forum back in 1997.
"For those who would like to try another attempt at making a fairly good spring, this is one that I whipped up that works pretty well:
It is driven by pro-program and so when I have a specialized spring I "SAVE AS" the "SPRING1.PRT" file in my working directory to the spring number I want to appear in my parts list and modify the description parameter to reflect the new spring. Then I simply regenerate, Enter Values; Select All, and viola its just that simple. Here's the proprogram cook book. Go bake you a spring:."
Paul R. Finch
VERSION 8.0 REVNUM 310 LISTING FOR PART SPRING1
INPUT OUTSIDE_DIA NUMBER WIRE_DIA NUMBER FREE_LENGTH NUMBER DEFLECTION NUMBER ACTIVE_COILS NUMBER END INPUT
RELATIONS /* THIS PROGRAM WAS WRITTEN BY /* PAUL R. FINCH 961101 /* COMPRESSION SPRING DESIGN CRITERIA /* IS PER MIL-STD-29A, MS24585D AND /* MIL-S-13572. /* /* for reference L=F * R /* R=L/F /* F=L/R /* WHERE L=LOAD; R=RATE; F=DEFLECTION.
/* PRO-PROGAM INPUTS: OD=OUTSIDE_DIA W=WIRE_DIA FL=FREE_LENGTH N=ACTIVE_COILS F=DEFLECTION
/* SOLID HEIGHT CALCULATION PER /* MIL-STD-29A, P. 60 H=W * (N+2)
/* DEFLECTED LENGTH EQUALS /* FREE LENGTH MINUS DEFLECTION LENGTH=FL-F /* CORRECTION FACTOR FOR FLAT ENDS LENGTH1=FL-F+W /* SET LENGTH OF SPRING TO /* DEFLECTED LENGTH. D2=LENGTH1 /* MEAN DIA EQUALS OD MINUS /* WIRE DIA. D=OD-W D3=D D8=D2 /* SPRING PITCH CALCULATION PER /* MIL-STD-29A, P. 60: P=(LENGTH1-(2 * W))/N D4=P D7=W D9=W/2 /* TORSIONAL MODULUS FOR CRES G1=10000000 /* SPRING RATE FOR CRES /* PER MIL-STD-29A, P.60 RATE1=(G1*W^4)/(8*N*D^3) /* TORSIONAL MODULUS FOR MUSIC WIRE G2=12000000 RATE2=(G2*W^4)/(8*N*D^3) L1=RATE1 * F L2=RATE2 * F ID=OD-(2 * W) /* SPRING INDEX C=D/W D13=OD+.1 D14=LENGTH1-W D15=D13 END RELATIONS ADD FEATURE (initial number 1) INTERNAL FEATURE ID 33 TYPE = DATUM PLANE NAME = DTM1 END ADD ADD FEATURE (initial number 2) INTERNAL FEATURE ID 35 TYPE = DATUM PLANE NAME = DTM2 END ADD ADD FEATURE (initial number 3) INTERNAL FEATURE ID 37 TYPE = DATUM PLANE NAME = DTM3 END ADD ADD FEATURE (initial number 4) INTERNAL FEATURE ID 45 PARENTS = 33(#1) 35(#2) 37(#3) TYPE = COORDINATE SYSTEM NAME = CS0 END ADD ADD FEATURE (initial number 5) INTERNAL FEATURE ID 47 PARENTS = 33(#1) 35(#2) 37(#3) PROTRUSION: Helical Sweep NO. ELEMENT NAME INFO STATUS --- ------------ -----------
------ 1 Attributes Constant Pitch, Right Handed, Thru Axis Defined 2 Swp Profile Sk. plane - Surface DTM3 of feat #3 (DATUM PLANE) Defined 3 Pitch Pitch = 0.148421 Defined 4 Section Defined SECTION NAME = S2D0001 SECTION NAME = S2D0002 FEATURE'S DIMENSIONS: d2 = .795 DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL d3 = .405 Dia DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL d4 = .148PITCH DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL d7 = .045 Dia DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD ADD FEATURE (initial number 6) INTERNAL FEATURE ID 62 PARENTS = 35(#2) TYPE = DATUM PLANE NAME = DTM4 FEATURE'S DIMENSIONS: d8 = .795 DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD ADD FEATURE (initial number 7)
INTERNAL FEATURE ID 64 PARENTS = 35(#2) TYPE = DATUM PLANE NAME = DTM5 FEATURE'S DIMENSIONS: d9 = .023 DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD ADD FEATURE (initial number 8) INTERNAL FEATURE ID 66 PARENTS = 64(#7) TYPE = DATUM PLANE NAME = DTM6 FEATURE'S DIMENSIONS: d14 = .750 DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD ADD FEATURE (initial number 9) INTERNAL FEATURE ID 68 PARENTS = 33(#1) 37(#3) 64(#7) CUT: Extrude NO. ELEMENT NAME INFO STATUS --- ------------ -----------
------ 1 Attributes One Side Defined 2 Section Sk. plane - Surface DTM5 of feat #7 (DATUM PLANE) Defined 3 MaterialSide Inside section Defined 4 Direction Defined 5 Depth Through All Defined SECTION NAME = S2D0003 FEATURE'S DIMENSIONS: d13 = .550 Dia DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD ADD FEATURE (initial number 10) INTERNAL FEATURE ID 88 PARENTS = 33(#1) 37(#3) 66(#8) CUT: Extrude NO. ELEMENT NAME INFO STATUS --- ------------ -----------
------ 1 Attributes One Side Defined 2 Section Sk. plane - Surface DTM6 of feat #8 (DATUM PLANE) Defined 3 MaterialSide Inside section Defined 4 Direction Defined 5 Depth Through All Defined SECTION NAME = S2D0004 FEATURE'S DIMENSIONS: d15 = .550 Dia DIMENSION IS IN LAYER(S) : .DIM_DRIVING - OPERATION = NORMAL END ADD MASSPROP END MASSPROP
________________________________________________________________________
Now I've never used Pro/PROGRAM before & I cant get this to work I keep getting error messages!!!
Can anyone get this to work on 2001?
Thanks
Geoff