{核心通道计算模块}
GSPT01:(EMA(EMA(H, 25), 25)-EMA(EMA(L, 25), 25))*1+EMA(EMA(H, 25), 25), DOTLINE, COLORBLUE;
GSPT02:EMA(EMA(L, 25), 25)-(EMA(EMA(H, 25), 25)-EMA(EMA(L, 25), 25))*1, LINETHICK2, COLORRED;
GSPT03:EMA(GSPT02, 25), LINETHICK2;
{可视化渲染系统}
DRAWBAND(GSPT02, RGB(55, 0, 0), GSPT03, RGB(0, 91, 0));
DRAWKLINE(H, O, L, C);
STICKLINE(GSPT02>LOW AND GSPT02< HIGH, GSPT02, MIN(MIN(OPEN, CLOSE), GSPT02), 2, 0), COLORYELLOW;
STICKLINE(GSPT02>MIN(C, O)AND GSPT02< MAX(C, O), GSPT02, MIN(OPEN, CLOSE), 2, 0), COLORYELLOW;
STICKLINE(GSPT02>HIGH, OPEN, CLOSE, 2, 0), COLORYELLOW;
STICKLINE(GSPT02>HIGH, HIGH, LOW, 0, 0), COLORYELLOW;
{动量震荡系统}
GSPT23:=100*EMA(EMA((C-REF(C, 1)), 6), 6)/EMA(EMA(ABS((C-REF(C, 1))), 6), 6);
回调买:=LLV(GSPT23, 2)=LLV(GSPT23, 7)AND COUNT(GSPT23<0, 2)AND CROSS(GSPT23, MA(GSPT23, 2));
XG:=GSPT02>HIGH AND 回调买 AND L<=GSPT02;
{量能分解模型}
JJ:=(HIGH+LOW+CLOSE)/3;
GSPT0:=VOL/IF(HIGH=LOW, 4, HIGH-LOW);
GSPT1:=IF(CAPITAL=0, GSPT0*(JJ-MIN(CLOSE, OPEN)), GSPT0*IF(HIGH=LOW, 1, (MIN(OPEN, CLOSE)-LOW)));
GSPT2:=IF(CAPITAL=0, GSPT0*(MIN(OPEN, CLOSE)-LOW), GSPT0*IF(HIGH=LOW, 1, (JJ-MIN(CLOSE, OPEN))));
GSPT3:=IF(CAPITAL=0, GSPT0*(HIGH-MAX(OPEN, CLOSE)), GSPT0*IF(HIGH=LOW, 1, (HIGH-MAX(OPEN, CLOSE))));
GSPT4:=IF(CAPITAL=0, GSPT0*(MAX(CLOSE, OPEN)-JJ), GSPT0*IF(HIGH=LOW, 1, (MAX(CLOSE, OPEN)-JJ)));
DDX:=((GSPT1+GSPT2)-(GSPT3+GSPT4))/IF(CAPITAL=0, 10000, 10000), COLOR00AAAA, LINETHICK;
{资金流跟踪系统}
V2:=SMA(IF(C>=REF(C, 1), DDX, -DDX/100), 2, 1);
V5:=SMA(V2*120/FROMOPEN*5, 2, 1);
V10:=SMA(V5, 5, 1);
V20:=SMA(V10, 5, 1);
DY:=CURRBARSCOUNT=1 AND C<REF(C, 1);
DY2:=REF(V2, 1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C, 5)>MA(C, 60)AND C/REF(C, 1)>=1.02 AND H<GSPT01;
{形态识别系统}
SR1:=REF(HIGH, 10)=HHV(HIGH, 2*10+1);
SR2:=FILTER(SR1, 10);
SR3:=BACKSET(SR2, 10+1);
HD:=FILTER(SR3, 10);
前高:=REF(H, BARSLAST(HD));
倍量:=VOL/REF(VOL, 1)>=1.9;
突破前高:=CROSS(C, 前高);
{波段交易系统}
白色:=SMA(HIGH, 21, 2)*1.05;
黄色:=SMA(LOW, 21, 2)*0.95;
粉色:=SMA(LOW, 5, 1);
绿色:=SMA(CLOSE, 2, 1);
波段买入:=IF(CROSS(绿色, 粉色), 白色*1.05, 粉色);
领头羊:=IF(CROSS(绿色, 白色), 白色*1.10, 黄色);
信号:=领头羊>黄色;
{特殊形态标记}
涨停价:=ZTPRICE(REF(C, 1), 0.1);
涨停:=C>=涨停价-0.01 AND C=H;
STICKLINE(信号, O, C, 3, 0), COLOR0000FF;
STICKLINE(涨停, O, C, 3, 0), COLOR00FFFF;
STICKLINE(信号 AND 涨停, O, (O+C)/2, 3, 0), COLOR0000FF;
{趋势加速模型}
A0:=((L+H)+(C*2))/4;
AAA1:=EMA(A0, 14);
A1X:=(AAA1-REF(AAA1, 1))/REF(AAA1, 1)*100;
G1:=BARSLAST(CROSS(A1X, 0));
加速加仓:IF(H>=REF(A0, BARSLAST(CROSS(A1X, 0)))*1.3, REF(A0, BARSLAST(CROSS(A1X, 0)))*1.3, DRAWNULL), COLORYELLOW, LINETHICK2;
{情绪跟踪系统}
FD:=(C-REF(C, 1))/REF(C, 1)*100;
DF:=FD<-5;
情绪线:DRAWLINE(DF, H, REF(DF, 1), REF(H, 1), 1), COLORWHITE, DOTLINE;
{主力趋势系统}
龙空龙:(EMA(CLOSE, 10)*7+EMA(CLOSE, 20)*3)/10;
龙头战法:DMA(EMA(CLOSE, 20), MAX(1, 100*(SUM(VOL, 5)/(3*CAPITAL)))), COLORWHITE, DOTLINE;
操盘线:IF(龙空龙>龙头战法, 龙空龙, DRAWNULL), COLORRED, LINETHICK2;
生命线:IF(龙空龙<龙头战法, 龙空龙, DRAWNULL), COLORGREEN, LINETHICK2;
DRAWTEXT_FIX(1, 0.52, 0, 0, '公式平台 公式源码 http://www.gspt.com'), COLOr222222;
{强势股筛选器}
MA10:=MA(CLOSE, 5);
MA54:=MA(CLOSE, 60);
GSPT8:=(REF(CLOSE, 3)-CLOSE)/REF(CLOSE, 3)*100>5;
GSPT9:=FILTER(GSPT8, 10);
GSPT10:=BARSLAST(GSPT9);
GSPT11:=REF(HIGH, GSPT10+2);
GSPT12:=REF(HIGH, GSPT10+1);
GSPT13:=REF(HIGH, GSPT10);
GSPT14:=MAX(GSPT11, GSPT12);
GSPT15:=MAX(GSPT14, GSPT13);
GSPT16:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1)*100>5;
GSPT17:=GSPT10<150;
GSPT18:=(OPEN-GSPT15)/GSPT15*100<30;
GSPT19:=(CLOSE-LLV(LOW, GSPT10))/LLV(LOW, GSPT10)*100<50;
GSPT20:=(CLOSE-REF(OPEN, 5))/REF(OPEN, 5)*100<30;
GSPT21:=VOL/MA(VOL, 5)<3.5;
GSPT22:=(CLOSE-REF(CLOSE, 89))/REF(CLOSE, 89)*100<80;
GSPT25:=GSPT16 AND GSPT17 AND GSPT18 AND GSPT19 AND GSPT20 AND GSPT21 AND GSPT22;
暴利:=FILTER(GSPT25, 15);
{龙头启动模型}
GSPTD1:=(((CLOSE-MA54)/MA54)<0.1);
GSPTD2:=(((CLOSE-MA10)/MA10)<0.3);
偏离率:=((GSPTD1=1)AND(GSPTD2=1))*0.2;
平台突破:=(((偏离率=0)AND(REF(偏离率, 1)=0.2))AND(REF((COUNT((偏离率=0.2), 10)=10), 1)=1))*-0.1;
妖股突破:=平台突破=-0.1;
XDF:=(暴利 OR 妖股突破);
AAC:=DMA(AMOUNT/VOL/100, VOL/CAPITAL);
AACA:=DYNAINFO(7)/(REF(CLOSE, 1))>1.05 AND(DYNAINFO(7)/O>1.05);
ACTD:=(VOL/REF(VOL, 1)>1.2 AND COUNT(CLOSE>OPEN, 1))OR(LOW>REF(HIGH, 1)AND COUNT(OPEN>CLOSE, 1)AND VOL/REF(VOL, 1)>1.2);
龙头模式:=XDF AND C/REF(C, 1)>1.095 AND ACTD AND AACA, COLORRED;
{动态标注系统}
DRAWTEXT(XG2 AND L<GSPT02, L, '←龙头异动'), COLORRED;
DRAWTEXT(倍量 AND 突破前高, (H*0.97), '←-----右侧突破'), COLORYELLOW;
DRAWTEXT(ISLASTBAR, 加速加仓, ' 加速加仓'), COLORYELLOW;
DRAWICON(龙头模式, L, 9);
DRAWTEXT(龙头模式, L*0.99, '---主力筹码'), COLORYELLOW;
STICKLINE(龙头模式, O, C, 1, 0), COLORMAGENTA;