----------
{ Mach1 köp }
{ 180811 }
innehav:=Portfolio(v)
ok_att_handla:=eqv(innehav,0)
steg01:=-1.5
steg02:=1.5
steg03:=1.0
Perioder01:=15
gräns01:=0.70
gräns02:=0.35
tidspärr1:=300
tidspärr2:=300
lt1:=LastTrade(S,D)
lt2:=LastTrade(B,D)
minSedanSälj:=Mult(Sub(Date(),lt1),1440)
minSedanKöp:=Mult(Sub(Date(),lt2),1440)
delay_ok:=gt(minSedanSälj,tidspärr1)
trans_ok:=gt(minSedanKöp,tidspärr2)
i5(
tid1=gt(int(mult(frac(d),1440)),660)
{ före kl 17.10 }
tid2=lt(int(mult(frac(d),1440)),1042)
col=Div(Add(Add(c,H),L),3)
vol=MX(v,1)
hugo02=mov(mult(mult(mult(col,vol),mult(col,vol)),mult(mult(col,vol),mult(col,vol))),perioder01)
sliten02=mov(mult(mult(mult(vol,vol),vol),vol),perioder01)
not01=sqrt(sqrt(Div(hugo02,sliten02)))
not02=wild(not01,2)
biggest=hhvbars(v,perioder01)
vyl=aref(vol,biggest)
cyl=aref(col,biggest)
hugo03=div(mult(mult(mult(cyl,vyl),mult(cyl,vyl)),mult(mult(cyl,vyl),mult(cyl,vyl))),perioder01)
sliten03=div(mult(mult(mult(vyl,vyl),vyl),vyl),perioder01)
hugo04=Sub(hugo02,hugo03)
sliten04=Sub(sliten02,sliten03)
not03=sqrt(sqrt(Div(hugo04,sliten04)))
not04=wild(not03,2)
klimat=abs(Div(mov(sub(not04,not02),50),Mov(abs(Sub(not04,not02)),50)))
steg04=if(Lt(klimat,gräns02),steg03,steg02)
SetGVarIf(klimat,9000,1)
Draw(not02,6,kqb0)
Draw(not04,3,gqb0)
vallkor01=if(Gt(klimat,gräns01),Lt(sub(not02,not04),steg01),Gt(sub(not02,not04),steg04))
vallkor02=if(Gt(klimat,gräns01),Lt(not04,aref(not04,1)),Gt(not04,aref(not04,1)))
vallkor03=if(Gt(klimat,gräns01),Lt(not02,aref(not02,1)),Gt(not02,aref(not02,1)))
vallkor04=Gt(col,aref(col,1))
köpa=and(and(and(vallkor01,vallkor02),vallkor03),vallkor04)
ditt_köpscript=And(And(And(And(köpa,tid1),tid2),delay_ok),trans_ok)
köpsignal=And(ditt_köpscript,ok_att_handla)
Mult(köpsignal,10)
)
mvh
Bertil

Angående val av parameternamn. Jag har ju flera hundra script med många hundra parametrar. För att särskilja dem så kan de få lite udda namn. Villkor är ju kor som går vill (vilse). Vallkor är ju kor som går vall.




Leave a comment: