Har ett litet nytt problem. Har två kolumner jag ska göra diagram av. http://pastebin.se/8890 . Ser lite knas ut på pastebin, men första kolumnen är tid, den andra är effekt, den tredje är en ny axel med tid.
Problemet är att jag vill att effektkolumnen lägger sig på den nya tidsaxeln. För att göra detta måste jag räkna ut nya värden på effekten som motsvarar den nya tidsaxeln. Det blir inte bra om man gör en generell funktion av den eftersom den inte motsvarar någon funktion, t.ex rät linje, eller nån polynomekvation.
Istället tänkte jag göra en funktion som tar två punkter i taget. Gör en ekvatation av detta, sedan sätter in den nya tiden. De punkter som väljs är dom som ligger på varsin sida om den nya tiden. T.ex vid 175h väljer den (125;55) och (188;54)
Har gjort en funktion som räknar ut effekten för den nya tiden (enpunktsformeln).
Function NyEffekt(h, x1, y1, x2, y2)
Dim k As Integer
k = (y2 - y1) / (x2 - x1)
NyEffekt = k * h + (k * x1 + y1)
End Function
h är tiden på den nya tidsaxeln. Dvs 175, 350 526 osv.
Nu till problemet. Måste på nåt sätt göra en funktion som letar reda på x1, y1, x2 och y2.
Nån form av loop som kollar i första kolumnen efter en tid som ligger mellan de tider som finns på nya tidsaxeln.
Exempel:
175h: x1= 125, y1 = 55, x2 = 188, y2 = 54
350h: x1 = 313, y1 = 52, x2 =375, y2 = 51
526h: x1 = 501, y1= 49, x2=563, y2 = 48
Hoppas ni fattar