Descrição:
Como plotar as funções y=x+2; y=X^2; y=x^3 em um E3Chart do E3?
Solução:
Para isto, utilize o método AddPoint da pena, via scripts, para adicionar pontos ao gráfico.
Por exemplo:
** Para plotar um gráfico do tipo:Y = X + 2 **
Dim X
Dim Y
Dim aux
X = 1
Y = 1
Screen.Item("E3Chart1").Pens.Item("Pena1").Clear()
Screen.Item("E3Chart1").Pens.Item("Pena1").Connect()
For aux=1 to 10
X = X + 0.11
Y = X + 2
Screen.Item("E3Chart1").Pens.Item("Pena1").AddPoint X, Y
Next
Screen.Item("E3Chart1").FitAll([FitStyle])
** Para plotar um gráfico do tipo:Y = X ^ 2 **
Dim X
Dim Y
Dim aux X = -1 Y = 1 Screen.Item("E3Chart1").Pens.Item("Pena1").Clear() Screen.Item("E3Chart1").Pens.Item("Pena1").Connect() For aux=1 to 18 X = X + 0.11 Y = X ^ 2 Screen.Item("E3Chart1").Pens.Item("Pena1").AddPoint X, Y Next Screen.Item("E3Chart1").FitAll([FitStyle])
** Para plotar um gráfico do tipo:Y = X ^ 3 **
Dim X
Dim Y
Dim aux X = -1 Y = 1 Screen.Item("E3Chart1").Pens.Item("Pena1").Clear() Screen.Item("E3Chart1").Pens.Item("Pena1").Connect() For aux=1 to 18 X = X + 0.11 Y = X ^ 3 Screen.Item("E3Chart1").Pens.Item("Pena1").AddPoint X, Y Next Screen.Item("E3Chart1").FitAll([FitStyle])
Observação: A aplicação exemplo em anexo foi feita usando o Elipse E3 versão 3.1 Build 270.
Anexos:
