Oggi è 29/05/2024, 20:09


Garcia Settimanale e Giornaliero in easy language

Metodi di individuazione dei segnali di acquisto o di vendita finalizzati alla costruzione di strategie in opzioni
  • Autore
  • Messaggio
Non connesso

Michele - MM

  • Messaggi: 20
  • Iscritto il: 29/09/2011, 20:34

Garcia Settimanale e Giornaliero in easy language

Messaggio09/11/2011, 18:45

Salve volevo proporre senza intaccare i dogmi del sistema Garcia un mio modo di usarlo che rende più serena la gestione della copertura(hedge) di future.

Non potendo importare la volaponderata in Tradestation ho usato il vstoxx grafico sotto giallo( vedo che qualcuno lo analizza e lo trovo assai utile).

Ho tenuto il close della settimana(mi perdonino i puristi...) e non del giorno e i livelli si adattano ogni giorno in base alla volatilità(vstoxx) fornendo cosi solo livelli di intervento settimanali(cioe' sono piu rintracciabili e visibili) e quindi non serve memorizzare dove e se e' il momento di coprire qualcosa...il resto lo scrive lui...(chiaro che sell per chi e' meno propenso alle vendite scoperte va letto come buy..ecc..).

Inutile dire che quasta settimana e' stato meraviglioso...basta vedere(mai entrato hedge)...ma anche le altre elimina di molto l'overtrading.

A me piace.....magari se interessa ogni settiamana metto le ultime 5 sedute...

...da valutare...

Saluti Michele
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Non connesso

goldor

  • Messaggi: 110
  • Iscritto il: 12/10/2011, 12:46
  • Località: ROMA (RM)

Re: Garcia Settimanale in easy language

Messaggio09/11/2011, 20:31

FANTASTICO!!!!!!!!!!!!!!!

:13 :13 :13 :13 :13 :13 :13 :13 :13 :13 :13 :13 :13 :13
"When Time is up, the trend changes" (William Delbert Gann)
Non connesso

gymmy72

  • Messaggi: 255
  • Iscritto il: 31/10/2011, 12:18

Re: Garcia Settimanale in easy language

Messaggio10/11/2011, 10:39

Buongiorno Michele. Molto interessante la tua idea. Potresti condividere il file ela o meglio txt (non si sa mai con le nuove versioni di ts). Grazie anticipatamente. Ciao
Non connesso

Il Feroce Saladino

  • Messaggi: 141
  • Iscritto il: 03/10/2011, 8:38
  • Località: Toscana

Re: Garcia Settimanale in easy language

Messaggio10/11/2011, 11:29

Bravo, veramente interessante Michele, ancor di più se lo aggiornerai di continuo.
Grazie.
Chi vale vola, chi vola vale, chi non vola è un vile!
Non connesso

Michele - MM

  • Messaggi: 20
  • Iscritto il: 29/09/2011, 20:34

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 8:41

Aggiornamento Garcia settimanale
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Non connesso

gymmy72

  • Messaggi: 255
  • Iscritto il: 31/10/2011, 12:18

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 11:55

Se puo interessare inserisco codice per Garcia Settimanale (tradestation )
Usare data2 Vstoxx

[LegacyColorValue = true];

{*****************************************************************************************
Study: Garcia
Copyright (C) by Gyamma72
All rights reserved.
*****************************************************************************************}

Vars:Volat(0);
Vars: lineRef11(-1), lineRef12(-1), lineRef13(-1), lineRef14(-1),
lineRef15(-1), lineRef16(-1), lineRef17(-1), lineRef18(-1),
lineRef19(-1), lineRef20(-1), lineRef21(-1), lineRef22(-1),
lineRef23(-1), lineRef24(-1), lineRef25(-1), lineRef26(-1),
lineRef27(-1), lineRef28(-1), lineRef29(-1), lineRef30(-1),
lineRef31(-1), lineRef32(-1), lineRef33(-1), lineRef34(-1),
lineRef35(-1), lineRef36(-1), lineRef37(-1),
lineRef38(-1), lineRef39(-1), lineRef40(-1),
actDayRun(0), lastDate(0),
P(0), highC(0), lowC(0), closeC(0), lineRef(0),
R1(0), R2(0), R3(0), S1(0), S2(0), S3(0), value(0), R4(0), S4(0), R5(0), S5(0), R6(0), S6(0),
LL2(0), LL3(0), LL4(0), R7(0), HL2(0), HL3(0), S7(0),LL5(0),
closeC1(0), closeC2(0), closeC3(0),
lowC1(0), lowC2(0), lowC3(0),
highC1(0), highC2(0), highC3(0), extendRight(False);

extendRight = False;

Closec=Closew(1) ;
Volat=c data3*0.01;

P = intportion (((volat/15.8745)*CloseC)/4);

R1 = CloseC+P;
S1 = CloseC-P;
R2 = R1+P;
S2 = S1-P;
R3 = R2+P;
S3 = S2-P;

R4 = R3+P;
S4 = S3-P;
R5 = R4+P;
S5 = S4-P;
R6 = R5+P;
S6 = S5-P;

R7 = R6+P;
S7 = S6-P;





if D>D[1] then begin


value = Text_New(Date, Time, Closec, "Close Week,"+NUMTOSTR(closec,0)+"");
value = Text_New(Date, Time, S2, " "+NUMTOSTR(S2,0)+"");
value = Text_New(Date, Time, S3, "Sell 1 Put "+NUMTOSTR(S3,0)+"");
// value = Text_New(Date, Time, R1, "Trigger+,"+NUMTOSTR(r1,0)+"");
value = Text_New(Date, Time, R2, ""+NUMTOSTR(r2,0)+"");
value = Text_New(Date, Time, R3, "Sell 1 Call "+NUMTOSTR(r3,0)+"");

value = Text_New(Date, Time, R4, "Sell 2 Call "+NUMTOSTR(r4,0)+"");
value = Text_New(Date, Time, S4, "Sell 2 Put "+NUMTOSTR(s4,0)+"");
value = Text_New(Date, Time, R5, "Long FUT Hedge "+NUMTOSTR(r5,0)+"");
value = Text_New(Date, Time, S5, "Short FUT Hedge "+NUMTOSTR(S5,0)+"");
value = Text_New(Date, Time, R6, ""+NUMTOSTR(r6,0)+"");
value = Text_New(Date, Time, S6, ""+NUMTOSTR(s6,0)+"");
value = Text_New(Date, Time, R7, ""+NUMTOSTR(r7,0)+"");
value = Text_New(Date, Time, S7, ""+NUMTOSTR(s7,0)+"");






lineRef26 = TL_New(Date, 0100, R2,
Date, 2359, R2);
value = TL_SetExtRight(lineRef26, extendRight);
value = TL_SetColor(lineRef26, Blue);
value = TL_SetStyle(lineRef26, 3);

lineRef35 = TL_New(Date, 0100, R3,
Date, 2359, R3);
value = TL_SetExtRight(lineRef35, extendRight);
value = TL_SetColor(lineRef35, white);
value = TL_SetStyle(lineRef35, 2);



lineRef28 = TL_New(Date, 0100, closec,
Date, 2359, closec);
value = TL_SetExtRight(lineRef28, extendRight);
value = TL_SetColor(lineRef28, yellow);
value = TL_SetStyle(lineRef28, Tool_Solid);

lineRef29 = TL_New(Date, 0100, S2,
Date, 2359, S2);
value = TL_SetExtRight(lineRef29, extendRight);
value = TL_SetColor(lineRef29, Blue);
value = TL_SetStyle(lineRef29, 3);

lineRef34 = TL_New(Date, 0100, S3,
Date, 2359, S3);
value = TL_SetExtRight(lineRef34, extendRight);
value = TL_SetColor(lineRef34, white);
value = TL_SetStyle(lineRef34, 2);

//Flootrader Pivot Point Mids
lineRef30 = TL_New(Date, 0100, R4,
Date, 2359, R4);
value = TL_SetExtRight(lineRef30, extendRight);
value = TL_SetColor(lineRef30, white);
value = TL_SetStyle(lineRef30, 2);

lineRef31 = TL_New(Date, 0100,S4,
Date, 2359, S4);
value = TL_SetExtRight(lineRef31, extendRight);
value = TL_SetColor(lineRef31, white);
value = TL_SetStyle(lineRef31, 2);

lineRef32 = TL_New(Date, 0100, R5,
Date, 2359, R5);
value = TL_SetExtRight(lineRef32, extendRight);
value = TL_SetColor(lineRef32, Red);
value = TL_SetStyle(lineRef32, 4);
value = TL_SetSize(lineRef32, 2);

lineRef33 = TL_New(Date, 0100, S5,
Date, 2359, S5);
value = TL_SetExtRight(lineRef33, extendRight);
value = TL_SetColor(lineRef33, Red);
value = TL_SetStyle(lineRef33, 3);
value = TL_SetSize(lineRef33, 2);

lineRef36 = TL_New(Date, 0100, R6,
Date, 2359, R6);
value = TL_SetExtRight(lineRef36, extendRight);
value = TL_SetColor(lineRef36, blue);
value = TL_SetStyle(lineRef36, 3);

lineRef37 = TL_New(Date, 0100, S6,
Date, 2359, S6);
value = TL_SetExtRight(lineRef37, extendRight);
value = TL_SetColor(lineRef37, blue);
value = TL_SetStyle(lineRef37, 3);


lineRef17 = TL_New(Date, 0100, R7,
Date, 2359, R7);
value = TL_SetExtRight(lineRef17, extendRight);
value = TL_SetColor(lineRef17, Red);
value = TL_SetStyle(lineRef17, Tool_Dotted);

lineRef18 = TL_New(Date, 0100, S7,
Date, 2359, S7);
value = TL_SetExtRight(lineRef18, extendRight);
value = TL_SetColor(lineRef18, Red);
value = TL_SetStyle(lineRef18, Tool_Dotted);




End;
Non connesso

Michele - MM

  • Messaggi: 20
  • Iscritto il: 29/09/2011, 20:34

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 12:29

Complimenti per l'ordine nel listato... :)

io sono molto piu' disordinato...in più fa solo le scritte (listato da pulire essendo in costruzione...)

iNPUT:HI(highd(0)),LO(lowd(0)),CL(closed(1)),CL2(closed(1) of data2),
Plot3_(1),Plot_Swicc(0),Dyn(0),Molt(1),DIV(252),DIV2(4),ingresso("close"),
RGB_SH(RGB(166,202,240)),RGB_LG(RGB(166,202,240)),Plot_ESTREME(1),Arr(1);//Livelli("D"),

vars:swic(0),sar(0),sarSh(0),alrtsar(c),alrtsarSh(0);//DIV(0)

value1=CL;
value2=CL2;
//if Livelli= "D" THEN BEGIN
// DIV=252;END;
// if Livelli= "W" THEN BEGIN
// DIV=52;END;
plot25(CL,"CLOSE");

if HI > value20 then swic=1;
if LO < value14 then swic=-1;

if Plot_Swicc=1 then begin
plot15(swic,"swicc");
plot16(0,"zero");
end;

IF DYN =1 THEN BEGIN
if swic>0 then begin
sarSh=value13;
alrtsarSh=value13;
alrtsar=value9;

plot18(sarSh,"SarSh",RGB_SH);end;

if swic>0 and alrtsarSh<alrtsarSh[1] then begin alrtsarSh=alrtsarSh[1];
plot19(alrtsarSh,"alrtSarSh"); END;


if swic<0 then begin
sar=value9;
alrtsarSh=value13;
alrtsar=value9;
plot17(sar,"Sar",RGB_LG);end;

if swic<0 and alrtsar>alrtsar[1] then begin alrtsar=alrtsar[1];
plot20(alrtsar,"alrtSar");
end;

end;

if swic>0 then begin setplotcolor(15,green);
//setplotcolor(17,green);
//setplotcolor(18,green);
end;
if swic<0 then begin setplotcolor(15,red);
//setplotcolor(17,red);
//setplotcolor(18,red);
end;
value3=value2/squareroot(DIV);

value4=(value1*value3)/100;

value5=Arr *round( (floor(value4/DIV2))/Arr,0);
//value5=floor(value4/DIV2);

value6=Arr*round((value1+(value5*Molt))/Arr,0);
value7=value6+value5;
value8=value7+value5;
value9=value8+value5;
value20=value9+value5;
value21=value20+value5;
value22=value21+value5;
value23=value1+value5;


if Plot_Swicc=0 and Dyn=0 then begin
IF Plot_ESTREME=0 THEN BEGIN
plot22(value23,"Liv0"); end;
plot2(value6,"Liv1");
plot3(value7,"Liv2");
plot4(value8,"Liv3");
plot5(value9,"Liv4");
plot10(value20,"Liv5");
end;



value10=Arr*round((value1-(value5*Molt))/Arr,0);
value11=value10-value5;
value12=value11-value5;
value13=value12-value5;
value14=value13-value5;
value15=value14-value5;
value16=value15-value5;
value24=value1-value5;




if Plot_Swicc=0 and Dyn=0 then begin
IF Plot_ESTREME=0 THEN BEGIN
plot21(value24,"Liv-0");end;
plot6(value10,"Liv-1");
plot7(value11,"Liv-2");
plot8(value12,"Liv-3");
plot9(value13,"Liv-4");
plot13(value14,"Liv-5");
end;


{if swic=1 then begin

setplotcolor(2,darkgray);
setplotcolor(3,darkgray);
setplotcolor(4,darkgray);
setplotcolor(5,darkgray);
setplotcolor(22,darkgray);

end;
if swic=-1 then begin

setplotcolor(21,darkgray);
setplotcolor(6,darkgray);
setplotcolor(7,darkgray);
setplotcolor(8,darkgray);
setplotcolor(9,darkgray);

end;}

{SCRIVE LIVELLI EDGE}
Variables: sar_text(-1),sarsh_text(-1),Oldsar_text(-1),Oldsarsh_text(-1),AGGIUNGI(0);
AGGIUNGI=ABSVALUE((2-Molt)*value5);

if barnumber<>barnumber[1] then begin

if swic=-1 then begin
Oldsar_text=sar_text;
sar_text = Text_New(Date, Time, value9+AGGIUNGI, NumToStr(value9+AGGIUNGI,0));
If Oldsar_text <> -1 Then
Value51 = Text_Delete(Oldsar_text);
end;

if swic=1 then begin
Oldsarsh_text=sarsh_text;
sarsh_text = Text_New(Date, Time, sarsh-AGGIUNGI, NumToStr(value13-AGGIUNGI,0));
If Oldsarsh_text <> -1 Then
Value52 = Text_Delete(Oldsarsh_text);
end;
end;

if lastbaronchart then begin//and swic=-1
Text_SetColor(sar_text, RGB_SH);
Text_SetString(sar_text, NumToStr(value9+AGGIUNGI,0)+" Lg Fut "+ingresso);
Text_SetLocation(sar_text, Date, Time+2*barinterval,value9+AGGIUNGI);end;

if lastbaronchart then begin//and swic=1
Text_SetColor(sarsh_text, RGB_LG);
Text_SetString(sarsh_text, NumToStr(value13-AGGIUNGI,0)+" Sh Fut "+ingresso);
Text_SetLocation(sarsh_text, Date, Time+2*barinterval,value13-AGGIUNGI);end;

{SCRIVE LIVELLI 1 SELL CALL PUT}
Variables: sellcall_text(-1),sellput_text(-1),Oldsellcall_text(-1),Oldsellput_text(-1);
if barnumber<>barnumber[1] then begin

if swic=-1 then begin
Oldsellcall_text=sellcall_text;
sellcall_text = Text_New(Date, Time, value8+AGGIUNGI, NumToStr(value8+AGGIUNGI,0));
If Oldsellcall_text <> -1 Then
Value53 = Text_Delete(Oldsellcall_text);
end;

if swic=1 then begin
Oldsellput_text=sellput_text;
sellput_text = Text_New(Date, Time, value12-AGGIUNGI, NumToStr(value12-AGGIUNGI,0));
If Oldsellput_text <> -1 Then
Value54 = Text_Delete(Oldsellput_text);
end;
end;

if lastbaronchart then begin//and swic=-1
Text_SetColor(sellcall_text, RGB_LG);
Text_SetString(sellcall_text, NumToStr(value8+AGGIUNGI,0)+" 2^SellCall ");
Text_SetLocation(sellcall_text, Date, Time+2*barinterval,value8+AGGIUNGI);end;

if lastbaronchart then begin//and swic=1
Text_SetColor(sellput_text, RGB_SH);
Text_SetString(sellput_text, NumToStr(value12-AGGIUNGI,0)+" 2^SellPut ");
Text_SetLocation(sellput_text, Date, Time+2*barinterval,value12-AGGIUNGI);end;

{SCRIVE LIVELLI 2 SELL CALL PUT}
Variables: sellcall2_text(-1),sellput2_text(-1),Oldsellcall2_text(-1),Oldsellput2_text(-1);
if barnumber<>barnumber[1] then begin

if swic=-1 then begin
Oldsellcall2_text=sellcall2_text;
sellcall2_text = Text_New(Date, Time, value7+AGGIUNGI, NumToStr(value7+AGGIUNGI,0));
If Oldsellcall2_text <> -1 Then
Value55 = Text_Delete(Oldsellcall2_text);
end;

if swic=1 then begin
Oldsellput2_text=sellput2_text;
sellput2_text = Text_New(Date, Time, value11-AGGIUNGI, NumToStr(value11-AGGIUNGI,0));
If Oldsellput2_text <> -1 Then
Value56 = Text_Delete(Oldsellput2_text);
end;
end;

if lastbaronchart then begin//and swic=-1
Text_SetColor(sellcall2_text, RGB_LG);
Text_SetString(sellcall2_text, NumToStr(value7+AGGIUNGI,0)+" 1^SellCall ");
Text_SetLocation(sellcall2_text, Date, Time+2*barinterval,value7+AGGIUNGI);end;

if lastbaronchart then begin//and swic=1
Text_SetColor(sellput2_text, RGB_SH);
Text_SetString(sellput2_text, NumToStr(value11-AGGIUNGI,0)+" 1^SellPut ");
Text_SetLocation(sellput2_text, Date, Time+2*barinterval,value11-AGGIUNGI);end;
Non connesso

Michele - MM

  • Messaggi: 20
  • Iscritto il: 29/09/2011, 20:34

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 12:38

PARDON !!

Il tuo e' un listato meraviglioso! L' ho messo ed ho visto tutto.....

Bravo veramente!
Non connesso

gymmy72

  • Messaggi: 255
  • Iscritto il: 31/10/2011, 12:18

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 13:22

Grazie Mik. Cmq,Non e' tutta farina del mio sacco avendo riadattato un listato di qualche floor pivot che mi trovavo tra i centinaia di ela bazzicati. L'importante e' che funzioni ;))
Non connesso

th.ch.

  • Messaggi: 166
  • Iscritto il: 29/09/2011, 8:59

Re: Garcia Settimanale in easy language

Messaggio11/11/2011, 13:41

Complimenti ad entrambi!
Vedere che in questa comunità ci sono persone che sanno programmare in Easylanguage è ottima cosa...
Prossimo

Torna a Indicatori e Oscillatori



Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti