{ 190916 }
antal01:=1500
antal02:=100
i1(
största=MX(MX(MX(MX(cmpref(H,0,a),cmpref(H,1,a)),cmpref(H,2,a)),cmpref(H,3,a)),cmpref(H,4,a))
minsta=MN(MN(Mn(MN(cmpref(L,0,a),cmpref(L,1,a)),cmpref(L,2,a)),cmpref(L,3,a)),cmpref(L,4,a))
antal03=abs(mult(sub(största,minsta),4))
antal04=MN(add(antal02,antal03),80)
{ Finess. Genom att ta L för HHV() och H för LLV() undviker jag att spikar får betydelse. }
Kurvahög=HHV(L,antal01)
Kurvalåg=LLV(H,antal01)
diff01=sub(kurvahög,kurvalåg)
diff02=sqrt(diff01)
diff03=sqrt(diff02)
diff04=Int(mult(antal02,diff03))
kurva03=mov(c,diff04:2000)
kurva04=wild(c,diff04:2000)
SetGVarIf(sub(kurva03,aref(kurva03,1)),9002,1)
kurva04=wild(c,diff04:2000)
SetGVarIf(sub(c,kurva04),9003,1)
draw(kurva03,3,kqb0)
draw(kurva04,4,dgqb0)
Mult(0,0)
)
{@A(0,)}
---------------------------------------------
OBS, OBS!
Rita inte ut ovanstående script under handelsdagen då det kommer att suga ur kraften ur processorn.
mvh
Bertil


Leave a comment: