@VBscout
Nije nikakav prog vec neka matematika. Prvo sto sam hteo da uradim je da nacrtam u Excelu, but guess what? Excel ne moze da crta funkcije sa opseg vec moraju da se izracunaju tacke tj parovi x,y i onda on od toga generise funkciju..prilicno bez vez. Sledece po redu cega sam se dovatio je VB i relativno lako sam zbudzio proceduru ali nije ispala kako treba :)
Sa Matlabom se nisam nikada druzio, sa Mathematicom jesam davno, vise se i ne secam sintakse :)
@vujkev
prevedeno u VB je
Code:
Private Type Point
x As Integer
y As Integer
End Type
Private Sub Command1_Click()
Dim x As Integer
Dim p0 As Point
Dim p1 As Point
pic1.Scale (100, 560)-(560, -560)
For x = 0 To 460
p0.x = x + 100
p0.y = CInt(Sin(x * 3.14 / 180) * 100) + 100
p1.x = p0.x + 1
p1.y = p0.y
pic1.Line (p0.x, p0.y)-(p1.x, p1.y), vbRed
Next
End Sub
Ako sam dobro razumeo ti interpoliras f-ciju kao mnogo "malih" horizontalnih linija (0,0 - 1,0 na scali od 560x100) . A ne "dijagonalno" duz funkcije?