www.optionclub.it

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

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

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

Bravo, veramente interessante Michele, ancor di più se lo aggiornerai di continuo.
Grazie.

Aggiornamento Garcia settimanale

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;

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;

PARDON !!

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

Bravo veramente!

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 )

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