[Bertil]

{ 200807 }
{ Bull Silver köp }

innehav:=Portfolio(v)
ok_att_handla:=Le(innehav,7)

tidspärr1:=15
lt1:=LastTrade(B,D)
minSedanKöp:=Mult(Sub(Date(),lt1),1440)
delay_ok:=gt(minSedanKöp,tidspärr1)

i1(
tid1=gt(int(mult(frac(d),1440)),500)
tid2=lt(int(mult(frac(d),1440)),1170)

bbw03=LLV(s,2)
bbw04=HHV(bbw03,60)
bbw05=LLV(bbw03,60)
diff01=sub(bbw04,bbw05)
villkor01=Lt(bbw03,add(bbw05,mult(diff01,0.3)))
villkor02=Gt(bbw03,add(bbw05,mult(diff01,0.1)))
villkor03=Ge(sub(s,b),0.01)

köpa=and(and(villkor01,villkor02),villkor03)

kurva01=add(bbw05,mult(diff01,0.1))
kurva02=add(bbw05,mult(diff01,0.3))
kurva03=add(bbw05,mult(diff01,0.9))
kurva04=add(bbw05,mult(diff01,0.8))

draw(bbw03,1,kqb0)
draw(bbw04,2,rqb0)
draw(bbw05,3,dgqb0)
draw(kurva01,4,gqb0)
draw(kurva02,5,gqb0)
draw(kurva03,6,mqb0)
draw(kurva04,7,mqb0)

ditt_köpscript=And(And(And(köpa,tid1),tid2),delay_ok)
köpsignal=And(ditt_köpscript,ok_att_handla)
Mult(köpsignal,10)
)

---------------------------------

{ 200807 }
{ Bull Silver sälj }

innehav:=Portfolio(v)
ok_att_handla:=Ge(innehav,1)

tidspärr1:=15
tidspärr2:=3
tid3:=Lt(int(mult(frac(d),1440)),1140)
lt1:=LastTrade(S,D)
minSedanSälj:=Mult(Sub(Date(),lt1),1440)
delay_01:=gt(minSedanSälj,tidspärr1)
delay_02:=gt(minSedanSälj,tidspärr2)
delay_ok:=if(tid3,delay_01,delay_02)


i1(
tid1=gt(int(mult(frac(d),1440)),500)
tid2=lt(int(mult(frac(d),1440)),1199)
bbw03=LLV(s,2)
bbw04=HHV(bbw03,60)
bbw05=LLV(bbw03,60)
diff01=sub(bbw04,bbw05)
villkor01=Gt(bbw03,add(bbw05,mult(diff01,0.7)))
villkor02=Lt(bbw03,add(bbw05,mult(diff01,0.9)))
villkor03=Ge(sub(s,b),0.01)

sälja=and(and(villkor01,villkor02),villkor03)

ditt_säljscript=And(And(And(sälja,tid1),tid2),delay_ok)
säljsignal=And(ditt_säljscript,ok_att_handla)
Mult(säljsignal,10)
)

Edit: Har ändrat så att man inte kan köpa på sig för mycket samt inte köpa sista halvtimmen.
Man får även sälja var 3:e minut senaste timman.
Detta gör att man inte äger för mycket under natten.