No replies to this topic

[swisstony]

Any chance somebody could reprogram this for me, here's my problem; the program is off a 7700G casio calculator and mine is a 9850G casio calculator but the the 9850G is not upwards compatible with the 7700G, so programs need to change so i'm told. In particular, the Pol( operator now returns a two element list, rather than putting its results into two particular variables;
and it can take expressions, not just variables as in your program. (I
don't know if that was true on the 7700 as well.)

The problem is that the Pol command has changed.
The result of the Pol is now stored in the List Ans.

The Pol command converts cartesian rectangular coordinates into polar coordinates with magnitude/radius/dist and the angle.

So could somebody pretty please incorporate these changes for me, here is the program

"STATION EAST"?->Q:"STATION NORTH"?->R:Lbl1:"POINT 1 EAST"?->A:"POINT 1 NORTH"?->B:"POINT 2 EAST"?->C:"POINT 2 NORTH"?->D:B-D->E:A-C->F:Pol(E,F)->G:"DISTANCE CHECK":G_
J+180->I:"OS PEG DISTANCES"?->K:Rec(K,I)+B->L:J+A->M:"EAST PEG 1":M_
"NORTH PEG 1":L_
G+K->N:Rec(N,H)+B->O:J+A->P:"EAST PEG 2":P_
"NORTH PEG 2 ":0_
R-L->S:Q-M->T:"DISTANCE TO PEG 1":Pol(S,T)_
"BEARING TO PEG 1":J+180_
R-O->U:Q-P->V:"DISTANCE TO PEG 2":Pol(U,V)_
"BEARING TO PEG 2":J+180_
GOTO 1