Codice Regolo per Metastock

  • Creatore Discussione Creatore Discussione Pic
  • Data di Inizio Data di Inizio

Pic

Nuovo forumer
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
 
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
 
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
 
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?
 
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
 
scusami ma sono di coccio :)
ho creato le funzioni
adesso come facci ad avere il
trading system?
 
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
 
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?
 
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 thread

Back
Alto