Weight is 3000 lbs. and rolling coefficent is .01 front area is 20 ft^2 and coefficent of drag is .459 electric rate is $.20 per kw-hr elec eff = .6071429 speed tire air total horse equiv. cents mph lb lb force power kW /mile 0.00 30.00 0.00 30.00 0.00 0.00 ---- 5.00 30.02 0.75 30.77 0.41 0.31 2.02 10.00 30.04 3.00 33.04 0.88 0.66 2.17 15.00 30.06 6.75 36.82 1.47 1.10 2.41 20.00 30.08 12.01 42.09 2.24 1.67 2.76 25.00 30.10 18.76 48.87 3.26 2.43 3.20 30.00 30.13 27.02 57.14 4.57 3.41 3.74 35.00 30.15 36.77 66.92 6.25 4.66 4.39 40.00 30.17 48.03 78.20 8.34 6.22 5.12 45.00 30.19 60.79 90.98 10.92 8.14 5.96 50.00 30.21 75.05 105.25 14.03 10.47 6.90 55.00 30.23 90.81 121.04 17.75 13.24 7.93 60.00 30.25 108.07 138.32 22.13 16.51 9.06 65.00 30.27 126.83 157.10 27.23 20.31 10.29 70.00 30.29 147.09 177.38 33.11 24.70 11.62 75.00 30.31 168.85 199.17 39.83 29.72 13.05 80.00 30.33 192.12 222.45 47.46 35.40 14.58
10 OPEN "CARCOST.TXT" FOR OUTPUT AS #1 20 weight = 3000 30 tirecoef = .01 40 tireviscoef = .005 / (60 * 60) 50 carea = 20! 55 elecrate = .2 57 eleceff = .85 * 10 / 14 60 aircoef = .459 70 PRINT #1, "weight is "; weight; " lbs. and rolling coefficent is "; tirecoef 80 PRINT #1, "front area is "; carea; " ft^2 and coefficent of drag is "; aircoef 85 PRINT #1, "electric rate is "; elecrate; "$ per kw-hr"; " elec eff = "; eleceff 90 PRINT #1, "" 100 roll = weight * tirecoef 110 air = carea * aircoef * .00327 120 PRINT #1, " speed tire air total horse cents " 121 PRINT #1, " mph lb lb force power kW /mile " 200 FOR speed = 0 TO 80 STEP 5 210 rollvis = tireviscoef * weight * speed 220 drag = air * speed * speed 240 force = roll + rollvis + drag 280 hp = force * speed / 375 290 kw = hp * .746 292 cost = 0 293 IF speed = 0 GOTO 300 295 cost = elecrate * 100 * kw / (speed * eleceff) 300 PRINT #1, USING "####.## "; speed; roll + rollvis; drag; force; hp; kw; cost 320 NEXT speed 400 CLOSE
This Web Site was designed by J. Russell Lemon