Questo topic e' stato chiuso dal moderatore.
23/08/06 21:37
AcId-SiMo88
ciao ragazzi ho realizzato 1 programma che visualizza il grafico di alcune funzioni trigonometriche ma non riesco ad individuare il codice adatto per alcune determinate funzioni quali l'arcsen, l'arccos, cotg ed arcctg...gradirei molto l'aiuto di quacuno + esperto di me grazie!
Option Explicit ' X,Y fattori di scala; Xc,Yc sono le coordinate del centro Dim X, Y, Xc, Yc As Double 'X1, y1, x2, y2 sono 4 coordinate appartenenti a 2 punti 1 successivo all'altro Dim X1, y1, x2, y2 As Double 'dichiarazione variabile loop coincidente con l'ampiezza dell'angolo espressa in radianti Dim i As Double Private Sub cmdsin_Click() Piano.Refresh 'rappresentazione dei fattori di scala per rappresentare la funzione all'interno degli assi X = Piano.Width / 8 Y = Piano.Height / 4 'calcolo origne degli assi Xc = X * 4 Yc = Y * 2 'disegno degli assi cartesiani Piano.Line (Xc - 4 * X, Yc)-(Xc + 4 * X, Yc) Piano.Line (Xc, Yc + 4 * Y)-(Xc, Yc - 4 * Y) 'intervallo del grafico For i = -4 To 4 Step 0.02 'primo punto, cambiando 1 segno f(x) simmetrizzata rispetto x=0 X1 = Xc + (i - 0.02) * X y1 = Yc - Sin(i - 0.02) * Y 'secondo punto, cambiando 1 segno f(x) simmetrizzata rispetto x=0 x2 = Xc + i * X y2 = Yc - Sin(i) * Y 'tracciatura del grafico Piano.Line (X1, y1)-(x2, y2) Next End Sub
Ultima modifica effettuata da AcId-SiMo88 28/08/06 10:31
aaa