Codice Regolo per Metastock (1 Viewer)

Pic

Nuovo forumer
Registrato
3 Gennaio 2003
Messaggi
25
Non riesco a trovare sul forum un vecchio post che
traduceva per Metastock i codici di regolo

qualcuno può postarli?
si riesce ad adattare anche
regolo T?

grazie
 

Taz

Nuovo forumer
Registrato
24 Marzo 2003
Messaggi
47
Pic ha scritto:
Non riesco a trovare sul forum un vecchio post che
traduceva per Metastock i codici di regolo

qualcuno può postarli?
si riesce ad adattare anche
regolo T?

grazie
Ciao li stò mettendo a posto ( per l'ennesima volta ) appena posso li posterò ( T compreso )
Taz
 

Taz

Nuovo forumer
Registrato
24 Marzo 2003
Messaggi
47
Pic ha scritto:
Non riesco a trovare sul forum un vecchio post che
traduceva per Metastock i codici di regolo

qualcuno può postarli?
si riesce ad adattare anche
regolo T?

grazie
Questo è il codice che mi sono tradotto, non quello precedentemente postato dal Team ( comunque funziona )
1- f Regolo B condition

{ f Regolo B }
IDCH:= ((0.5+(1.35/2))*Mov(H,10,S)) + ((0.5-( 1.35 /2))*Mov(L,10,S));
IDCL:= ((0.5-( 1.35 /2))*Mov(H,10,S)) + ((0.5+( 1.35 /2))*Mov(L,10,S)) ;
IDCM:= Mov(C,35,S) ;
IDC:=If(IDCM< IDCH AND IDCM> IDCL,0,1);
{f Regolo B MACD Buy 1 ; Sell -1 }
fMACD:=Mov(C,13,E)-Mov(C,23,E)-Mov(Mov(C,13,E)-Mov(C,23,E),9,E) ;
MACDSign:= If(fMACD>0,1,-1) ;
{f Regolo B condition Buy 1 ; Sell -1 }
KeltnerL:= ((0.5-( 0.95 /2))*Mov(H,10,S)) + ((0.5+( 0.95 /2))*Mov(L,10,S)) ;
KeltnerH:= ((0.5+(0.95/2))*Mov(H,10,S)) + ((0.5-( 0.95 /2))*Mov(L,10,S)) ;
Keltsign:= If(C>KeltnerH,1, If(C<KeltnerL,-1,PREV));

COND:= If(IDC = 0 ,PREV, If(MACDSign<>Keltsign,PREV ,MACDSign));
COND

-----------------------------------------------------------------------------------
1- f Regolo T condition
COND:=
If( Fml("f Regolo Piramiding")=1,1,
If( Fml("f Regolo Piramiding")=-1,-1,
If( Fml("f BOLF condition") =1,1,
If( Fml("f BOLF condition") =-1,-1,0))));

COND
---------------------------------------------------------------------------------
1- f Regolo Piramiding
{ Buy 1 ; Sell -1 }
{condizioni di Regolo BA }
RegBCOND:= FmlVar("f Regolo B Condition","COND") ; {stato di Regolo B ( 1 LONG -1 SHORT ) }
{condizioni di Piramiding }
SmooCanale:= If( IsUndefined(Ref(C,-1)), C , (((2/(20+1))*(C-PREV))+PREV)) ;
ELmL:= SmooCanale *(1-( 6/100)) ;
ELmH := SmooCanale *(1+( 6/100)) ;
EL := If( Mov(c,80,s) < ELmL,1 , If(Mov(c,80,s) > ELmH , -1 , 0 )) ;
SmooLent:= If( IsUndefined(Ref(C,-1)), C , (2/(50+1))*(c-PREV)+PREV) ;
Momento:= (SmooLent / Ref(SmooLent ,-9) -1)*100;
FL:= If(Momento > 2.5, 1 , If( Momento < -2.5, -1, 0 )) ;
COND:=
If(RegBCOND = EL AND RegBCOND = FL , RegBCOND,0 ) ;
COND

----------------------------------------------------------------------------------
4- f BOLF condition
{ Buy 1 ; Sell -1 }
BOL:= FmlVar("f BOL condition","COND") ;
RegB:= FmlVar("f Regolo B condition","COND") ;
COND:=If(BOL=RegB,RegB,0);
COND

---------------------------------------------------------------------------------
4- f BOL condition
{ Buy 1 ; Sell -1 }
KeltnerL:= ((0.5-( 1.55 /2))*Mov(H,10,S)) + ((0.5+( 1.55 /2))*Mov(L,10,S)) ;
KeltnerH:= ((0.5+(1.55/2))*Mov(H,10,S)) + ((0.5-( 1.55 /2))*Mov(L,10,S)) ;
{condizioni di BOL }
IDCH:= ((0.5+(4.9/2))*Mov(H,10,S)) + ((0.5-( 4.9 /2))*Mov(L,10,S)) ;
IDCL:= ((0.5-( 4.9 /2))*Mov(H,10,S)) + ((0.5+( 4.9 /2))*Mov(L,10,S)) ;
IDC:=If(Mov(C,35,S)> IDCH OR Mov(C,35,S)< IDCL,1,0);
COND:= If(IDC =0,
If(Ref(C,-1)<Ref(KeltnerL,-1) AND C>KeltnerL ,1 ,
If(Ref(C,-1)>Ref(KeltnerH,-1) AND C<KeltnerH ,-1 , PREV)),0);

COND

Ciao Taz
 

Pic

Nuovo forumer
Registrato
3 Gennaio 2003
Messaggi
25
Taz ha scritto:
Pic ha scritto:
Non riesco a trovare sul forum un vecchio post che
traduceva per Metastock i codici di regolo

qualcuno può postarli?
si riesce ad adattare anche
regolo T?

grazie
Questo è il codice che mi sono tradotto, non quello precedentemente postato dal Team ( comunque funziona )
1- f Regolo B condition

{ f Regolo B }
IDCH:= ((0.5+(1.35/2))*Mov(H,10,S)) + ((0.5-( 1.35 /2))*Mov(L,10,S));
IDCL:= ((0.5-( 1.35 /2))*Mov(H,10,S)) + ((0.5+( 1.35 /2))*Mov(L,10,S)) ;
IDCM:= Mov(C,35,S) ;
IDC:=If(IDCM< IDCH AND IDCM> IDCL,0,1);
{f Regolo B MACD Buy 1 ; Sell -1 }
fMACD:=Mov(C,13,E)-Mov(C,23,E)-Mov(Mov(C,13,E)-Mov(C,23,E),9,E) ;
MACDSign:= If(fMACD>0,1,-1) ;
{f Regolo B condition Buy 1 ; Sell -1 }
KeltnerL:= ((0.5-( 0.95 /2))*Mov(H,10,S)) + ((0.5+( 0.95 /2))*Mov(L,10,S)) ;
KeltnerH:= ((0.5+(0.95/2))*Mov(H,10,S)) + ((0.5-( 0.95 /2))*Mov(L,10,S)) ;
Keltsign:= If(C>KeltnerH,1, If(C<KeltnerL,-1,PREV));

COND:= If(IDC = 0 ,PREV, If(MACDSign<>Keltsign,PREV ,MACDSign));
COND

-----------------------------------------------------------------------------------
1- f Regolo T condition
COND:=
If( Fml("f Regolo Piramiding")=1,1,
If( Fml("f Regolo Piramiding")=-1,-1,
If( Fml("f BOLF condition") =1,1,
If( Fml("f BOLF condition") =-1,-1,0))));

COND
---------------------------------------------------------------------------------
1- f Regolo Piramiding
{ Buy 1 ; Sell -1 }
{condizioni di Regolo BA }
RegBCOND:= FmlVar("f Regolo B Condition","COND") ; {stato di Regolo B ( 1 LONG -1 SHORT ) }
{condizioni di Piramiding }
SmooCanale:= If( IsUndefined(Ref(C,-1)), C , (((2/(20+1))*(C-PREV))+PREV)) ;
ELmL:= SmooCanale *(1-( 6/100)) ;
ELmH := SmooCanale *(1+( 6/100)) ;
EL := If( Mov(c,80,s) < ELmL,1 , If(Mov(c,80,s) > ELmH , -1 , 0 )) ;
SmooLent:= If( IsUndefined(Ref(C,-1)), C , (2/(50+1))*(c-PREV)+PREV) ;
Momento:= (SmooLent / Ref(SmooLent ,-9) -1)*100;
FL:= If(Momento > 2.5, 1 , If( Momento < -2.5, -1, 0 )) ;
COND:=
If(RegBCOND = EL AND RegBCOND = FL , RegBCOND,0 ) ;
COND

----------------------------------------------------------------------------------
4- f BOLF condition
{ Buy 1 ; Sell -1 }
BOL:= FmlVar("f BOL condition","COND") ;
RegB:= FmlVar("f Regolo B condition","COND") ;
COND:=If(BOL=RegB,RegB,0);
COND

---------------------------------------------------------------------------------
4- f BOL condition
{ Buy 1 ; Sell -1 }
KeltnerL:= ((0.5-( 1.55 /2))*Mov(H,10,S)) + ((0.5+( 1.55 /2))*Mov(L,10,S)) ;
KeltnerH:= ((0.5+(1.55/2))*Mov(H,10,S)) + ((0.5-( 1.55 /2))*Mov(L,10,S)) ;
{condizioni di BOL }
IDCH:= ((0.5+(4.9/2))*Mov(H,10,S)) + ((0.5-( 4.9 /2))*Mov(L,10,S)) ;
IDCL:= ((0.5-( 4.9 /2))*Mov(H,10,S)) + ((0.5+( 4.9 /2))*Mov(L,10,S)) ;
IDC:=If(Mov(C,35,S)> IDCH OR Mov(C,35,S)< IDCL,1,0);
COND:= If(IDC =0,
If(Ref(C,-1)<Ref(KeltnerL,-1) AND C>KeltnerL ,1 ,
If(Ref(C,-1)>Ref(KeltnerH,-1) AND C<KeltnerH ,-1 , PREV)),0);

COND

Ciao Taz
ti ringrazio della sollecitudine
ma ti volevo chiedere:
come li devo incollare i codici sul
Metastock?
 

Taz

Nuovo forumer
Registrato
24 Marzo 2003
Messaggi
47
Pic ha scritto:
Taz ha scritto:
Pic ha scritto:
Non riesco a trovare sul forum un vecchio post che
traduceva per Metastock i codici di regolo

qualcuno può postarli?
si riesce ad adattare anche
regolo T?

grazie
Questo è il codice che mi sono tradotto, non quello precedentemente postato dal Team ( comunque funziona )


Ciao Taz
ti ringrazio della sollecitudine
ma ti volevo chiedere:
come li devo incollare i codici sul
Metastock?
Dall Indicator Builder devi creare i vari indicatori
f Regolo B condition
-----------------------------------------------------------------------------------
f Regolo T condition
---------------------------------------------------------------------------------
f Regolo Piramiding
----------------------------------------------------------------------------------
f BOLF condition
--------------------------------------------------------------------------------
f BOL condition

New - copi il nome ( esemp. " f Regolo B condition " ) e sotto copi ed incolli il relativo codice e così via
Da questi puoi ricavare il Trading System oppure l'Expert
Ciao Taz
 

Pic

Nuovo forumer
Registrato
3 Gennaio 2003
Messaggi
25
scusami ma sono di coccio :)
ho creato le funzioni
adesso come facci ad avere il
trading system?
 

