VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:='                                         '+NUMTOSTR(FY[P],0)+''+NUMTOSTR(FM[P],0)+'  今天是：'+NUMTOSTR(FD[P],0)+'年'+WDAY[WD[P]+1];
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,STR1),ALIGN5,colorFFFF;
STR1:='月';
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,STR1),ALIGN5,colorFFFF;
VAR4:=(2*CLOSE+LOW+HIGH)/4;
风险:=EMA(VAR4,45)*1.15;
必卖:=EMA(VAR4,55)*1.3;
底:=EMA(VAR4,40)*0.85;
铁底:=EMA(VAR4,88)*0.7;
成本:=EMA(VAR4,55);
价值:=(成本+底)/2;
LC:=REF(CLOSE,1);
RSI:=(SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1))*100;
DRAWTEXT(CROSS(RSI,20),LOW*0.92,'日, '),ALIGN0,PXUP6,colorC71585;
STICKLINE(CROSS(RSI,20),LOW*0.98,LOW*1,6,0),colorFF0000;
DRAWTEXT(CROSS(80,RSI) AND CLOSE>风险,HIGH*1.04,'  博雅专用：QQ 811182295                                       '),ALIGN0,PXUP6,colorFF0000;
STICKLINE(CROSS(80,RSI) AND CLOSE>风险,HIGH*1.02,HIGH*1,6,0),colorFF0000;
MA13:=MA(CLOSE,13);
MA34:=MA(CLOSE,34);
MA55:=MA(CLOSE,55);
LC:=REF(CLOSE,1);
RSI:=(SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1))*100;
VAR7:=EMA(AMOUNT/VOL/100,3);
低吸:=CROSS(RSI,11);
DRAWTEXT(低吸,LOW*0.98,''),colorFFFFFF;
VAR8:=EMA(VAR7,88);
VAR9:=EMA(VAR7,88)*0.85;
VARA:=VAR9*0.87;
VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02;
DRAWTEXT(FILTER(VARB,6),LOW-0.14,'   '),colorFF00FF;
VARF:=(2*CLOSE+HIGH+LOW)/4;
VA4:=LLV(LOW,34);
VA5:=HHV(HIGH,34);
VA6:=EMA((VARF-VA4)/(VA5-VA4)*100,6);
VA7:=EMA(0.667*REF(VA6,1)+0.333*VA6,4);
DRAWTEXT(IF((COUNT(CLOSE<REF(CLOSE,1),8))/8>0.3 AND COUNT(VA6>VA7,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0),LOW*0.98,'博雅买'),colorFFFF;
A:=(3*CLOSE+LOW+OPEN+HIGH)/6;
D1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/211;
D2:=EMA(D1,2);
D3:=EMA(D2,2);
K1:=EMA(D3,2);
多趋势:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1),2,1);
天:=78.89;
STICKLINE(CROSS(天,多趋势),HIGH*1.02,HIGH*1,6,0),colorFF00FF;
DRAWTEXT(CROSS(天,多趋势),HIGH*1.04,'博雅卖'),colorFF00FF;
MID:=(OPEN+CLOSE)/2;
HSL:=IF(CAPITAL=0,VOL/SUM(VOL,0),VOL/CAPITAL);
IF CAPITAL=0 THEN BEGIN
HSL:=VOL/SUM(VOL,0);
A:=SETLBOUND(49,1);
FOR I=1 TO MIN(-1,DATACOUNT) DO BEGIN
HSL[I]:=0;
END;
END;
LJHS[1]:=HSL[1];
CYC1[1]:=MID[1];
LJHS2[1]:=HSL[1];
CYC2[1]:=MID[1];
LJHS3[1]:=HSL[1];
CYC3[1]:=MID[1];
LJHSM[1]:=HSL[1];
CYC∞[1]:=MID[1];
DD:=MID[1]*(BARPOS<0);
FOR I=LBOUND(HSL)+1 TO DATACOUNT DO BEGIN
LJHS[I]:=(LJHS[I-1])*(1-HSL[I])*(8-1)/8+HSL[I];
CYC1[I]:=(MID[I]*HSL[I]+(CYC1[I-1])*(LJHS[I-1])*(1-HSL[I])*(8-1)/8)/LJHS[I]+DD[I];
LJHS2[I]:=(LJHS2[I-1])*(1-HSL[I])*(21-1)/21+HSL[I];
CYC2[I]:=(MID[I]*HSL[I]+(CYC2[I-1])*(LJHS2[I-1])*(1-HSL[I])*(21-1)/21)/LJHS2[I]+DD[I];
LJHS3[I]:=(LJHS3[I-1])*(1-HSL[I])*(60-1)/60+HSL[I];
CYC3[I]:=(MID[I]*HSL[I]+(CYC3[I-1])*(LJHS3[I-1])*(1-HSL[I])*(60-1)/60)/LJHS3[I]+DD[I];
LJHSM[I]:=(LJHSM[I-1])*(1-HSL[I])+HSL[I];
CYC∞[I]:=(MID[I]*HSL[I]+(CYC∞[I-1])*(LJHSM[I-1])*(1-HSL[I]))/LJHSM[I]+DD[I];
END;
CYC8:CYC1,colorFFFF;
CYC21:CYC2,colorFF00FF;
CYC60:CYC3,colorFF00;
CYC∞:CYC∞,LINETHICK2,colorFF0000;
★乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
DRAWTEXT(★乌云盖顶,HIGH,'低吸');
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.9,0),colorFF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,8,0),colorFF;
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.9,0),colorFF;
STICKLINE(CLOSE<=OPEN,OPEN,CLOSE,8,0),colorFF00;
STICKLINE(CLOSE<=OPEN,OPEN,HIGH,0.9,0),colorFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,LOW,0.9,0),colorFF00;