{三组趋势线2023 N 1 200 3 RI 1 3000 150}
A1:=FINANCE(42);
A2:=DATETODAY(CONST(DATE));
A3:=A2-A1;
XDATE:=DAYTODATE(A3)+19000000;
SSRQ:=STRCAT(CON2STR(XDATE,0),' ');
{MA250:MA(C,250),COLORBLUE;}
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,SSRQ);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z4,GNBLOCK)),COLORWHITE;
{画涨跌停板K线}
STICKLINE(ZT,C,O,-1,0),COLORRED;STICKLINE(DT,C,O,-1,0),COLORGREEN;
{标字}
SYX:=H/MAX(O,C);
DRAWTEXT(SYX>=1.05,H*1.005,VAR2STR(SYX,4)),COLORLIBLUE;
DRAWTEXT(ZT,H*1.02,'涨'),COLORYELLOW;DRAWTEXT(DT,L*0.98,'跌'),COLORYELLOW;
{画假阴真阳K线}
STICKLINE(O>C AND C>REF(C,1),C,O,-1,0),COLORYELLOW;
V1:=IF(BARSSINCE(C)>=60,HHV(V,60),0)=V;
{VJ: DRAWLINE(V1,H,REF(均价,1),REF(均价,1),1),DOTLINE,COLORWHITE;}
VH: DRAWLINE(V1,H,REF(V1,1),REF(H,1),1),DOTLINE,COLORRED;
VO: DRAWLINE(V1,O,REF(V1,1),REF(O,1),1),COLORYELLOW;
VC: DRAWLINE(V1,C,REF(V1,1),REF(C,1),1),COLORMAGENTA;
VL: DRAWLINE(V1,L,REF(V1,1),REF(L,1),1),COLORGREEN;
{VJP:=REFX(VJ=DRAWNULL,1) OR ISLASTBAR;}
VHP:=REFX(VH=DRAWNULL,1) OR ISLASTBAR;
VOP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VCP:=REFX(VC=DRAWNULL,1) OR ISLASTBAR;
VLP:=REFX(VL=DRAWNULL,1) OR ISLASTBAR;
{DRAWTEXT(VJP,VJ+0.01,VAR2STR(VJ,2)),COLORWHITE;}
DRAWTEXT(VHP,VH+0.01,VAR2STR(VH,2)),COLORRED;
DRAWTEXT(VOP,VO+0.02,VAR2STR(VO,2)),COLORYELLOW;
DRAWTEXT(VCP,VC+0.02,VAR2STR(VC,2)),COLORMAGENTA;
DRAWTEXT(VLP,VL-0.01,VAR2STR(VL,2)),COLORGREEN;
{参数 N 0 200 3 }
WN:=N;
WA1:=REF(H,WN)=HHV(H,2*WN+1);
WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);
WA2:=REF(L,WN)=LLV(L,2*WN+1);
WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);
WE1:=(REF(LLV(L,2*WN),1)+REF(HHV(H,2*WN),1))/2;
WE2:=(H+L)/2;
WH1:=(WD1 AND NOT(WD2 AND WE1>=WE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
WL1:=(WD2 AND NOT(WD1 AND WE1<WE2));
WH2:=WD1 AND NOT(WD2 AND WE1>=WE2);
WX1:=REF(BARSLAST(WH1),1)+1;
WF1:=BACKSET(WH1 AND COUNT(WL1,WX1)>0,LLVBARS(IF(WL1,L,10000),WX1));
WG1:=WF1>REF(WF1,1);
WI1:=BACKSET(WG1,2);
WLD:=WI1>REF(WI1,1);
WL2:=WLD OR ISLASTBAR OR BARSCOUNT(C)=1;
WX2:=REF(BARSLAST(WL2),1)+1; WF2:=BACKSET(WL2 AND COUNT(WH2,WX2)>0,HHVBARS(IF(WH2,H,0),WX2));
WG2:=WF2>REF(WF2,1);
WI2:=BACKSET(WG2,2);
WHD:=WI2>REF(WI2,1);
WR1:=BACKSET(ISLASTBAR,BARSLAST(WHD)+1); WS1:=WR1>REF(WR1,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(WLD)+1); WU1:=WT1>REF(WT1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(WHD),1)+2); WS2:=WR2>REF(WR2,1);
WT2:=BACKSET(WU1,REF(BARSLAST(WLD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(WLD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(WLD),1)+2); WU4:=WT4>REF(WT4,1);
WR3:=BACKSET(WS2,REF(BARSLAST(WHD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(WHD),1)+2); WS4:=WR4>REF(WR4,1);
HS1:=DRAWLINE(WS4,H,WS3,H,1);
HS2:=DRAWLINE(WS3,H, WS2,H,1);
HS3:=DRAWLINE(WS2,H,WS1,H,1);
LS1:=DRAWLINE(WU4,L,WU3,L,1);
LS2:=DRAWLINE(WU3,L,WU2,L,1);
LS3:=DRAWLINE(WU2,L,WU1,L,1);
HL1:IF(WN=0,DRAWNULL,HS1),COLORRED;
HL2:IF(WN=0,DRAWNULL,HS2),COLORGREEN;
HL3:IF(WN=0,DRAWNULL,HS3),COLORYELLOW;
LL1:IF(WN=0,DRAWNULL,LS1),DOTLINE,COLORRED;
LL2:IF(WN=0,DRAWNULL,LS2),DOTLINE,COLORGREEN;
LL3:IF(WN=0,DRAWNULL,LS3),DOTLINE,COLORYELLOW;
VAR1:=DATE<>REF(DATE,1);
VAR2:=REFX(VAR1,1); { OR ISLASTBAR}{每日收盘价}
DRAWTEXT(VAR2 AND PERIOD<5,IF(C>=O,C+0.01,C-0.01),VAR2STR(C,2)),COLORWHITE;
{每个高低点价格}
DRAWTEXT(VAR1 AND WS4,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(VAR1 AND WS3,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(VAR1 AND WS2,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VAR1 AND WS1,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(VAR1 AND WU4,L*0.995,VAR2STR(L,2)),COLORRED;
DRAWTEXT(VAR1 AND WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(VAR1 AND WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(VAR1 AND WU1,L*0.995,VAR2STR(L,2)),COLORMAGENTA;
S1:=BACKSET(ISLASTBAR,BARSLAST(WS4)+1);
S11:=WS4>REF(WS4,1);
一高:REF(H,BARSLAST(S11)),DOTLINE,COLORLIGRAY;
S2:=BACKSET(ISLASTBAR,BARSLAST(WS3)+1);
S22:=WS3>REF(WS3,1);
二高:REF(H,BARSLAST(S22)),DOTLINE,COLORLIGRAY;
S3:=BACKSET(ISLASTBAR,BARSLAST(WS2)+1);
S33:=WS2>REF(WS2,1);
三高:REF(H,BARSLAST(S33)),DOTLINE,COLORLIGRAY;
S4:=BACKSET(ISLASTBAR,BARSLAST(WS1)+1);
S44:=WS1>REF(WS1,1);
四高:REF(H,BARSLAST(S44)),DOTLINE,COLORLIGRAY;
{黄金分割坐标}
昨前:=0;
高1:=REF(HHV(H,RI),昨前);
低1:=REF(LLV(L,RI),昨前);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
{
底:REFDATE(低1,DATE),DOTLINE,COLORLIGRAY;
一0191:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;
二0382:REFDATE(H4,DATE),DOTLINE,COLORGREEN;
三0500:REFDATE(H3,DATE),DOTLINE,COLORWHITE;
四0618:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
五0809:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
顶:REFDATE(高1,DATE),DOTLINE,COLORRED;
}
星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
TY:=BARSLAST(V=V#YEAR)+1;
DRAWTEXT_FIX(ISLASTBAR,0.893,1,0,日期),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,VAR2STR(C*1.1,2)),COLORMAGENTA; |
IP卡
狗仔卡
显身卡
RAWTEXT(1,0,HYBLOCK);
C-REF(C,1))/REF(C,1)*100;昨涨:昨;流通盘:CAPITAL/1000000;