Quando ho tempo li faccio girare, magari la domenica sul giornaliero. Mi piace molto il puntatore segnaminimi. Secondo me è quello che mi è venuto meglio. Lo trovi da qualche parte nel thread nelle varie estensioni.
Ciao Solospread,io ho trovato questa versione,sui ttitoli del ma ti chiedo come potrei metterlo in pratica usando le funzioni enterlong,exitlong,e viceversa?lo sto provando sui titoli del FTSE MIB,grazie in anticipo
Buona serata
Var: miomov1,miomax1,miomin1,AA,BB,CC,DD,VV,ZZ,HH,PP,MINIMI,QQ,KK;
var: mio1,tank,please,SDE,SDO,UU,miorsi1,SLOW,segnamassimi,miorsi2;
var: indzona1,indzona2,indzona3,indzona4,SEGNAMASSIMI;
var: PUNTATORESEGNAMINIMI,SEGNAMINIMI,media1,media2;
Var: mioosc3(0);
Var: mioosc1(0);
Var: mioosc2(0);
var: RA,RB,RC,RD,RCRD,TANK1,PLEASE1;
var: miorsi1,mioMOV1,mioMAX1,mioMIN1,AA,BB,CC,DD;
var: tank,please,VV,ZZ,HH,PP;
var: aaa,bbb,ccc,ddd,MIOMOV2,MIOMAX2,MIOMIN2;
var: A1,B1,C1,D1,minsegnamassimi;
var: maxsegnamassimi,minpuntatoresegnaminimi;
var: TREND,STREET,med,STOP1;
var: slip,R2S,Mslip,MR2s,minimum,maximum;
var: MIN1,MAX1,bb1,CC1,MAXIM,mioval,mioval1;
var: DER,MDER,minDER,DOR,mio8,mio9;
MIN1 = LLV(RSI(C,14,s),20) < Ref(LLV(RSI(C,14,s),20),2) AND LLV(RSI(C,14,s),20) < 30;
MAX1 = HHV(RSI(C,14,s),20) > Ref(HHV(RSI(C,14,s),20),2) AND HHV(RSI(C,14,s),20) > 75;
if MIN1 = true then
bb1 =1;
else
bb1 =0;
endif;
if MAX1 = TRUE then
CC1 =1;
else
CC1 =0;
endif;
mioRSI1 = RSI(C,14,s); //RSI da usare suframe 5 minuti
mioRSI2 = RSI(C,21,s); // RSI da usare su frame giornaliero
mioMOV1 = MOV(mioRSI1,3,s);
mioMAX1 = HHV(mioRSI1,30);
mioMIN1 = LLV(mioRSI1,30);
miomax2 = HHV(H,30);
miomin2 = LLv(L,30);
miomov2 = MOV(C,3,s);
// BANDE DI SOLOSPREAD
AA = ((miomax1 - C)+ (miomov1)*miomax1)/H;
BB = ((miomin1 - C)+ (miomov1)*miomin1)/L;
CC = (miomax1- miomov1)+ (C * miomax1)/(C);
DD = (miomin1 - miomov1)+ ( C *miomin1)/(C);
//BANDE MODIFICATE CON RSI
AAA = ((mioMAX1 - mioRSI1) + (mioMOV1)*mioMAX2)/H;
BBB = ((mioMIN1 - mioRSI1) + (mioMOV1)*mioMIN2)/L;
CCC = (miomax1- miomov1) + (mioRSI1 * miomax2)/C;
DDD = (miomin1 - miomov1)+ ( mioRSI1 *miomin2)/C;
a1 = aa+aaa;
b1 = bb+bbb;
c1 = cc+ccc;
d1 = dd+ddd;
TANK = MOV(A1,3,s);
PLEASE = MOV(B1,3,s);
VV = (CC-AA);
ZZ = (BB-DD);
HH = VV-ZZ;
PP = tank - please;
media1 = MOV(C, 10, S);
media2 = MOV(C,50,s);
// BOLLINGER
mioosc2 = BBandLower (C, 20, 4, 0);
mioosc1 = BBandUpper (C, 20, 4, 0);
mioosc3 = BBandCenter (C, 20, 4, 0);
miomax1 = HHV(H,30);
miomin1 = LLV(L,30);
miomov1 = MOV(C,3,s);
RA = ((miomax1 - C)+ (miomov1)*miomax1)/H;
RB = ((miomin1 - C)+ (miomov1)*miomin1)/L;
RC = (miomax1- miomov1)+ (C * miomax1)/(C);
RCRD = (miomin1 - miomov1)+ ( C *miomin1)/(C);
tank1 = MOV(RA,3,s);
please1 = MOV(RB,3,s);
QQ = (RC-RA)/please1;
KK = (mioosc1-RB)/tank1;
med = (miomax2-miomin2)/2 + miomin2;
PUNTATORESEGNAMINIMI = (100/( miorsi1+(qq-kk))+48); // MOTORE
SEGNAMASSIMI = (a1/c1);
//////////////////////////////////////////////////////////
slip = (segnamassimi/puntatoresegnaminimi)* 100;
r2s = (PUNTATORESEGNAMINIMI/SEGNAMASSIMI)/ 100;
Mslip = LLV(slip,15);
Mr2s = HHV(r2s,15);
//////////////////////////////////////////////////////////
if slip = Mslip and slip < slip[1] and (Mr2s -Mslip)> 1.2 and puntatoresegnaminimi < puntatoresegnaminimi[1]and puntatoresegnaminimi > 50 then MINIMUM = 10; else MINIMUM = 0; endif;
if r2s = mr2s and r2s > r2s[1] and (Mr2s -Mslip)> 1.2 and puntatoresegnaminimi < puntatoresegnaminimi[1] and puntatoresegnaminimi > 50 then MINIMUM = 10; else MINIMUM = 0; endif;
if slip >= R2s then maximum = 10; else maximum = 0; endif;
if (R2S - slip) < 0.08 then maximum = 10; else maximum = 0; endif;
//////////////////////////////////////////////////////////////////////
DER = (AA-BB)+48;
MDER = HHV(DER,10);
minDER =LLV(DER,10);
if puntatoresegnaminimi < 50 and puntatoresegnaminimi[2] > puntatoresegnaminimi[1] and puntatoresegnaminimi >= puntatoresegnaminimi[1]
and DER[1] = MDER and DER <= DER[1] then DOR = 10; else DOR = 0; endif;
if H[1] = miomax1 and puntatoresegnaminimi[1] < 50 and puntatoresegnaminimi > puntatoresegnaminimi[1] and H < H[1] and DER < DER[1] then mio9 = 10; else mio9 = 0; endif;
if L[1] = miomin1 and puntatoresegnaminimi[1] > 51 and puntatoresegnaminimi < puntatoresegnaminimi[1] and L > L[1] and DER > DER[1] then mio8 = 10; else mio8 = 0; endif;
if DOR > 5 then mioval = H; endif;
if mio9 > 5 then mioval = H; endif;
if MIO8 = 10 then mioval1 = L; endif;
if MINIMUM = 10 then mioval1 = L; endif;
if DOR > 5 then STOP1 =L; endif;
if mio9 > 5 then STOP1 =L; endif;
if MIO8 = 10 then STOP1 =H; endif;
if MINIMUM = 10 then STOP1 =H; endif;
indzona1 = createviewport(200,true,true);
indzona2 = createviewport(200,true,true);
indzona3 = createviewport(200,true,true);
indzona4 = CreateViewport(200,true,true);
plotchart (minimum,indzona1,blue,solid,1);
plotchart (mio8,indzona1,red,solid,1);
plotchart (STOP1,0,black,solid,1);
plotchart (MIOVAL,0,red,solid,2);
plotchart (MIOVAL1,0,blue,solid,2);
plotchart (maximum,indzona2,red,solid,1);
plotchart (MIO9,indzona2,blue,solid,1);
plotchart (DOR,indzona2,black,solid,1);