Taz

Nuovo forumer
Registrato
24 Marzo 2003
Messaggi
47
Pic ha scritto:
scusami ma sono di coccio :)
ho creato le funzioni
adesso come facci ad avere il
trading system?
Se hai creato l'indicatore ( "f Regolo T condition") :
Vai sul System editor
Enter Lond
Fml( "f Regolo T condition") =1
Close Long
Fml( "f Regolo T condition") =-1
OR
Fml( "f Regolo T condition") =0
Enter Short
Fml( "f Regolo T condition") =-1
Close Short
Fml( "f Regolo T condition") =1
OR
Fml( "f Regolo T condition") =0

Ciao
 

Pic

Nuovo forumer
Registrato
3 Gennaio 2003
Messaggi
25
ho provato
ma c'è qualcosa che manca

ho creato un trading system con nome "regolo"
mettendo
enter long:
Fml( "f Regolo T condition") =1
close long:
Fml( "f Regolo T condition") =-1
OR
Fml( "f Regolo T condition") =0
enter short:
Fml( "f Regolo T condition") =-1
close short:
Fml( "f Regolo T condition") =1
OR
Fml( "f Regolo T condition") =0

però il sistema non mi da nessun
segnale
come devo considerare i canali
bol e bolf?
 

Taz

Nuovo forumer
Registrato
24 Marzo 2003
Messaggi
47
Pic ha scritto:
ho provato
ma c'è qualcosa che manca

però il sistema non mi da nessun
segnale
come devo considerare i canali
bol e bolf?
Devi creare tutti gli indicatori
f Regolo B
F Piramiding
f BOLF
f BOL ecc
Se noti vi sono degli indicatori ( vedi regolo T ) che fanno riferimento ad altri ( Piramiding e BOLF )
Mandami la tua email in privato vedo se posso inviarti il file da poter installare con la funzione import formula dall'organizer di MT
Ciao
 

Users Who Are Viewing This Discussione (Users: 0, Guests: 1)

Alto