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