XProfan

Cls
Font 2:set("decimals",16):set("numwidth",20)
print "Hundertstelgrade  quadrant  Absoluter Error to Rückrechnung"
polar 0,0
WaitInput

proc polar : parameters x!,y!

    declare i&,w!,xx!,yy!,ww!,dx!,dy!,q&,f!,f2!
    f!=pi()/180:f2!=1/f!

    WhileLoop 0,36000:i&=&Loop mod 36000:ww!=i&*f!/100

        xx!=100*cos(ww!):yy!=100*sin(ww!)
        dy!=yy!-y!:dx!=xx!-x!

        if (dx!>0) and (dy!>0):q&=1:w!=f2!*arctan(dy!/dx!):endif

            if (dx!=0) and (dy!>0):q&=1:w!=f2!*pi()/2:endif

                if (dx!<0) and (dy!>0):q&=2:w!=f2!*(pi()/2-arctan(dx!/dy!)):endif

                    if (dx!=0) and (dy!=0):q&=1:w!=0:endif

                        if (dx!>0) and (dy!=0):q&=1:w!=0:endif

                            if (dx!<0) and (dy!=0):q&=4:w!=f2!*pi():endif

                                if (dx!>0) and (dy!<0):q&=4:w!=f2!*(2*pi()+arctan(dy!/dx!)):endif

                                    if (dx!=0) and (dy!<0):q&=3:w!=f2!*3/2*pi():endif

                                        if (dx!<0) and (dy!<0):q&=3:w!=f2!*(pi()+arctan(dy!/dx!)):endif

                                            'print i&,dy!,dx!,ww!,w!
                                            print i&/100,q&,i&/100-w!

                                            if %csrlin>26:waitinput :cls:endif

                                            EndWhile

                                        endproc