COSTRUZIONE INDICATORE PER ANALISI CICLICA CON VISUAL TRADER

[solospread]

Un'altra cosa molto utile è colorare le barre in cui avviene il pattern in modo da evitare le entrate anticipate nelle fasi estremamente bearish o bullish. Potresti impostare l'ingresso nel seguente modo:
Entro LONG se MioPatt0[2] = true and Miopatt0[1] = false and C[1] > C[2];
cioè nell'ipotesi che ci siano piu' di una candela fuxia entri dopo la prima candela non fuxia (rossa o verde). Quindi faccio un es: hai tre candele fuxia consecutive e BB và a 1 (altrimenti la candela non diventa fuxia) prima di entrare deve esserci una candela o rossa o verde ed entri alla successiva ( vedi grafico). Sotto ti metto il listato. Ciao.

bene Solospread, sul listato bisogna però aggiungere come prima riga:
Var:MIN,MAX,bb,CC,zona1;
(l'ho capito che mancava solo perchè ho guardato l'altro) :D
adesso lo proverò in real time e vediamo se mi fa lo scherzo dell'altro
voglio aggiungere però una cosa

















 




GRAZIE DI ESISTERE   :V
non perchè hai postato l'ennesimo listato, ma per la persona che sei

10,100,100000 Solospread e il mondo sarebbe diverso[/QUOTE]

Mi fai arrossire. Ho corretto il listato. Ciao Newmoon anche tu sei una bella persona pur non conoscendoti.

 

[misterx]

Dati storici

Ciao a tutti

ho visto che qualcuno qui con Visual Trader possiede dati storici intraday superiori ai 2 anni. Io se abilito la PRO non vado più in la dei 2 anni per le barre orarie, 1 anno per il 30 minuti etc etc. Qualcuno sarebbe cosi gentile da farmi avere dati a 30 minuti maggiori di un anno? Ho creato questo codice che lanciato come TS esporta i dati in un file Excel e poi io attraverso una procedura li codifico in Metastock per riutilizzarli e renderli disponibili a chi non li ha...

Il file generato viene creato sotto il disco C (c:\fib30.csv)

Funziona ovviamente con tutti i timeframe..

Grazie

Var:giorno(0),mese(0),anno(0),ore(0),minuti(0) ,mol(0) ,gg(0),cont(0) ; // Agggiungere qui le variabili che vi servono
giorno=getday;
mese=getmonth;
anno=getyear;
ore=gethour;
minuti=getminute;
filewriteval("c:\fib30.csv",giorno, false);
FileWriteString("c:\fib30.csv", "/", false);
filewriteval("c:\fib30.csv",mese, false);
if getyear=2000 then
                filewritestring("c:\fib30.csv","/2000 ", false);
endif;
if getyear=2001 then
                filewritestring("c:\fib30.csv","/2001 ", false);
endif;
if getyear=2002 then
                filewritestring("c:\fib30.csv","/2002 ", false);
endif;
if getyear=2003 then
                filewritestring("c:\fib30.csv","/2003 ", false);
endif;
if getyear=2004 then
                filewritestring("c:\fib30.csv","/2004 ", false);
endif;
if getyear=2005 then
                filewritestring("c:\fib30.csv","/2005 ", false);
endif;
if getyear=2006 then
                filewritestring("c:\fib30.csv","/2006 ", false);
endif;
if getyear=2007 then
                filewritestring("c:\fib30.csv","/2007 ", false);
endif;
if getyear=2008 then
                filewritestring("c:\fib30.csv","/2008 ", false);
endif;
if getyear=2009 then
                filewritestring("c:\fib30.csv","/2009 ", false);
endif;
filewriteval("c:\fib30.csv",ore, false);
FileWriteString("c:\fib30.csv", ".", false);
filewriteval("c:\fib30.csv",minuti, false);
FileWriteString("c:\fib30.csv", ";", false);
FileWriteVal("c:\fib30.csv", C, false);
FileWriteString("c:\fib30.csv", ";", false);
FileWriteVal("c:\fib30.csv", o, false);
FileWriteString("c:\fib30.csv", ";", false);
FileWriteVal("c:\fib30.csv", h, false);
FileWriteString("c:\fib30.csv", ";", false);
FileWriteVal("c:\fib30.csv", l, false);
FileWriteString("c:\fib30.csv", ";", false);
FileWriteVal("c:\fib30.csv", v, true);

 

[pattinatore89]

