COSTRUZIONE INDICATORE PER ANALISI CICLICA CON VISUAL TRADER

[enryg70]

Va bene la light per far girare TESTER

 

[solospread]

Per gli appassionati del dentro e fuori l'ideale è HHH_2 frame 1 minuti. Da stamattina ha già portato a casa un 2%.
PS: Un benvenuto a MadMax.

 

[solospread]

Sono circa 800 i punti guadagnati oggi dal TS CICLONE_SOLOSPREAD. Performance giornaliera 4,30%. Ottimo direi. Il lato positivo di questo TS è che nonostante operi su frame 1 minuto esegue poche operazioni giornaliere rispetto ad altri TS impostati su frame cosi brevi.

 

[seo]

LISTATO della versione TESTER:
Var: miavar(0),mioosc5,indvp1;
Var: miovel1,miopistaciclica1,DifKRM,MM44;
Var: miavar(0),MioVALORITIT1, miovol (0);
Var: OPA,OPB,MMA,MMB,miomoxx,OP1,OP2;
Var: indvp,MAXD2,MIND3,MAXD3,MIND2,CCC,QQQ,indvp1,www, solospread,Michelle;
Var: MioMOV1,MioKRM2,miomovww,MioKRM3,miomaxCO,MINPC1,MAXPC1,mediavol1,MAXSOL,MAXMIC;
VAR: NNNss,vel1,HHKK,pi,STOP,MQQQ;

////////////////////////////////////////////////////////////////////////////////

vel1 =VEL(C,30,0,10);
miomaxCO = OSC_COMPAREVALUES (C, O, G,C, O);
MioPISTACICLICA1 = PISTACICLICA(C,25);
MioMOV1 = MOV(Miopistaciclica1,14, 0, 0, 0);
MioKRM2 = DIFF(Miopistaciclica1, MioMOV1, 0);
MioKRM3 = DIFF(mioMOV1,Miopistaciclica1,0);
miomovww = MOV(MioKRM2,14,s);
miomoxx =MOV(MioKRM3,14,s);
miovol = VolumeTit (C);
mediavol1 = MOV(miovol,50,s);
MioVALORITIT1 = VALORITIT(C, 3);
OPA = OP(miopistaciclica1,miovol,add);
OPB = OP(miopistaciclica1,miovol,sub);
MMA = MOV(OPA,14,s);
MMB = MOV(OPB,14,s);
OP1 = OP(MioKRM2,MioKRM3,sub);
OP2 = OP(MioKRM3,MioKRM2,sub);
MAXD2 = HHV(MioKRM2,20);
MIND3 = LLV(MioKRM3,20);
MAXD3 = HHV(MioKRM3,20);
MIND2 = LLV(MioKRM2,20);
mioosc5 = ForceIndex (C, 13);
MINPC1 = LLV(miopistaciclica1,20);
MAXPC1 = HHV(miopistaciclica1,20);
DifKRM = DIFF(MioKRM2,MioKRM3,sub);
MM44 = MOV(DifKRM,21,s);
CCC = OP(C,O,sub);
MAXSOL = HHV(H,7);
MAXMIC = HHV(H,7);
NNNss= OP(C,V,mul);
HHKK =OP(NNNss,L,mul);

