Eğriyi doğrusallaştırma

[ahmethasim]

Merhaba arkadaşlar şu sorunu nasıl halledebiliriz acaba?

Şimdi bir eğrim var ve bu eğriyi üç doğru ile lineer hale getirmek istiyorum.
Dolayısıyla 0<= x < x1 aralığında y1(x) denklemi y1(x)=m(1)*x + n(1)
x1<= x < x2 aralığında y2(x) denklemi y2(x)=m(2)*x + n(2)
x2<= x < x3 aralığında y3(x) denklemi y3(x)=m(3)*x + n(3)

y(x)=y1(x)+y2(x)+y3(x)

For x=0 To x3
If x>=0 Then
If x<=x1 Then
y(x)=m(1)*x + n(1)
ElseIf x<=x2 Then
y(x)=m(2)*x + n(2)
ElseIf x<=x3 Then
y(x)=m(3)*x + n(3)
End If
End If
Next

şeklinde bir kod düşündüm ama bu eğriyi kullanıcı 3 doğru ile değil de 4 doğru ile lineer hale getirmek isterse kodun sonuna

ElseIf x<=x4 Then
y(x)=m(4)*x + n(4) koymak gerekir ama kullanıcınun kaç doğru ile lineer hale getireceğini bilemediğimden ElseIf leri nasıl düzenleyebilirim bu kodu kullanıcının doğru sayısı isteğine göre daha şık hale nasıl getirebiliriz?

Teşekkürler

İyi çalışmalar