Skriva till globala variabler

[Ovster]

Nu borde det fungera.
Under 20, skriver värdet.
Över 20, skriver 0.

i1(
MFIa1=MFI(28)
Sant1=LT(MFIa1,20)
Sant2=GT(MFIa1,20)
SetIniIf(MFIa1,3260,Sant1)
SetIniIf(0,3260,Sant2)
mult(0,0)
)

[Bertil]

Det blir bättre, men om värdet är exakt 20 så händer ingenting.
Skall man vara petig så byt antingen ut Gt mot Ge eller Lt mot Le.
mvh
Bertil


Edit: Om du sedan är ute efter kod för att selektera de olika globala variablerna efter vilken som är störst eller minst så har jag publicerat sådan kod någonstans på forumet.
Säg till mig så letar jag upp den alternativt publicerar den igen.

Edit2: Här var visst koden: http://www.autostock.se/vbulletin/sh...24&postcount=3 det är den delen som börjar med vinnare01 och slutar med vinnare50.
Vinnare50 innehåller alltså numret på den globala variabel som har störst värde.
Störstvärde=GetGVar(vinnare50)

Edit3: Om man vill koppla crcid till den globala variabel som har störst värde så kan man göra en tabell där man lägger in nummerserien för crcid i globala variabler.
Säg att den nummerserien ligger antal 40 högre än början på den globala serie som innehåller värdet, i mitt exempel 3801, dvs crcid lägger man i variabel nr 3841 osv.
instrumentid=GetGVar(Add(vinnare50,40))

[Bertil]

Om du bara vill kolla RSIW så kan du skapa ett script med följande innehåll och ansluta till ett instrument.

{ Bertils RSIW test }

perioder01:=30

i1(
kurva01=RSIW(perioder01)
kurva02=if(Gt(kurva01,70),add(c,div(kurva01,8)),c)
kurva03=if(Lt(kurva01,30),sub(c,div(kurva01,8)),c)
kurva04=Div(Add(kurva02,kurva03),2)

Draw(kurva02,3,rqb0)
Draw(kurva03,4,dgqb0)
Mult(0,10)
)

-----------------------------
Då man ansluter till terminen blir det så här:

[Bertil]

Man kan ju även labba och sätta moving average på RSIW som tex är 1/3 av periodtiden.
Då blir det så här:
{ Bertils RSIW mov test }

perioder01:=30

i1(
kurva01=mov(RSIW(perioder01),int(div(perioder01,3)):300)
kurva02=if(Gt(kurva01,65),add(c,div(kurva01,8)),c)
kurva03=if(Lt(kurva01,35),sub(c,div(kurva01,8)),c)
kurva04=Div(Add(kurva02,kurva03),2)

Draw(kurva02,3,rqb0)
Draw(kurva03,4,dgqb0)
Mult(0,10)
)

[Ovster]

Tack för tipsen.
Nu har jag fått det att fungerar att skriva SetIniIf(). Nu ska det analyseras :-)
Jag återkommer med resultat och hur det fortlöper.

mvh Ovster