Modifica il codice del cerchio in coordinate polari utilizzando la funzione tangente.
Per evitare l’errore a run-time dovuto al calcolo in pi/2 imposta angolo a Math.Pi/12 o qualsiasi altro valore.
|
1 2 3 |
RAGGIO=0.4*DIM ' --- Parametri specifici GIRI=1 ro=Math.Tan(phi) ' --- FUNZIONE |
|
1 2 3 |
RAGGIO=0.25*DIM ' --- Parametri specifici GIRI=1 ro=Math.Tan(1/2*phi) ' --- FUNZIONE |
|
1 2 3 |
RAGGIO=0.25*DIM ' --- Parametri specifici GIRI=3 ro=Math.Tan(1/3*phi) ' --- FUNZIONE |
|
1 2 3 |
RAGGIO=0.25*DIM ' --- Parametri specifici GIRI=3 ro=Math.Tan(2/3*phi) ' --- FUNZIONE |
|
1 2 3 4 5 6 7 |
RAGGIO=0.45*DIM ' Parametri specifici GIRI=1/2 ... H2 =3*DIM/4 ... t=Math.Abs(Math.Tan(phi)) ' --- FUNZIONE ro=Math.Power(t, 1/t) |
…