1 REM  RADICI NUMERO COMPLESSO
2 CLS
3 LOCATE 3,20:PRINT STRING$(55,177)
4 LOCATE 5,20:PRINT "RADICI N-ESIME DI UN NUMERO COMPLESSO"
5 LOCATE 7,20:PRINT STRING$(55,177)
6 LOCATE 10,20:PRINT "Il programma assegnato il numero complesso Z=X + iY ne"
7 LOCATE 11,20:PRINT "calcola il modulo e l'anomalia, quindi chiesto l'intero"
8 LOCATE 12,20:PRINT "positivo  N ne calcola le  N radici  N-esime, mediante"
9 LOCATE 13,20:PRINT "la formula di De Moivre."
10 A$="":B$=INKEY$:IF A$=B$ THEN 9
11 REM *************** FINE DEL PROLOGO ***************************************
100 CLS
110 LOCATE 5,5:PRINT "RADICI n-esime di Z = X + iY"
120 LOCATE 7,5:INPUT "  X  =  ",X:LOCATE 7,25:INPUT "  Y  =  ",Y
130 R=SQR(X*X+Y*Y)
140 PG=4*ATN(1)
150 IF X=0 THEN 210
160 C=Y/X
170 T=ATN(C)
180 IF X>0 THEN 220
190 T=PG+T
200 GOTO 220
210 T=PG/2*SGN(Y)
220 LOCATE 9,5:PRINT "Modulo  di  Z = ";R
230 LOCATE 10,5:PRINT "Anomalia      = ";T
240 LOCATE 11,5:INPUT "Radici n-esime, n = ",N
250 RN=R^(1/N)
260 FOR I=0 TO N-1
270 U=RN*COS((T+2*I*PG)/N)
280 V=RN*SIN((T+2*I*PG)/N)
290 PRINT U;"   +   ";V;"i"
300 NEXT I
310 GOSUB 1000
320 END
1000 LOCATE 23,1:PRINT "Premere un tasto, I per tornare all'indice "
1001 A$="":B$=INKEY$:IF A$=B$ THEN 1001
1002 IF B$="I" OR B$="i" THEN  1004
1003 RETURN
1004 CHAIN"indice.bas",570
                   _______________________________________________________

                   RADICI N-ESIME DI UN NUMERO COMPLESSO

                   _______________________________________________________


                   Il programma assegnato il numero complesso Z=X + iY ne
                   calcola il modulo e l'anomalia, quindi chiesto l'intero
                   positivo  N ne calcola le  N radici  N-esime, mediante
                   la formula di De Moivre.




    RADICI n-esime di Z = X + iY

      X  =  4             Y  =  6

    Modulo  di  Z =  7.211103
    Anomalia      =  .9827938
    Radici n-esime, n = 5
 1.455983    +    .2899296 i
 .1741837    +    1.474315 i
-1.348331    +    .6212468 i
-1.007498    +   -1.090363 i
 .7256633    +   -1.295129 i

ritorna