{背景:智能涨跌渐变}
{阳线背景微红}
DRAWGBK(CLOSE>OPEN, RGB(255, 25, 45), RGB(25, 45, 245), 0, '0', 0);
{阴线背景微绿/微蓝}
DRAWGBK(CLOSE<OPEN, RGB(20, 28, 255), RGB(240, 28, 125), 0, '0', 0);
{清新极简K线 + 头肩底突破}
{================================================}
YUOP1:=CODELIKE('00') OR CODELIKE('60');
YUOP2:=CODELIKE('30') OR CODELIKE('68');
YUOP3:=CODELIKE('4') OR CODELIKE('8');
YUOP4:=IF(YUOP1,0.1,IF(YUOP2,0.2,IF(YUOP3,0.3,100)));
YUOP5:=C=H AND C>=ZTPRICE(REF(C,1),YUOP4);
YUOP6:=C<H AND H>=ZTPRICE(REF(C,1),YUOP4);
YUOP7:=100*(O/REF(C,1)-1);
YUOP8:=100*(H-MAX(C,O))/REF(C,1);
YUOP9:=100*ABS(C-O)/REF(C,1);
YUOP10:=100*(MIN(C,O)-L)/REF(C,1);
YUOP11:=IF(V>2*REF(V,1) OR REF(YUOP6,1),0,V);
YUOP12:=REF(HHV(YUOP9,10)<7 AND C<O,1);{1. 信号逻辑 }
{================================================}
BABA02:= CLOSE/REF(CLOSE,1)>1.048 AND CLOSE = HIGH AND BETWEEN(FORCAST(VOL,4),0.2*FORCAST(VOL,12),2.1*FORCAST(VOL,12));
BACA03:= BABA02 AND COUNT(BABA02,10)=1;
BADA04:= CROSS(CLOSE,EMA(HIGH,3)*1.03) AND (CLOSE - REF(CLOSE,1))/REF(CLOSE,1)>0.04 AND CLOSE<18;
BAEA05:= C/REF(C,1)>1.095 AND H = C;
BAFA06:= AMOUNT<550000000;
BAGA07:= BACA03 AND BAEA05 AND BAFA06 AND BADA04;
TT:=1;
ZBGS1:=STRCAT(STRCAT('总收入同比增长:',CON2STR(FINANCE(44),2)),'% ');
ZBGS2:=STRCAT(ZBGS1,STRCAT(STRCAT('净利润同比增长:',CON2STR(FINANCE(43),2)),'% '));
ZBGS3:=STRCAT(ZBGS2,STRCAT(STRCAT('资产负债率:',CON2STR(FINANCE(9),2)),'% '));
ZBGS4:=STRCAT(ZBGS3,STRCAT(STRCAT('每股现金流:',CON2STR(FINANCE(25)/FINANCE(1),2)),'元'));
DRAWTEXT_FIX(1,0.980,20,1,'公式平台,公式源码 http://www.gspt.com'),COLOR333333;
DRAWTEXT_FIX(ISLASTBAR,0.001,0.00,0,STRCAT(ZBGS4,0)),COLOR00FFFF;
ZBGS6:=STRCAT(DYBLOCK,' ');
ZBGS7:=STRCAT(ZBGS6,STRCAT(HYBLOCK,' '));
ZBGS8:=STRCAT(ZBGS7,STRCAT(DYBLOCK,' '));
ZBGS9:=STRCAT(ZBGS8,STRCAT(GNBLOCK,' '));
{================================================}
{2. 头肩底颈线逻辑 (保持不变)}
{================================================}
M:=20;
T1:=LLV(L,M);
T2:=REF(T1,1)=LLV(LLV(L,M),2);
T3:=BARSLAST(T2);
T4:=REF(T1,T3+1);
头部价格 := REF(LLV(L,M),M);
右肩价格 := LLV(L,M);
颈线位 := REF(HHV(H,M),M);
突破信号 := CROSS(C,颈线位) AND 右肩价格 > 头部价格;
{================================================}
{3. 重绘K线 - 清新极简风 (已缩小尺寸)}
{================================================}
{阳线:亮红色,线条更细}
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,3,0),COLOR0000DD; {实体}
STICKLINE(CLOSE>OPEN,OPEN,CLOSE,1,1),COLORRED; {亮边}
均线五: MA(C,5), COLORWHITE;均线二十: MA(C,20), COLORYELLOW;均线五十: MA(C,50), COLORFF00FF;
{阴线:青绿色,线条更细}
STICKLINE(CLOSE<OPEN,OPEN,CLOSE,3,0),COLOR009966; {实体}
STICKLINE(CLOSE<OPEN,OPEN,CLOSE,1,1),COLOR00FFFF; {亮边}
{平盘线:灰色}
STICKLINE(CLOSE=OPEN,OPEN,CLOSE,2,0),COLOR888888;
{================================================}
{4. 信号标记与绘图}
{头肩底突破信号}
STICKLINE(突破信号, O, C, 2, 0), COLORRED;
DRAWICON(突破信号, L*0.98, 1);
DRAWTEXT(突破信号, L*0.95, '★头肩突破'), COLORCYAN;
{画出颈线}
DRAWLINE(T2, T1, REF(T2,1), REF(T1,1), 1), COLORWHITE, DOTLINE;