1
Download n. 44 - Silvano Rossetto
Transcript
In fig. 13 e fig. 14 si calcola il punto d’intersezione delle rette PF e P’F’ e si verifica l’appartenenza di tale punto alla normale alla curva nel punto A (si noti che la verifica avrebbe esito positivo anche lavorando con le rette PF’ e P’F ). fig. 13 fig. 14 Sempre in fig. 14 si calcolano il centro ed il raggio della circonferenza richiesta, la cui equazione viene determinata in fig. 15 tramite la seguente funzione circrag circrag(ce,r) Func Local ce,r,app If getType(r)="LIST" Then R » app Ce » r App » ce EndIf expand((x-ce[1])^2+(y-ce[2])^2-r^2=0) EndFunc 166
