GARCIA SU TRADESTATION

Per chi interessato rendo disponibile listato per visualizzare i Livelli Garcia su Tradestation
Vi spiego gli input
Sottostante = Se lasciate 0 il listato leggera' e prendera il Close della giornata precedente per formare i livelli.
Siccome spesso rispetto ai vari fornitori dati c'e' qualche discrepanza dal prezzo poi ufficiale di Borsa
Italia ( per esempio oggi io avevo 15226 contro 15334 ) potete inserire il prezzo a mano se volete.
VolatCall : Intuitivo no? Inserite la volatilita' delle call ( se per esempio e' 40% inserite .40)
VolatPut : IInserite volatilita put ( se avete solo quella generale lasciate 0 e sara' utilizzata quella delle call)
Spero possa tornarvi utile
Ciao

Ps Potete utilizzarlo su qualsiasi strumento ma dovrete cancellare ( basta anteporre alla riga due // ) tutte
le righe ---> If mod(R1,5)>=1 then R1=R1-mod(R1,5)+5 else R1=R1-mod(R1,5);
Questo comando infatti arrotonda il prezzo a 5 cosa che nell'eurostoxx per esempio non serve.

********************************************************************
[LegacyColorValue = true];

{*****************************************************************************************
Study: Garcia FTSEMIB da una Idea di Antonio Zorri
Copyright by Gyamma72
All rights reserved.
*****************************************************************************************}
InPut: Sottostante(0),VolatCall(.22),VolatPut(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),
PCall(0), PPut(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;
//If (Date = CurrentDate) Then extendRight = True;

if sottostante=0 then Closec=CloseD(1) else Closec=sottostante;
//PCallrint(t,d,closec);



PCall = intportion (((VolatCall/15.8745)*CloseC)/4);
If VolatPut=0 then PPut=PCall Else PPut=intportion (((VolatPut/15.8745)*CloseC)/4);
;
R1 = CloseC+PCall;
If mod(R1,5)>=1 then R1=R1-mod(R1,5)+5 else R1=R1-mod(R1,5);
S1 = CloseC-PPut;
If mod(S1,5)>=1 then S1=S1-mod(S1,5)+5 else S1=S1-mod(S1,5);
R2 = R1+PCall;
If mod(R2,5)>=1 then R2=R2-mod(R2,5)+5 else R2=R2-mod(R2,5);
S2 = S1-PPut;
If mod(S2,5)>=1 then S2=S2-mod(S2,5)+5 else S2=S2-mod(S2,5);
R3 = R2+PCall;
If mod(R3,5)>=1 then R3=R3-mod(R3,5)+5 else R3=R3-mod(R3,5);
S3 = S2-PPut;
If mod(S3,5)>=1 then S3=S3-mod(S3,5)+5 else S3=S3-mod(S3,5);
R4 = R3+PCall;
If mod(R4,5)>=1 then R4=R4-mod(R4,5)+5 else R4=R4-mod(R4,5);
S4 = S3-PPut;
If mod(S4,5)>=1 then S4=S4-mod(S4,5)+5 else S4=S4-mod(S4,5);
R5 = R4+PCall;
If mod(R5,5)>=1 then R5=R5-mod(R5,5)+5 else R5=R5-mod(R5,5);
S5 = S4-PPut;
If mod(S5,5)>=1 then S5=S5-mod(S5,5)+5 else S5=S5-mod(S5,5);
R6 = R5+PCall;
If mod(R6,5)>=1 then R6=R6-mod(R6,5)+5 else R6=R6-mod(R6,5);
S6 = S5-PPut;
If mod(S6,5)>=1 then S6=S6-mod(S6,5)+5 else S6=S6-mod(S6,5);
R7 = R6+PCall;
If mod(R7,5)>=1 then R7=R7-mod(R7,5)+5 else R7=R7-mod(R7,5);
S7 = S6-PPut;
If mod(S7,5)>=1 then S7=S7-mod(S7,5)+5 else S7=S7-mod(S7,5);





if D>D[1] then begin


// value = Text_New(Date, Time, S1, "Trigger-,"+NUMTOSTR(S1,0)+"");
value = Text_New(Date, Time, S2, "+1 Call, "+NUMTOSTR(S2,0)+"");
value = Text_New(Date, Time, S3, "+2 Call, "+NUMTOSTR(S3,0)+"");
value = Text_New(Date, Time, CloseC, "CLOSE D(1),"+NUMTOSTR(CloseC,0)+","+NUMTOSTR(PCall,0)+"");
value = Text_New(Date, Time, R2, "+1 Put, "+NUMTOSTR(r2,0)+"");
value = Text_New(Date, Time, R3, "+2 Put, "+NUMTOSTR(r3,0)+"");

value = Text_New(Date, Time, R4, "+4 Put,+ 1 DS, "+NUMTOSTR(r4,0)+"");
value = Text_New(Date, Time, S4, "+4 Call,- 1 DS, "+NUMTOSTR(s4,0)+"");
value = Text_New(Date, Time, R5, "+1 Future,"+NUMTOSTR(r5,0)+"");
value = Text_New(Date, Time, S5, "-1 Future,"+NUMTOSTR(S5,0)+"");
value = Text_New(Date, Time, R6, "+1 Future_, "+NUMTOSTR(r6,0)+"");
value = Text_New(Date, Time, S6, "-1 Future_, "+NUMTOSTR(s6,0)+"");
value = Text_New(Date, Time, R7, "+CLOSE,+2 DS, "+NUMTOSTR(r7,0)+"");
value = Text_New(Date, Time, S7, "-CLOSE,-2 DS, "+NUMTOSTR(s7,0)+"");





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


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


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

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



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

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

//Flootrader PCallivot PCalloint Mids
lineRef30 = TL_New(Date, 0100, R4,
Date, 2359, R4);
value = TL_SetExtRight(lineRef30, extendRight);
value = TL_SetColor(lineRef30, red);
value = TL_SetStyle(lineRef30, Tool_Solid);
value = TL_SetSize(lineRef30, 2);

lineRef31 = TL_New(Date, 0100,S4,
Date, 2359, S4);
value = TL_SetExtRight(lineRef31, extendRight);
value = TL_SetColor(lineRef31, red);
value = TL_SetStyle(lineRef31, Tool_Solid);
value = TL_SetSize(lineRef31, 2);
lineRef32 = TL_New(Date, 0100, R5,
Date, 2359, R5);
value = TL_SetExtRight(lineRef32, extendRight);
value = TL_SetColor(lineRef32, DarkGray);
value = TL_SetStyle(lineRef32, Tool_Solid);

lineRef33 = TL_New(Date, 0100, S5,
Date, 2359, S5);
value = TL_SetExtRight(lineRef33, extendRight);
value = TL_SetColor(lineRef33, DarkGray);
value = TL_SetStyle(lineRef33, Tool_Solid);

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

lineRef37 = TL_New(Date, 0100, S6,
Date, 2359, S6);
value = TL_SetExtRight(lineRef37, extendRight);
value = TL_SetColor(lineRef37, DarkGray);
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, 2);
value = TL_SetSize(lineRef17, 2);
lineRef18 = TL_New(Date, 0100, S7,
Date, 2359, S7);
value = TL_SetExtRight(lineRef18, extendRight);
value = TL_SetColor(lineRef18, Red);
value = TL_SetStyle(lineRef18, 2);
value = TL_SetSize(lineRef18, 2);


End;