Originariamente Scritto da
masterci
Ho sviluppato i calcoli.....
Adesso mi serve una mano per plottare la funzione!!!! Voglio i cicli for...next!!!!!!!!!!!!
# evolventi paraboliche
INPUTS: @X1(1),@Y1(1),@X2(1),@Y2(1),@X3(1),@Y3(1),@XX1(1),@YY1(1),@XX2(1),@YY2(1),@XX3(1),@YY3(1)
SET conta = LASTIF(CLOSE < 0)
SET contacorretto = conta + 1
#SET plot1 = conta
#imposta il valore corretto della x della barra per considerare il fatto che l'indicizzazione del vettore è al contrario
set nb1 = contacorretto - @X1
set nb2 = contacorretto - @X2
set nb3 = contacorretto - @X3
set nb4 = contacorretto - @XX1
set nb5 = contacorretto - @XX2
set nb6 = contacorretto - @XX3
#risolvo i determinanti delle matrici
set DETD = SQUARE(@X1) * @X2 + @X1 * SQUARE(@X3) + SQUARE(@X2) * @X3 - @X2 * SQUARE(@X3) - @X3 * SQUARE(@X1) - SQUARE(@X2) * @X1
SET DETDX = @Y1 * @X2 + @X1 * @Y3 + @Y2 * @X3 - @Y3 * @X2 - @X3 * @Y1 - @Y2 * @X1
SET DETDY = SQUARE(@X1) * @Y2 + @Y1 * SQUARE(@X3) + SQUARE(@X2) * @Y3 - SQUARE(@X3) * @Y2 - @Y3 * SQUARE(@X1) - SQUARE(@X2) * @Y1
SET DETDZ = SQUARE(@X1) * @X2 * @Y3 + @X1 * @Y2 * SQUARE(@X3) + @Y1 * SQUARE(@X2) * @X3 - SQUARE(@X3) * @X2 * @Y1 - @X3 * @Y2 * SQUARE(@X1) - @Y3 * SQUARE(@X2) * @X1
#determino i coefficienti dell'equazione
SET A = DETDX / DETD
SET B = DETDY / DETD
SET C = DETDZ / DETD
#plotta la funzione y=AX^2+BX+C con X il numero della barra da 1 a n.
#praticamente mi serve questo:
#
# for x = 1 to n (con n=numero barre)
# Y=ax^2+bx+c
# plot Y
# next x
Risolto questo dovremmo riuscire a plottare la prima parabola!!!
Anche se non sono convinto del conteggio del numero delle barre perchè secondo me LASTIF usato così non conta giusto!!!
Provate a eseguire il primo pezzo di codice (solo il conteggio delle barre) su un grafico giornaliero di 10 barre e vedrete che ne conta 9.....