8 replies to this topic

[radualex37]

I want to program my casio fx-7700ge to compute the following formula
arctg(A/B)+if(B<0,200,(if(A<0,400,0))) . can anyone help me ?

[flyingfisch]

Hello radualex37 and welcome to UCF! You should introduce yourself.

Is this what you want?

atan(A/B) -> C

If B<0
Then C+200->C
IfEnd

If A<0
Then C+400->C
IfEnd

[Casimo]

I think its

0 -> C
If B < 0
Then 200 -> C
Else If A < 0
Then 400 -> C
Else 0 -> C
EndIf
EndIf
atan(A/B) + C[DISP]

[radualex37]

The casio 7700ge is an old model and think it does not support "if", "then"..... hope I am mistakeing

Thank you for the worm welcome
My name is Radu, 24 years old, land surveyor. I just want cu calculate the bearing from one point to the next using this formula

Double post merged:

I got to this point:

"enter x1,y1"?->A:?->B
"enter x2,y2"?->C:?->D
D-B->E
C-A->F

...and got stuck

[Casimo]

What was wrong (the error message)?

[flyingfisch]

Merged the double post for you

[radualex37]

the main formula is: O = arctg ((y2-y1)/(x2-x1)) ,
if (x2-x1)>0 and (y2-y1)/(x2-x1)>0 => +0
if (x2-x1)>0 and (y2-y1)/(x2-x1)<0 => 400-
if (x2-x1)<0 and (y2-y1)/(x2-x1)<0 => +200
if (x2-x1)<0 and (y2-y1)/(x2-x1)>0 => -200

and i got here
"enter x1,y1"?->A:?->B
"enter x2,y2"?->C:?->D
D-B->E
C-A->F
"Y2-Y1=":E
"X2-X1=":F

the problem is that i can.t find in the menu the functions "if" "then" "else" . Should I tipe them using "alpha" key folowed by "space" ?

[Casimo]

No, on the fx9860 it's Shift' /> 4' />.

[nsg]

I own fx-7700G and indeed it does not have if-then-else there is => (conditional execution) under PRGM|JUMP
Direct implementation of a formula will be:

Gra
tan^-1 (A/B)->C
B<0=>Goto 1
A<0=>C+400->C
Goto 2
Lbl 1
C+200->C
Lbl 2
C

But you may be better off using Pol( for finding azimuth, especially if abs(B) is small.
Pol(B,A) will place r into I and azimuth into J. Just add 400 when negative.

Edited by MicroPro, 07 March 2013 - 07:36 PM.
Disabled emoticons so that "abs(B)" appears correctly.