ZXTape! car m! m!o! 23756\,0 ;::" CALCULATIONS FOR SUSPENTION SYSTEMS" 5,0;"[1] Coil rate required for given car"''"[2] Wheel frequency for given springs"''"[3] Calculation for coil rates"''"[4] Coil size"''''"[5] END" m m<1m>520 m=1200 m=4800  m=2400 m=3499  m=5 d_20,502:502,0:0,100d:-502,0:0,-100d ns70F,60<:15,0:0,502:10 ,30:-10 ,10 :-15,-30 x77M,66B,2:140,66B,2:250,66B,2:77M,63?:173,0:77M,69E:173,0 88X,140,2:190,120x,2:88X,137:102f,-20:88X,143:102f,-20 140,70F:10 ,5:-20,0:20,8:-20,0:20,8:-20,0:20,8:-20,0:20,8:-20,0:20,8:-20,0:20,8:-20,0 E16,9 ;"A";16,17;"B";16,31;"C"  M18,0;"Please enter dimentions"'"front suspension"''"AB and BC" A,B V18,0;" " ?18,0;"Please enter dimentions"'"rear suspension" x,y  ********************* CALCULATION WHEELRATE *********************  ܰ"Do you want the ride"'''"[1] Soft"'''"[2] Firm"'''"[3] Hard"'''"[4] Very hard"''"Enter 0 to choose your own wheel frequency"''''"Please enter the apropriate number" r r=0238 r<1r>4230  r=0"Front wheel frequency = ";wf::"Front wheel frequency is"''wf;" Cycles/min":"Rear wheel frequency = ";wr:''"Rear wheel frequency is"''wr;" Cycles/min" =r=1wf=60<:wr=66B:''" SOFT ride choSen" >r=2wf=85U:wr=93]:''" FIRM ride chosen" ?r=3wf=110n:wr=121y:''" HARD ride chosen" Br=4wf=130:wr=143:''"VERY HARD ride chosen" t15,5;"Enter ";1;"Y";0;" to confirm"'''"Press any other key to change your option" 0 "y"Ʀ"Y"215 {::"Now enter the sprung weights for"''"the front and rear of the car."''"If measurements are unobtainable"''"estimate."  "Front weight: ";fw  :::"Front weight",fw;" Kg"  "Rear weight: ";rw  :"Rear weight",rw;" Kg" h18,0;"Enter ";1;"Y";0;" to confirm weights"''"Press any other key if wrong"  0 "y"Ʀ"Y":265  .WRf=((wf/946.47l{)^2)*(fw/2) .WRr=((wr/946.47l{)^2)*(rw/2) ,v:10 ,0;"The suspension leaverage must"''"now be found"'''''''" Please wait":200::100d 6SLf=(A+B)/B:SLr=(x+y)/y ;.CRf=WRf*(SLf)^2:CRr=WRr*(SLr)^2 @):0,5;"SUSPENSION DETAILS" E.5,0;"Sprung Weight",rw+fw;" Kg" J&''"Front coil ",CRf;" Kg/mm" ,"rate" O#''"Rear coil",CRr;" Kg/mm","rate" Tc''"Static",(fw/(WRf*2));26;" mm F","deflection",(rw/(WRr*2));26;" mm R" Yd''"Coil",(fw*SLf/(CRf*2));26;" mm F","Crush",(rw*SLr/(CRr*2));26;" mm R" ^ 0 _ 10 ******************** **WHEEL FREQUENCIES* ******************** O:5,0;"Please enter the ";1;"FRONT";0;" coil rate" 8fcr:8,0;"Front coil",fcr;" Kg/mm","rate" M5,0;"Please enter the ";1;"REAR";0;" coil rate " 8rcr:12 ,0;"Rear coil",rcr;" Kg/mm","rate" 45,0;" " t18,5;"Enter ";1;"Y";0;" to confirm"'''"Press any other key to change your option"  0 "y"Ʀ"Y"400 {::"Now enter the sprung weights for"''"the front and rear of the car."''"If measurements are unobtainable"''"estimate." "Front weight: ";fw :::"Front weight",fw;" Kg" "Rear weight: ";rw :"Rear weight",rw;" Kg" h18,0;"Enter ";1;"Y";0;" to confirm weights"''"Press any other key if wrong"  0 "y"Ʀ"Y":440 v:10 ,0;"The suspension leaverage must"''"now be found"'''''''" Please wait":200::100d slf=(A+B)/B:slr=(x+y)/y .WRf=fcr/(slf^2):WRr=rcr/(slr^2) $WFf=946.47l{*(WRf*2/fw) $WFr=946.47l{*(WRr*2/rw) :5,5;"WHEEL FREQUENCIES";10 ,2;"Front",WFf;" CPM";14,2;"Rear",WFr;" CPM":150:''''"Press a key to continue.":0 D:''''"Enter YES if you wish to know"''"the static deflection":q$ q$="YES"315;  10  acc=0 ******************** *****COIL RATES***** ********************  k=40(42*  2 k,80P:20,5,*1.75`:-8,-1:40(,5,*1.6L:-10 ,-1:480,6,*1.58J=p:-12 ,-1:12 ,6,*1.9s333  k:0 G0,0;"Please enter the total no. of turns on the coil."  611 ,4;1;">";9 ,16;">"  n$ x=480579 n$=x529 x:525  -11 ,4;" ";9 ,16;" " K0,0;"Please enter the outside diameter of the spring" 814,11 ;1;">";14,24;"<" "Diameter ";D;" mm" /14,11 ;" ";14,24;" " S0,0;"Please enter the wire thickness " 814,22;1;">";14,24;"<" !"Wire ";t;" mm diameter" "]:"Enter:"''"[1] If both ends open."''"[2] If both ends closed."''"[3] If one end open." ##h:h<1h>3547# $h=1e=0 %h=2e=1.5@ &h=3e=.75@ )b:"The spring has ";n$;" turns,",''"is ";D;" mm in diameter ",''"the wire is ";t;" mm. diameter" * 300, +J15,5;"Press ";1;"Y";0;" to confirm.":0 0"y"Ʀ"Y":500 :D=D-t < n=n$-e =C=D/t ?&rate=1010.75|*t/(n*(C^3)) @acc=1640 D:5,0;"For a spring with ";n$;" turns"''"A diameter of ";D+t;" mm."''"and material ";t;" mm in diameter"''''"The spring rate is ";'''rate;" Kg/mm." Nacc=1650 Xj300,::"spring rate = ";rate;" Kg/mm"''''''"Do you wish to work out another"''"spring rate? (Y/N)" a 0 b"Y"Ʀ"y"650 lrate1=rate:acc=1 v 500 R:"First spring rate ="''rate1;" Kg/mm"''''"Second spring rate ="''rate;" Kg/mm" 150:700 acc=0:10 V''''"Do you wish to know the wheel frequencies using these springs?(Y/N)":0 "Y"Ʀ"y":10 fcr=rate1:rcr=rate :"First spring rate ="''rate1;" Kg/mm"''''"Second spring rate ="''rate;" Kg/mm"''"Enter YES if the first rate is the front spring NO if not" u$ u$"YES"u$"NO"750  *u$="YES"fcr=rate1:rcr=rate:435 )u$="NO"fcr=rate:rcr=rate1:435  ******************* !*****COIL SIZE***** "******************* # *05,2;"Please enter the coil rate." 4K >O5,2;"Please enter the coil diameter"''''"Coil rate =",K;" Kg/mm" Cx G IC"For a coil rate of ";K;" Kg/mm"''"using a coil ";x;" mm in dia'" S45,0;"no. of turns","diameter of wire" W"20,8;"Please wait:" Yj7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18 \n=2.5 13.5X at=525.1}L bD=x-t dc=D/t f&CalR=(1010.75|*t)/(n*c^3) k,CalR>K-.1}LCalRK881q pt qq r(q,0;" ";n+1.5@," ";t un xF20,3;"------------------------- Press any key" y z0::10