IF(1){ NS=0;
RS:(LOW-LLV(LOW,NS))/(HHV(HIGH,NS)-LLV(LOW,NS))*100,colorlired,Linethick2,nodraw;
PH:LOW/HHV(HIGH,NS)*100,colorligreen,Linethick2,nodraw;
VH:VOL/HHV(VOL,NS)*100,colorlicyan,Linethick2;
//RETURN RS,PH,VH;
}
/********************************/
/********************************/
IF(1){
p:=CLOSE;
N:=3;
X:=(N+1)/2;
XX:=(N+1)*(2*N+1)/6;
XY:=(1*REF(p,N-1)+2*REF(p,N-2)+3*REF(p,N-3))/3;
Y:=(1*REF(p,N-1)+1*REF(p,N-2)+1*REF(p,N-3))/3;
A:=ATAN((XY-X*Y)/(XX-X*X))*180/3.1415926,colorred,Linethick2;
D:=STD(p,N),colorgreen,Linethick2;
//ADD:CORREL(A,D,N)*100,Linethick2,colorgreen;
AB:=(1*REF(A,N-1)+1*REF(A,N-2)+1*REF(A,N-3))/3;
DB:=(1*REF(D,N-1)+1*REF(D,N-2)+1*REF(D,N-3))/3;
ADC:=A*D;
ADB:=(1*REF(ADC,N-1)+1*REF(ADC,N-2)+1*REF(ADC,N-3))/3;
//ADB:(REF(A,N-1)*REF(D,N-1)+REF(A,N-2)*REF(D,N-2)+REF(A,N-3)*REF(D,N-3))/3;
CAD:(ADB-AB*DB)/(STD(A,N)*STD(D,N))*100*N/(N-1),Linethick2;
//test:ADD/CAD;
}/********************************/
/********************************/
UL:=CLOSE/REF(CLOSE,1)>=1.099;
LL:=CLOSE/REF(CLOSE,1)<=0.901;
//BL:=BARSLAST(UL),colormagenta,Linethick2,nodraw;
/********************************/
/********************************/
IF(UL){
UP=90;
STICKLINE(1>0,7+UP,10+UP,10,0),colorred;
STICKLINE(1>0,0+UP,7+UP,2,0),colorred;
}
/*****/
S:=RS>90 AND PH>85 AND VH>50 AND CAD>90;
IF(S){
UP=81;
STICKLINE(1>0,6+UP,9+UP,12,0),colorgreen;
STICKLINE(1>0,3+UP,6+UP,6,0),colorgreen;
STICKLINE(1>0,0+UP,3+UP,2,0),colorgreen;
}
/********************************/
/********************************/
IF(LL){
DOWN=100;
STICKLINE(1>0,3-DOWN,10-DOWN,2,0),colorgreen;
STICKLINE(1>0,0-DOWN,3-DOWN,10,0),colorgreen;
}
/*****/
B:=RS<60 AND PH<70 AND VH<30 AND CAD<-90;
IF(B){
DOWN=91;
STICKLINE(1>0,6-DOWN,9-DOWN,2,0),colorred;
STICKLINE(1>0,3-DOWN,6-DOWN,6,0),colorred;
STICKLINE(1>0,0-DOWN,3-DOWN,12,0),colorred;
}
/********************************/
/********************************/
|