Comunque dei tanti fatti e provati pubblicati per me uno particolarmente affidabile per chi si accontenta è questo inserendo lo stop loss e il take profit.
//TS RANGE SOLOSPREAD 5 minuti
var:miavar(0),val1,val2,r(0),RR,mioatr1,RR1,RR2,zona1,RR3,RR4,RR6,zona2,RR5,RR7;
mioatr1 = atr(C,21);
RR = (r[1]+r[2]);
RR1 =(H-l)*V[1]/V*r*3000;
RR3 = LLV(L,10);
RR4 = HHV(H,10);
RR5 =HHV(C,10);
RR7 =LLV(O,10);
//*****************************************************************************
if RR1[1] > 10 and C > C[1] and C[1]< C[2] then
RR2 = rr1+50;
else
RR2 = 0;
endif;
if RR1[1] > 10 and C < C[1] and C[1] > C[2] then
RR2 = RR1-50;
else
RR2 = 0;
endif;
if (H-C) > (C-L)and B = true and R > mioatr1*2 then //MOTORE DEL TS
RR6 = 100;
else
RR6 = 0;
endif;
if (H-C) <(C-L)and W = TRUE and B[1] = true and R > mioatr1*1.5 then
RR7 = 100;
else
RR7 = 0;
endif;
//****************************************************************************************
if RR6[2] > 50 and C > C[1] and L > L[1] or H > H[1] then entershort(Nextbar,atopen);endif;
if RR6[2] > 70 and C < C[1] and H < H[1] or L < L[1] then enterlong (Nextbar,atopen);endif;
if RR7[1] > 70 and C > c[1] and RR2[1] > 70 and C > c[2] then entershort(NextBar,AtOpen); endif;
if RR7[1] > 70 and C < c[1] and RR2[1] > 70 and C < c[2] then enterlong(NextBar,AtOpen); endif;
installstoploss(INPERC,1,"STOP");
installtakeprofit(INTICK,60,"TAKE");
//****************************************************************************************
zona1=CreateViewport(300,true,true);
zona2 = CreateViewport(300,true,true);
plotchart(RR7,zona1,red,solid,1);
plotchart(RR6,zona2,blue,solid,1);
installtakeprofit(INTICK,60,"TAKE");
//plotchart(RR7,zona2,red,solid,1);
*******************************************
p.s. ma il TS pubblicato da bingo bongo che problematica aveva in real time rispetto la simulazione che non ricordo.. perchè anche il suo a 5 minuti da risultati incredibilmente positivi nonostante il nr alto di operazioni....

gran bel 3d!!! il mio ts era estremamente drogato..
cmq in questo mi da errore linea 3

 

[lnanetti]

guarda linea 2 nel copia incolla si stacca qualcosa unisci zo con na1 deve essere scritto zona1..

 

[bingo_bongoo]

Buona sera, volevo condividere questo oscillatore che controlla i volumi, si chiama TSV

{******************************************************************************
* TSV - TIME SEGMENTED VOLUME
* REGOLE:
*
* ANALISI BREVE TERMINE INPUT DA 9 A 12
* ANALISI DI MEDIO TERMINE INPUT DA 18 A 25
* ANALISI DI LUNGO TERMINE INPUT DA 35 A 45
*
******************************************************************************}
Var: TSV(0), VPOS(0), VNEG(0), VPOSS(0), VNEGG(0), ZONA1;
INPUT: PERIODI(12);

//TSV = Sum ((IIF(C > Ref(C,1),V*(C-Ref(C,1)),0), IIF (C < Ref(C,1),-V*(C-Ref(C,1)),0),18);

IF C > C[1] THEN
VPOS = V * (C - Ref(C,1));
ELSE
VPOS = 0;
ENDIF;

IF C < C[1] THEN
VNEG = -V * (C - Ref(C,1));
ELSE
VNEG = 0;
ENDIF;

VPOSS=SUM(VPOS,PERIODI);
VNEGG=SUM(VNEG,PERIODI);

zona1=CreateViewport(200,true,true);
PlotChart(VPOSS,zona1,LIME,solid,2);
PlotChart(VNEGG,zona1,red,solid,2);

 

[lnanetti]

ciao bingo bongo e grazie per l'oscillatore interessante ti volevo fare una domanda ma il ts che avevi pubblicato diverse pagine fa.. e che in simulazione performa davvero bene... che problema aveva sul real time che non mi ricordo bene?? i risultati sono reali o drogati...?

 

[bulogna]

solospread dove sei sparito?

 

[Petizionatore6710]

Ho un piccolo problema da risolvere in Visual Basic.
C'è un'anima buona a cui rivolgermi ?

 

[nikiti]

Ho un piccolo problema da risolvere in Visual Basic.
C'è un'anima buona a cui rivolgermi ?

Proviamo...

 

[Petizionatore6710]

Proviamo...

Ciao nikiti,
grazie per la disponibilità.

La Macro é questa:

Sub InsertOrder()
Public Function InsertOrder(Symbol As String, Sign As String, Quantity As ....................................................
........................................................

================

Purtroppo appena lancio la macro compare il seguente errore:

Compile error:
Ambiguous name detected: InsertOrder



Grazie in anticipo per qualsiasi contributo.
Cordialità.