////////////////////////////////////////////////////////////////////////////////
if positiondir = 1 and C[1] > C[2] and C < C[1] then
QQQ = 5;
else QQQ = 100;endif;
if positiondir = -1 and C[1] < C[2] and C > C[1]then
www = 100;
else www = 5; endif;
if (QQQ[5]=5 and QQQ[4]=5 and QQQ[3]=5 and QQQ[2]=5 and QQQ[1]=5 and WWW[3]=5 and WWW[2]=100 and WWW[1]=5 and WWW=5) then
solospread = 100;
else solospread = 5; endif;
if (WWW[5]=5 and WWW[4]=5 and WWW[3]=5 and WWW[2]=5 and WWW[1]=5 and WWW=5 and QQQ[2]=100 and QQQ[1]=5 and QQQ=5) then
Michelle = 100;
else Michelle =5; endif;
if C > C[1] then
STOP = l-20;endif;
if C >C[1] and c[1]>c[2] then
STOP = l -40; endif;
if C > c[1] and c[1]>c[2] and c[2]>c[3] then
STOP = (l-60);endif;
if C>C[1] and c[1]>c[2] and c[2]>c[3] and c[3]>c[4] then
STOP = (l-100); endif;
if C>C[1] and c[1]>c[2] and c[2]>c[3] and c[3]>c[4]and c[4]>c[5] then
stop = l-130;endif;
if C<C[1] and c[1]>c[2] and c[2]>c[3] and c[3]>c[4] then
stop = l-50 ;endif;
if C < C[1] then
STOP = (h+20);endif;
if C <C[1] and c[1]<c[2] then
STOP = (h +40); endif;
if C <c[1] and c[1]<c[2] and c[2]<c[3] then
Stop = (h+60);endif;
if C<C[1] and c[1]<c[2] and c[2]<c[3] and c[3]<c[4] then
Stop = (h+100); endif;
if C<C[1] and c[1]<c[2] and c[2]<c[3] and c[3]<c[4]and c[4]<c[5] then
stop = (H +130); endif;
if C>C[1] and c[1]<c[2] and c[2]<c[3] and c[3]<c[4] then
stop = H +50 ; endif;

////////////////////////////////////////////////////////////////////////////////
//if QQQ = 100 then enterlong(nextbar,atopen);endif;
//if QQQ = 5 then entershort(nextbar,atopen);endif;
if CrossOver(MioKRM2,miomovww) and MioKRM2 > mioKRM3 and C > stop and C[1] > stop and O > C[1] then EnterLong(Bar, Atclose); endif;
if DifKRM > MM44 and MioKRM2 > MioKRM3 and C > stop and c[1]>stop and O > C[1] then EnterLong(Bar, Atclose); endif;
//if MioKrm2 > Miomovww and mioKRM2 > MioMoxx then enterLong (bar,AtClose); endif;
//if CrossOver(MioKRM3,miomoxx) then Exitlong(Bar,AtClose); endif;
////if CrossUnder(mioKRM2,mioKRM3) then ExitLong(Bar,AtClose); endif;
if DifKRM < MM44 and MioKRM2 < mioKRM3 and c < stop and c[1]<stop and O < C[1] then Entershort(Bar,AtClose); endif;
if CrossOver(MioKRM3,miomoxx)and MioKRM2 < mioKRM3 and c < stop and c[1] < stop and O < C[1]then Entershort(Bar,AtClose); endif;
//if MioKRM2 > 0 and CrossUnder(MioKRM2,miomoxx) then EnterShort(Bar,AtClose); endif;
//if CrossOver(MioKRM2,miomovww) then exitshort (Bar,AtClose); endif;
// if C > STOP then enterlong(NextBar,atopen);endif;
// if C < STOP then entershort(nextBar,atopen);endif;
////////////////////////////////////////////////////////////////////////////////


////////////////////////////////////////////////////////////////////////////////

indvp = createviewport(200, true, true);
indvp1 = createviewport(200, true, true);
//PlotChart(MioKRM2, indvp, red, solid,2);
//PlotChart(MioKRM3, indvp,blue, solid,2);
//PlotChart(miomovww, indvp, fuchsia, solid,1);
//PlotChart(stop,0,green, solid,2);
PlotChart(qqq, indvp,black, solid,1);
PlotChart(www, indvp1,red, solid,1);

Ciao a tutti
Provo a dare un contributo anche io
Qualcosa ho già indicato a solospread e spero gli sia di aiuto.
Ho installato la versione VT light che da in uso INTESATRADE.
Non riesco ad inserire questo listato. Copio e incolla ma non è sufficiente (come in EasyLanguage con la Tradestation).
Mi sapete dire come fare?
Grazie dell'aiuto

 

[@ndy]

