T:=150;TT:=3;N1:=0;
AMOV:=VOL*(OPEN+CLOSE)/2;
价:SUM(AMOV,5)/SUM(VOL,5),LINETHICK1,COLOR209FFF;
MAA:MA(C,N1),COLOR00FF00;
DRAWTEXT(ISLASTBARANDN1 0ANDMAA REF(MAA,1),MAA,'↑'),COLOR00FF00;
DRAWTEXT(ISLASTBARANDN1 0ANDMAA REF(MAA,1),MAA,'↓'),COLOR00FF00;
高1:=REF(HHV(H,T),TT);
低1:=REF(LLV(L,T),TT);
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),COLORFFFF00;
一:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
二:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
三:REFDATE(H3,DATE),COLOR00FFFF;
四:REFDATE(H4,DATE),DOTLINE,COLORMAGENTA;
五:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;
低:REFDATE(低1,DATE),COLOR00FF00;
TT3:=(CURRBARSCOUNT=5);
TT4:=(CURRBARSCOUNT=5+3);
DRAWNUMBER(TT3AND顶,顶,顶),COLOR999900;
DRAWTEXT(TT4AND顶,顶,'高:'),COLOR208FFF;
DRAWNUMBER(TT3AND一,一,一),COLOR999999;
DRAWTEXT(TT4AND一,一,'191:'),COLOR208FFF;
DRAWNUMBER(TT3AND二,二,二),COLOR999999;
DRAWTEXT(TT4AND二,二,'382:'),COLOR208FFF;
DRAWNUMBER(TT3AND三,三,三),COLOR999999;
DRAWTEXT(TT4AND三,三,'1/2:'),COLOR208FFF;
DRAWNUMBER(TT3AND四,四,四),COLOR999999;
DRAWTEXT(TT4AND四,四,'618:'),COLOR208FFF;
DRAWNUMBER(TT3AND五,五,五),COLOR999999;
DRAWTEXT(TT4AND五,五,'809:'),COLOR208FFF;
DRAWNUMBER(TT3AND低,低*1.01,低),COLOR999900;
DRAWTEXT(TT4AND低,低*1.009,'低:'),COLOR208FFF;
AS:=(O+H+L+C)/4;
BL:EMA(AS,17),LINETHICK2,COLOR0000FF;
DRAWNUMBER(ISLASTBARANDBL,BL*1.005,BL);
XGM:=CROSS(C,BL);
DRAWICON(XGM,BL,9);
IF(BL REF(BL,1),BL,DRAWNULL),LINETHICK2,COLORYELLOW;
IF(BL REF(BL,1),BL,DRAWNULL),LINETHICK2,COLOR00FF00;
DRAWTEXT(ISLASTBARANDBL REF(BL,1),BL,'↑'),COLOR00FFFF;
DRAWTEXT(ISLASTBARANDBL REF(BL,1),BL,'↓'),COLOR00FF00;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),;
GMB:IF(CROSS(DIFF,DEA)ANDDIFF 0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR00FFFF;
GMC:IF(CROSS(DIFF,DEA)ANDDIFF 0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;
DRAWTEXT(CROSS(DIFF,DEA)ANDDIFF 0,L*0.998,'金叉 0'),COLORYELLOW;
DRAWTEXT(CROSS(DIFF,DEA)ANDDIFF 0,L*0.998,'金叉 0'),COLORYELLOW;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
GJD:IF(CROSS(K,D)ANDK 20ANDD 50,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;
DRAWTEXT(CROSS(K,D)ANDK 20ANDD 50,L*0.998,'K 20D 50KD金叉'),COLOREEAAEE;
N:=10;M:=150;
网1:=expma(C,5),COLORYELLOW;
网2:=EXPma(网1,2);
网3:=EXPMA(网2,2);
网12:EXPMA(CLOSE,12),COLORGRAY,LINETHICK3;
网33:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK4;
TJ1A:IF(网1 网2,网1,网2),COLORLICYAN;
TJ2A:IF(网1 网3,网1,网3),COLORGREEN;
TJ3A:网1,COLORYELLOW,LINETHICK2;
{QS}
网A:=EXPMA(CLOSE,5),COLORWHITE;
网B:=EXPMA(CLOSE,33),COLORFF00FF,LINETHICK3;
IF(网B REF(网B,1),网B,DRAWNULL),COLOR00FF00,LINETHICK3;
IF(网B REF(网A,1),网A,DRAWNULL),COLORWHITE,LINETHICK1;
IF(网1 REF(网B,1),网A,DRAWNULL),COLORGREEN,LINETHICK1;
{黄金分割线}
顶1:=REFDATE(HHV(H,M),DATE);
底1:=REFDATE(LLV(L,M),DATE);
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),COLOR666666;
%19.8:REFDATE(H1,DATE),COLOR666666;
%38.2:REFDATE(H2,DATE),COLOR666666;
%50:REFDATE(H3,DATE),COLOR666666;
%61.8:REFDATE(H4,DATE),COLOR666666;
%80.9:REFDATE(H5,DATE),COLOR666666;
底部:REFDATE(底1,DATE),COLOR666666;
DRAWTEXT(ISLAstBAR,顶部,'顶部'),COLORGREEN;
DRAWTEXT(ISLASTBAR,%19.8,'19.8％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%38.2,'38.2％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%50,'50％'),COLORWHITE;
DRAWTEXT(ISLASTBAR,%61.8,'61.8％'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%80.9,'80.9％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,底部,'底部'),COLORRED;
{bs标志}
DRAWICON((zig(3,5) REF(ZIG(3,5),1))AND(REF(ZIG(3,5),1) =REF(ZIG(3,5),2))
AND(REF(ZIG(3,5),2) =REF(ZIG(3,5),3)),LOW*0.98,7);
DRAWICON((ZIG(3,5) REF(ZIG(3,5),1))AND(REF(ZIG(3,5),1) =REF(ZIG(3,5),2))
AND(REF(ZIG(3,5),2) =REF(ZIG(3,5),3)),HIGH*1.02,8);
{箱体}
箱顶:PEAK(CLOSE,N,1)*0.98,POINTDOT,LINETHICK3,COLORYELLOW;
箱底:TROUGH(CLOSE,N,1)*1.02,POINTDOT,LINETHICK3,COLORFFFF00;
箱高:100*(箱顶-箱底)/箱底,NODRAW;
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.04,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.04,0,EXTERNSTR(0,1))COLOR0000FF;{生成数据时第1项输1与这里1一致,描述部分输"主题投资"}
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORFF00FF;{生成数据时第1项输2与这里2一致,描述部分输"主营业务"}
DRAWTEXT_FIX(1,0.00,0.12,0,'出千概念：')COLORFF88FF;
DRAWTEXT_FIX(1,0.07,0.12,0,EXTERNSTR(0,3))COLORFF88FF;{生成数据时第1项输3与这里3一致,描述部分输"出千概念"};
总额:=AMOUNT;
买:=IF(O=CAND(C-REF(C,1))/REF(C,1)*100 9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
买%:=买/AMOUNT*100;
流入:=AMOUNT*买%/10000000000;
流出:=AMOUNT/100000000-流入;
净流:=(流入-流出);
总额3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
净流3:=SUM(流入-流出,3);
总额5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
净流5:=SUM(流入-流出,5);
总额10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
净流10:=SUM(流入-流出,10);
画:=CONST(FINDHIGH(总额10,0,190,1));
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;
公式解读：
[源码注释]通达信公式动态公式解读
T赋值:150
TT赋值:3
N1赋值:0
AMOV赋值:(手)*(开盘价+收盘价)/2
输出成本价:AMOV的5日累和/成交量(手)的5日累和,线宽为1,COLOR209FFF
输出MAA:收盘价的N1日简单移动平均,COLOR00FF00
当满足条件ISLASTBARANDN1 时,在?位置书写文字
0ANDMAA
1日前的MAA,MAA,'↑'),COLOR00FF00
当满足条件ISLASTBARANDN1 时,在?位置书写文字
0ANDMAA
1日前的MAA,MAA,'↓'),COLOR00FF00
高1赋值:TT日前的T日内最高价的最高值
低1赋值:TT日前的T日内最低价的最低值
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
输出顶:日期日高1,COLORFFFF00
输出一:日期日H1,DOTLINE,画黄色
输出二:日期日H2,DOTLINE,画洋红色
输出三:日期日H3,COLOR00FFFF
输出四:日期日H4,DOTLINE,画洋红色
输出五:日期日H5,DOTLINE,画黄色
输出低:日期日低1,COLOR00FF00
TT3赋值:(到最后交易的周期=5)
TT4赋值:(到最后交易的周期=5+3)
当满足条件TT3AND顶时,在顶位置书写数字,COLOR999900
当满足条件TT4AND顶时,在顶位置书写文字,COLOR208FFF
当满足条件TT3AND一时,在一位置书写数字,COLOR999999
当满足条件TT4AND一时,在一位置书写文字,COLOR208FFF
当满足条件TT3AND二时,在二位置书写数字,COLOR999999
当满足条件TT4AND二时,在二位置书写文字,COLOR208FFF
当满足条件TT3AND三时,在三位置书写数字,COLOR999999
当满足条件TT4AND三时,在三位置书写文字,COLOR208FFF
当满足条件TT3AND四时,在四位置书写数字,COLOR999999
当满足条件TT4AND四时,在四位置书写文字,COLOR208FFF
当满足条件TT3AND五时,在五位置书写数字,COLOR999999
当满足条件TT4AND五时,在五位置书写文字,COLOR208FFF
当满足条件TT3AND低时,在低*1.01位置书写数字,COLOR999900
当满足条件TT4AND低时,在低*1.009位置书写文字,COLOR208FFF
AS赋值:(开盘价+最高价+最低价+收盘价)/4
输出BL:AS的17日指数移动平均,线宽为2,COLOR0000FF
当满足条件ISLASTBARANDBL时,在BL*1.005位置书写数字
XGM赋值:收盘价上穿BL
当满足条件XGM时,在BL位置画9号图标
如果BL ,返回?,否则返回?
1日前的BL,BL,无效数),线宽为2,画黄色
如果BL ,返回?,否则返回?
1日前的BL,BL,无效数),线宽为2,COLOR00FF00
当满足条件ISLASTBARANDBL 时,在?位置书写文字
1日前的BL,BL,'↑'),COLOR00FFFF
当满足条件ISLASTBARANDBL 时,在?位置书写文字
1日前的BL,BL,'↓'),COLOR00FF00
DIFF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA赋值:DIFF的9日指数移动平均
MACD赋值:2*(DIFF-DEA),
输出GMB:如果DIFF上穿DEAANDDIFF ,返回?,否则返回?
0,最低价*0.999,无效数),CROSSDOT,线宽为3,COLOR00FFFF
输出GMC:如果DIFF上穿DEAANDDIFF ,返回?,否则返回?
0,最低价*0.999,无效数),CROSSDOT,线宽为3,COLOR208FFF
当满足条件DIFF上穿DEAANDDIFF 时,在?位置书写文字
0,最低价*0.998,'金叉
0'),画黄色
当满足条件DIFF上穿DEAANDDIFF 时,在?位置书写文字
0,最低价*0.998,'金叉
0'),画黄色
RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100
K赋值:RSV的3日[1日权重]移动平均
D赋值:K的3日[1日权重]移动平均
输出GJD:如果K上穿DANDK ,返回?,否则返回?
20ANDD
50,最低价*0.999,无效数),CROSSDOT,线宽为3,COLORFF00FF
当满足条件K上穿DANDK 时,在?位置书写文字
20ANDD
50,最低价*0.998,'K
20D
50KD金叉'),COLOREEAAEE
N赋值:10
M赋值:150
网1赋值:收盘价的5日指数移动平均,画黄色
网2赋值:网1的2日指数移动平均
网3赋值:网2的2日指数移动平均
输出网12:收盘价的12日指数移动平均,画深灰色,线宽为3
输出网33:收盘价的33日指数移动平均,COLORFF00FF,线宽为4
输出TJ1A:如果网1 网2,返回网1,否则返回网2,画淡青色
输出TJ2A:如果网1 网3,返回网1,否则返回网3,画绿色
输出TJ3A:网1,画黄色,线宽为2
网A赋值:收盘价的5日指数移动平均,画白色
网B赋值:收盘价的33日指数移动平均,COLORFF00FF,线宽为3
如果网B 1日前的网B,返回网B,否则返回无效数,COLOR00FF00,线宽为3
如果网B 1日前的网A,返回网A,否则返回无效数,画白色,线宽为1
如果网1 1日前的网B,返回网A,否则返回无效数,画绿色,线宽为1
顶1赋值:日期日M日内最高价的最高值
底1赋值:日期日M日内最低价的最低值
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
输出顶部:日期日顶1,COLOR666666
输出%19.8[输出名错误]:日期日H1,COLOR666666
输出%38.2[输出名错误]:日期日H2,COLOR666666
输出%50:日期日H3,COLOR666666
输出%61.8[输出名错误]:日期日H4,COLOR666666
输出%80.9[输出名错误]:日期日H5,COLOR666666
输出底部:日期日底1,COLOR666666
当满足条件是否最后一个周期时,在顶部位置书写文字,画绿色
当满足条件是否最后一个周期时,在%19.8位置书写文字,画洋红色
当满足条件是否最后一个周期时,在%38.2位置书写文字,画黄色
当满足条件是否最后一个周期时,在%50位置书写文字,画白色
当满足条件是否最后一个周期时,在%61.8位置书写文字,画黄色
当满足条件是否最后一个周期时,在%80.9位置书写文字,画洋红色
当满足条件是否最后一个周期时,在底部位置书写文字,画红色
当满足条件(收盘价5%的之字转向 1日前的收盘价5%的之字转向)AND(1日前的收盘价5%的之字转向 =2日前的收盘价5%的之字转向)AND(2日前的收盘价5%的之字转向 =3日前的收盘价5%的之字转向)时,在最低价*0.98位置画7号图标
当满足条件(收盘价5%的之字转向 1日前的收盘价5%的之字转向)AND(1日前的收盘价5%的之字转向 =2日前的收盘价5%的之字转向)AND(2日前的收盘价5%的之字转向 =3日前的收盘价5%的之字转向)时,在最高价*1.02位置画8号图标
当满足条件1时,在横轴0.00纵轴0位置书写文字COLOR0080FF
当满足条件1时,在横轴0.07纵轴0位置书写文字COLOR0080FF
当满足条件1时,在横轴0.14纵轴0位置书写文字COLOR00FFFF
当满足条件1时,在横轴0.21纵轴0位置书写文字COLOR00FFFF
当满足条件1时,在横轴0.00纵轴0.04位置书写文字COLOR0000FF
当满足条件1时,在横轴0.07纵轴0.04位置书写文字COLOR0000FF
当满足条件1时,在横轴0.00纵轴0.08位置书写文字COLORFF00FF
当满足条件1时,在横轴0.07纵轴0.08位置书写文字COLORFF00FF
当满足条件1时,在横轴0.00纵轴0.12位置书写文字COLORFF88FF
当满足条件1时,在横轴0.07纵轴0.12位置书写文字COLORFF88FF
总额赋值:成交额(元)
买赋值:如果开盘价=CAND(收盘价-1日前的收盘价)/1日前的收盘价*100 9.8,返回成交额(元),否则返回成交额(元)/((最高价-最低价)*2-开盘价-收盘价的绝对值)*(收盘价-最低价)
买%赋值:买/成交额(元)*100
流入赋值:成交额(元)*买%/10000000000
流出赋值:成交额(元)/100000000-流入
净流赋值:(流入-流出)
总额3赋值:成交额(元)的3日累和
流入3赋值:流入的3日累和
流出3赋值:流出的3日累和
净流3赋值:流入-流出的3日累和
总额5赋值:成交额(元)的5日累和
流入5赋值:流入的5日累和
流出5赋值:流出的5日累和
净流5赋值:流入-流出的5日累和
总额10赋值:成交额(元)的10日累和
流入10赋值:流入的10日累和
流出10赋值:流出的10日累和
净流10赋值:流入-流出的10日累和
画赋值:总额10在0日前的190天内第1个最高价的最后一日取值设为常数
当满足条件1时,在横轴0.71纵轴0.07位置书写文字,画洋红色,线宽为1
当满足条件1时,在横轴0.78纵轴0.05位置书写文字,画洋红色,线宽为1
当满足条件1时,在横轴0.83纵轴0.05位置书写文字,画洋红色,线宽为1
当满足条件1时,在横轴0.88纵轴0.05位置书写文字,画洋红色,线宽为1
当满足条件1时,在横轴0.93纵轴0.05位置书写文字,画洋红色,线宽为1
当满足条件1时,在横轴0.78纵轴0.10位置书写数字,画黄色
当满足条件1时,在横轴0.83纵轴0.10位置书写数字,画黄色
当满足条件1时,在横轴0.88纵轴0.10位置书写数字,画黄色
当满足条件1时,在横轴0.93纵轴0.10位置书写数字,画黄色
