CP – Tangente

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=Math.Pi/12 o qualsiasi valore.

---

RAGGIO=0.4*DIM   ' --- Parametri specifici 
GIRI=1 

ro=Math.Tan(phi) ' --- FUNZIONE

RAGGIO=0.25*DIM      ' --- Parametri specifici 
GIRI=1 
ro=Math.Tan(1/2*phi) ' --- FUNZIONE

RAGGIO=0.25*DIM      ' --- Parametri specifici
GIRI=3

ro=Math.Tan(1/3*phi) ' --- FUNZIONE

RAGGIO=0.25*DIM      ' --- Parametri specifici
GIRI=3

ro=Math.Tan(2/3*phi) ' --- FUNZIONE

---

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)

---

…