Grapher

Commenter

Contenu du snippet

Function F(x As Double, n As Double) As Double
If Combo2 = "x^(1/N)" Then
F = x ^ (1 / n)
End If
If Combo2 = "x^N" Then
F = x ^ n
End If
If Combo2 = "cos(Nx)" Then
F = Cos(n * x)
End If
If Combo2 = "sin(Nx)" Then
F = Sin(n * x)
End If
If Combo2 = "tg(Nx)" Then
F = Tan(n * x)
End If
If Combo2 = "hypcos(Nx)" Then
F = (Exp(n * x) + Exp(-n * x)) / (Exp(n * x) + Exp(-n * x))
End If
If Combo2 = "Ch(Nx)" Then
F = (Exp(n * x) + Exp(-n * x)) / 2
End If
If Combo2 = "Sh(Nx)" Then
F = (Exp(n * x) - Exp(-n * x)) / 2
End If
If Combo2 = "arccos(Nx)" Then
F = Atn(-n * x / Sqr(-n * x * n * x + 1)) + 2 * Atn(1)
End If
If Combo2 = "arcsin(Nx)" Then
F = Atn(n * x / Sqr(-n * x * n * x + 1))
End If
If Combo2 = "arctg(Nx)" Then
F = Atn(n * x)
End If
If Combo2 = "log(Nx)" Then
F = Log(n * x)
End If
If Combo2 = "exp(Nx)" Then
F = Exp(n * x)
End If
If Combo2 = "N" Then
F = n
End If
If Combo2 = "Th(Nx)" Then
F = (Exp(n * x) - Exp(-n * x)) / (Exp(n * x) + Exp(-n * x))
End If
If Combo2 = "Nx" Then
F = n * x
End If
If Combo2 = "T" Then
F = Exp(-(x ^ 2))
End If
End Function

Private Sub Command1_Click()
Dim x As Double
Dim n As Double
Dim Y(2000) As Double
Dim A(2000) As Double
Dim B(2000) As Double
Dim J As Variant
For I = -1000 To 1000
On Error Resume Next
x = I / 100
n = Combo1
Y(I + 1000) = F(x, n)
B(I + 1000) = x
If Err Then
A(I + 1000) = x
Y(I + 1000) = Z
End If
Z = Y(I + 1000)
Next
For Each S In B
J = S * 100
MSChart1.Row = J + 1001
MSChart1.Data = Y(J + 1000)
ProgressBar1.Value = J + 1000
MSChart1.RowLabel = J / 100
Next
End Sub
Private Sub Form_Initialize()
For I = -1000 To 1000
MSChart1.Row = I + 1001
MSChart1.RowLabel = I / 100
MSChart1.Data = 0
Next
End Sub

Private Sub Form_Load()
For t = -25 To 25
Combo1.AddItem t
Next
Combo2.AddItem "N"
Combo2.AddItem "Nx"
Combo2.AddItem "x^N"
Combo2.AddItem "x^(1/N)"
Combo2.AddItem "cos(Nx)"
Combo2.AddItem "sin(Nx)"
Combo2.AddItem "tg(Nx)"
Combo2.AddItem "arccos(Nx)"
Combo2.AddItem "arcsin(Nx)"
Combo2.AddItem "arctg(Nx)"
Combo2.AddItem "Ch(Nx)"
Combo2.AddItem "Sh(Nx)"
Combo2.AddItem "Th(Nx)"
Combo2.AddItem "exp(Nx)"
Combo2.AddItem "log(Nx)"
Combo2.AddItem "T"

End Sub
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.