Division by zero

Hey. I need to know what "bt" and "ct" are. I can't figure it out without the values. Obviously the program is trying to divide something by zero, but without the other values I can't find the error.

Doug

Maybe I'm presumptious but "bt/tangent/ct" are ARRAYS. But, I too need the numbers as well.

All I keep getting is "subscript out of range" and it stops at A% = 11.

So, I changed the % [which is for INTEGER data types] to a "low floating point" variable by using the ! [which is for SINGLE data types] because you are using a fraction (".01&quot in your IF clause.

Also, the FOR/NEXT will NOT BREAK OUT until it reaches 1 number higher than the number it was told to count upto (see note after test code)


'--------start test
CLS

DIM Bt!(1801), Ct!(1801), Tangent!(1801)

FOR a! = 0 TO 1800
IF Bt(a!) = 0 THEN Bt(a!) = .01
Tangent(a!) = Ct(a!) / Bt(a!)
NEXT

PRINT "The total counted: ";
PRINT a!
'--------end test

if you run the above the a! should show you 1801--double check your arrays, are they high enough? redimmed higher?.

--MiggyD

FOR t% = 0 TO 1800
bt(t%) = COS(t% * ATN(1) / 225)
ct(t%) = SIN(t% * ATN(1) / 225)
NEXT t%
st(0) = 10 ^ -9
st(900) = st(0)
st(1800) = st(0)
ct(450) = st(0)
ct(1350) = st(0)

The values for ct() and bt() have been BSAVEd, so I couldn't get them directly. I am pretty sure that these are the equations I used to get them.

If a man says something in the forest and no woman hears it is he still wrong?

put it together as

- it doesn't say any error in QB 1.1!

Just make sure bt() is a floating point array

Antoni