// TS-PUNTATORE SEGNAMINIMI E SEGNAMASSIMI BY SOLOSPREAD dopo la cura dimagrante
Var: miomov1,miomax1,miomin1,AA,BB,CC,DD,VV,ZZ,HH,PP,MINIMI,QQ,KK;
var: mio1,tank,please,UU,miorsi1,SLOW,miorsi2;
var: indzona1,indzona2,indzona3,indzona4,SEGNAMASSIMI;
var: PUNTATORESEGNAMINIMI,SEGNAMINIMI,media1,media2;
var: RA,RB,RC,RD,RCRD,TANK1,PLEASE1;
var: miorsi1,mioMOV1,mioMAX1,mioMIN1,AA,BB,CC,DD;
var: tank,please,VV,ZZ,HH,PP,SDE,SDO;
var: aaa,bbb,ccc,ddd,MIOMOV2,MIOMAX2,MIOMIN2;
var: A1,B1,C1,D1,minsegnamassimi;
var: maxsegnamassimi,minpuntatoresegnaminimi;
var: TREND,STREET,med;
var: slip,R2S,Mslip,MR2s,minimum,maximum;
var: MIN1,MAX1,bb1,CC1,MAXIM;
var: DER,MDER,minDER,DOR,mio8,mio9;
Var: mioosc3(0);
Var: mioosc1(0);
Var: mioosc2(0);
var: mio1,RS5,mio2,mio3,mio4,mio5,mio6,mio7;
var: mio80,M80,M81,M82,M9,MM9,ANTICIPATORI;
Var: entry1,entry2,RS3,mio25,mio78,mio79,m78,m79;
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 colorbar(blue); 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 colorbar(blue); MINIMUM = 10; else MINIMUM = 0; endif;
if slip >= R2s then colorbar(black) ;maximum = 10; else maximum = 0; endif;
if (R2S - slip) < 0.08 then colorbar(black) ;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 colorbar(black); 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 colorbar(black); 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 colorbar(blue); mio8 = 10; else mio8 = 0; endif;
if miorsi1 > miorsi1[3] then RS3 = (miorsi1-miorsi1[1]); endif;
if miorsi1 < miorsi1[3] then RS3 = (miorsi1[1]-miorsi1); endif;
RS5 = miorsi1-RS3;
if C > C[1] then mio1 = mio1+RS5;else mio1 = mio1-RS5; endif;
if C > C[5] then mio2 = H[1]; else mio2 = L; endif;
if C < C[5] then mio2 = L[1]; else mio2 = H; endif;
mio3 = C[1];
mio4 = C[2];
mio25 = MOV(mio1,5,e);
mio78 = Mov(mio2,5,e);
mio79 = Mov(mio78,3,e);
mio80 = MIO78-mio79;
M80 = MOV(mio80,5,e);
M81 = H-mio78;
M82 = mio79-L;
//////////////////
M9 = M80-0.0001;
MM9 = MOV(M9,5,e);
//if M81 > M82 and H > H[1] or L > L[1] then colorbar(black); endif;
//if m81 < M82 and H < H[1] or L < L[1] then colorbar(fuchsia); endif;
if M81 > M82 and mio78 > mio79 then colorbar(green); endif;
if m81 < M82 and mio78 < mio79 then colorbar(red); endif;
indzona1 = createviewport(100,true,true);
indzona2 = createviewport(100,true,true);
indzona3 = createviewport(200,true,true);
plotchart (mio78,0,red,solid,2);
plotchart (mio79,0,black,solid,2);
plotchart (minimum,indzona1,blue,solid,1);
plotchart (mio8,indzona1,red,solid,1);
plotchart (maximum,indzona2,red,solid,1);
plotchart (MIO9,indzona2,blue,solid,1);
plotchart (DOR,indzona2,black,solid,1);
plotchart (M82,indzona3,red,solid,2);
plotchart (M81,indzona3,blue,solid,2);