Ciao a tutti
Provo a dare un contributo anche io
Qualcosa ho già indicato a solospread e spero gli sia di aiuto.
Ho installato la versione VT light che da in uso INTESATRADE.
Non riesco ad inserire questo listato. Copio e incolla ma non è sufficiente (come in EasyLanguage con la Tradestation).
Mi sapete dire come fare?
Grazie dell'aiuto

quando apri l'Editor TS...di vt...e clicchi sull'icona nuova pagina, elimina tutto il contenuto presente ( sezioni dei comandi....intestazione fra parentesi graffa...etc !!
deve rimanere il foglio completamente spoglio
copi incolli un listato.....salvi in una cartella assegnandogli un nome
confermi la correttezza della formula....
e tutto dovrebbe risolversi !!!

prova cosi'....

 

[seo]

risolto grazie

 

[seo]

Per gli appassionati del dentro e fuori l'ideale è HHH_2 frame 1 minuti. Da stamattina ha già portato a casa un 2%.
PS: Un benvenuto a MadMax.

Ho cercato in decine di pagine ma sinceramente non sono riuscito a trovare il listato di HHH_2 sempre che tu lo abbia postato .
Se così non fosse, come non detto.

ps. sto cercando di lavorare sul tester o cmq sui listati che tu hai già reso pubblici. Io per ora ho il Tester e nessun altro.
Grazie della collaborazione

 

[solospread]

Ho cercato in decine di pagine ma sinceramente non sono riuscito a trovare il listato di HHH_2 sempre che tu lo abbia postato .
Se così non fosse, come non detto.

ps. sto cercando di lavorare sul tester o cmq sui listati che tu hai già reso pubblici. Io per ora ho il Tester e nessun altro.
Grazie della collaborazione

HHH_2 non l'ho ancora postato. E' l'ultimo a cui stò lavorando ed è appena imbastito.Ce ne sono 6 o 7 di listati sparsi in tutto il thread .

 

[solospread]

Ho provato a rendere piu' aggressivo tester togliendo delle limitazioni che avevo inserito. Si guadagna il 6% in dieci giorni. Bisogna però testarlo almeno a 6 mesi per vedere se regge il confronto. Basta sostituire le stringhe delle entrate con queste che posto sotto. Chi ha lo storico lo provi e faccia la cortesia di riferire i risultati . Buon fine settimana a tutti.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

if  CrossOver(MioKRM2,miomovww) and MioKRM2 > mioKRM3 and C > stop  then EnterLong(Bar, Atclose); endif;
if DifKRM > MM44 and MioKRM2 > MioKRM3 and C > stop then  EnterLong(Bar, Atclose); endif;
if DifKRM < MM44 and MioKRM2 < mioKRM3 and c < stop  then  Entershort(Bar,AtClose); endif;
if CrossOver(MioKRM3,miomoxx)and MioKRM2 < mioKRM3 and c < stop then Entershort(Bar,AtClose); endif;/CODE]

 

[solospread]

Ho provato a rendere piu' aggressivo tester togliendo delle limitazioni che avevo inserito. Si guadagna il 6% in dieci giorni. Bisogna però testarlo almeno a 6 mesi per vedere se regge il confronto. Basta sostituire le stringhe delle entrate con queste che posto sotto. Chi ha lo storico lo provi e faccia la cortesia di riferire i risultati . Buon fine settimana a tutti.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

if  CrossOver(MioKRM2,miomovww) and MioKRM2 > mioKRM3 and C > stop  then EnterLong(Bar, Atclose); endif;
if DifKRM > MM44 and MioKRM2 > MioKRM3 and C > stop then  EnterLong(Bar, Atclose); endif;
if DifKRM < MM44 and MioKRM2 < mioKRM3 and c < stop  then  Entershort(Bar,AtClose); endif;
if CrossOver(MioKRM3,miomoxx)and MioKRM2 < mioKRM3 and c < stop then Entershort(Bar,AtClose); endif;/CODE][/QUOTE]

Mi sono dimenticato di dire che questo risultato si ottiene utilizzandolo su frame 1 minuto.