N:=4;
操盘线:SAR(N,15,5),CIRCLEDOT,LINETHICK0;{白色版};
IF((操盘线 =HIGH),操盘线,DRAWNULL),CIRCLEDOT,COLORGREEN;{彩色}
IF((操盘线 =LOW),操盘线,DRAWNULL),CIRCLEDOT,COLORRED;{彩色};
线15:EMA(C,15),COLORBLUE,LINETHICK2;
IF(线15 =REF(线15,1),线15,DRAWNULL),COLORMAGENTA,LINETHICK3;
IF(线15 REF(线15,1),线15,DRAWNULL),COLORWHITE,LINETHICK3;
AA05:MA(C,5),COLOR0099CC;
率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
STICKLINE(BB05 30ANDAA05 REF(AA05,1),AA05,REF(AA05,1),5,1),COLORRED;
STICKLINE(BB05 30ANDAA05 REF(AA05,1),AA05,REF(AA05,1),5,1),COLORWHITE;
顶:DMA(AMOUNT/(95*VOL),VOL/CAPITAL)COLORRED;
中:DMA(AMOUNT/(125*VOL),VOL/CAPITAL)COLORLIGREEN;
底:DMA(AMOUNT/(180*VOL),VOL/CAPITAL)COLORLIRED;
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13 =150ANDVAR13 200ANDVAR14 =150ANDVAR14 200,10,0);
VAR16:=IF(VAR13 =-150ANDVAR13 -200ANDVAR14 =-150ANDVAR14 -200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18 90,VAR18,100);
VAR1A:=IF(VARE 0,VARE,0);
VAR1B:=IF(VAR14 =200ANDVAR13 =150,15,IF(VAR14 =-200ANDVAR13 =-150,-15,VAR16))+60;
VAR1C:=VAR1A 48ANDVAR1B 60ANDVAR19
VAR2C:=VAR1A 40ANDVAR1B 80ANDVAR19
DRAWTEXT(VAR2CANDCOUNT(VAR2C,30)=1,顶,'洗盘'),LINETHICK1,COLORYELLOW;
STICKLINE(VAR2CANDCOUNT(VAR2C,30)=1,顶,底,5,0),COLORYELLOW;
DRAWTEXT(CROSS(AA05,中)AND(AA05 中),中,'拉升'),COLORLIRED;
N1:=7;
LC:=REF(CLOSE,1);
X:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORYELLOW,LINETHICK1;
AA:=DRAWLINE(X =HHV(X,N1),X,X =LLV(X,N1),X,1),COLOR00FF00;
BB:=DRAWLINE(X =HHV(X,N1),X,X =LLV(X,N1),1,X),COLOR00FF00;
TJ0:=X=BB;
TJ1:=X=AA;
TJ2:=X REF(X,1);
TJ3:=X REF(1,X);
JRS1:=DRAWICON(TJ1ANDTJ2,X,1);
JRS2:=DRAWICON(TJ0ANDTJ3,X,2);
DRAWICON(FILTER(JRS1 0,1),L*0.97,1);
DRAWICON(FILTER(JRS2 0,1),H*1.02,2);
现手买:=BUYVOL*DYNAINFO(7)*100/10000COLOR0000FF,NODRAW;
现手卖:=SELLVOL*DYNAINFO(7)*100/10000COLOR00FF00,NODRAW;
合:=ABS(现手买)+ABS(现手卖)COLOR80FFFF,NODRAW;
差:=ABS(现手买)-ABS(现手卖)COLOR80FFFF,NODRAW;
MPB1:=ABS(现手买)/合*100;
MPB2:=ABS(现手卖)/合*100;
TESTSKIP(NOT(现手买OR现手卖OR合OR差ORMPB1ORMPB2)!=0);
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRAWRECTREL(640,975,940,965,RGB(240,240,240));
DRAWRECTREL(640,970,940,970,RGB(250,250,250));
DRAWRECTREL(790-现手卖*210/合,1000,790,940,RGB(0,128,0));
DRAWRECTREL(790-现手卖*210/合,995,790,945,RGB(0,148,0));
DRAWRECTREL(790-现手卖*210/合,990,790,950,RGB(0,168,0));
DRAWRECTREL(790-现手卖*210/合,985,790,955,RGB(0,188,0));
DRAWRECTREL(790-现手卖*210/合,980,790,960,RGB(0,208,0));
DRAWRECTREL(790-现手卖*210/合,975,790,965,RGB(0,228,0));
DRAWRECTREL(790-现手卖*210/合,970,790,970,RGB(0,248,0));
DRAWRECTREL(790-现手卖*210/合,940,790-现手卖*210/合,1000,RGB(0,128,0));
DRAWRECTREL(790,1000,790+现手买*210/合,940,RGB(128,0,0));
DRAWRECTREL(790,995,790+现手买*210/合,945,RGB(148,0,0));
DRAWRECTREL(790,990,790+现手买*210/合,950,RGB(168,0,0));
DRAWRECTREL(790,985,790+现手买*210/合,955,RGB(188,0,0));
DRAWRECTREL(790,980,790+现手买*210/合,960,RGB(208,0,0));
DRAWRECTREL(790,975,790+现手买*210/合,965,RGB(228,0,0));
DRAWRECTREL(790,970,790+现手买*210/合,970,RGB(248,0,0));
DRAWRECTREL(790+现手买*210/合,940,790+现手买*210/合,1000,RGB(128,0,0));
DRAWRECTREL(789.8,940,790.2,1000,RGB(0,0.0,10));
DRAWRECTREL(639.8,940,640.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,940,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,940,1000,940.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.9,0.88,0,STRCAT(STRCAT('',CON2STR(现手买,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.61,0.88,0,STRCAT(STRCAT('',CON2STR(现手卖,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1AND(差) 0,0.755,0.88,0,STRCAT('',STRCAT(CON2STR(差,1),'万')))COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1AND(差) 0,0.755,0.88,0,STRCAT('',STRCAT(CON2STR(差,1),'万')))COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1AND(差)=0,0.755,0.88,0,STRCAT('',STRCAT(CON2STR(差,1),'万')))COLOR80FFFF;
DRAWTEXT_FIX(1,0.58,0.97,0,STRCAT(STRCAT('',CON2STR(MPB2,1)),'%%')),COLOR00FF00;
DRAWTEXT_FIX(1,0.94,0.97,0,STRCAT(STRCAT('',CON2STR(MPB1,1)),'%%')),COLOR0000FF;
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8 20)AND(CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8 20)AND(CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('买',CON2STR((100*A2)/A6,0)),'%%');
AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%%');
AAA3:=STRCAT(STRCAT('总买入',CON2STR((100*(A2-A3))/A6,0)),'%%');
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;
[源码注释]通达信公式动态公式解读
N赋值:4
输出操盘线:步长为15极限值为5的N日抛物转向,CIRCLEDOT,线宽为0
如果(操盘线 ,返回?,否则返回?
=最高价),操盘线,无效数),CIRCLEDOT,画绿色
如果(操盘线 ,返回?,否则返回?
=最低价),操盘线,无效数),CIRCLEDOT,画红色
输出线15:收盘价的15日指数移动平均,画蓝色,线宽为2
如果线15 ,返回?,否则返回?
=1日前的线15,线15,无效数),画洋红色,线宽为3
如果线15 ,返回?,否则返回?
1日前的线15,线15,无效数),画白色,线宽为3
输出AA05:收盘价的5日简单移动平均,COLOR0099CC
率赋值:(收盘价-AA05)/AA05*100
BB05赋值:(AA05/1日前的AA05-1)*100的反正切*180/3.1416
当满足条件BB05 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
30ANDAA05
1日前的AA05,AA05,1日前的AA05,5,1),画红色
当满足条件BB05 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
30ANDAA05
1日前的AA05,AA05,1日前的AA05,5,1),画白色
输出顶:以(手)/当前流通股本(手)为权重成交额(元)/(95*成交量(手))的动态移动平均画红色
输出中:以成交量(手)/当前流通股本(手)为权重成交额(元)/(125*成交量(手))的动态移动平均画淡绿色
输出底:以成交量(手)/当前流通股本(手)为权重成交额(元)/(180*成交量(手))的动态移动平均画淡红色
VARE赋值:100*(收盘价-34日内收盘价的最低值)/(34日内最高价的最高值-34日内最低价的最低值)的5日简单移动平均-20
VAR12赋值:(最高价+最低价+收盘价)/3
VAR13赋值:(VAR12-VAR12的14日简单移动平均)/(0.015*VAR12的14日平均绝对偏差)
VAR14赋值:(VAR12-VAR12的70日简单移动平均)/(0.015*VAR12的70日平均绝对偏差)
VAR15赋值:如果VAR13 ,返回?,否则返回?
=150ANDVAR13
200ANDVAR14
=150ANDVAR14
200,10,0)
VAR16赋值:如果VAR13 ,返回?,否则返回?
=-150ANDVAR13
-200ANDVAR14
=-150ANDVAR14
-200,-10,VAR15)
VAR17赋值:(收盘价-收盘价的13日简单移动平均)/收盘价的13日简单移动平均*100
VAR18赋值:100-VAR17的绝对值
VAR19赋值:如果VAR18 ,返回?,否则返回?
90,VAR18,100)
VAR1A赋值:如果VARE ,返回?,否则返回?
0,VARE,0)
VAR1B赋值:如果VAR14 ,返回?,否则返回?
=200ANDVAR13
=150,15,如果VAR14 ,返回?,否则返回?
=-200ANDVAR13
=-150,-15,VAR16))+60
VAR1C赋值:VAR1A
48ANDVAR1B
60ANDVAR19
130
VAR2C赋值:VAR1A
40ANDVAR1B
80ANDVAR19
130
当满足条件VAR2CANDCOUNT(VAR2C,30)=1时,在顶位置书写文字
洗盘'
),线宽为1,画黄色
当满足条件VAR2CANDCOUNT(VAR2C,30)=1时,在顶和底位置之间画柱状线,宽度为5,0不为0则画空心柱.,画黄色
当满足条件AA05上穿中AND(AA05 时,在?位置书写文字
中),中,'
拉升'
),画淡红色
N1赋值:7
LC赋值:1日前的收盘价
X赋值:收盘价-LC和0的较大值的N1日[1日权重]移动平均/收盘价-LC的绝对值的N1日[1日权重]移动平均*100,画黄色,线宽为1
AA赋值:当满足条件X 时,在?位置画直线起点，当满足条件?时,在?位置画直线终点,?表示是否延长.
=N1日内X的最高值,X,X
=N1日内X的最低值,X,1),COLOR00FF00
BB赋值:当满足条件X 时,在?位置画直线起点，当满足条件?时,在?位置画直线终点,?表示是否延长.
=N1日内X的最高值,X,X
=N1日内X的最低值,1,X),COLOR00FF00
TJ0赋值:X=BB
TJ1赋值:X=AA
TJ2赋值:X
1日前的X
TJ3赋值:X
X日前的1
JRS1赋值:当满足条件TJ1ANDTJ2时,在X位置画1号图标
JRS2赋值:当满足条件TJ0ANDTJ3时,在X位置画2号图标
当满足条件JRS1 的?日过滤时,在?位置画?号图标
0,1),最低价*0.97,1)
当满足条件JRS2 的?日过滤时,在?位置画?号图标
0,1),最高价*1.02,2)
现手买赋值:外盘*现价*100/10000COLOR0000FF,NODRAW
现手卖赋值:内盘*现价*100/10000COLOR00FF00,NODRAW
合赋值:现手买的绝对值+现手卖的绝对值COLOR80FFFF,NODRAW
差赋值:现手买的绝对值-现手卖的绝对值COLOR80FFFF,NODRAW
MPB1赋值:现手买的绝对值/合*100
MPB2赋值:现手卖的绝对值/合*100
如果满足条件取反不等于0,公式返回
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
相对位置上画矩形
当满足条件1时,在横轴0.9纵轴0.88位置书写文字,COLOR0000FF
当满足条件1时,在横轴0.61纵轴0.88位置书写文字,COLOR00FF00
当满足条件到最后交易的周期=1AND(差) 0时,在横轴0.755纵轴0.88位置书写文字COLOR0000FF
当满足条件到最后交易的周期=1AND(差) 0时,在横轴0.755纵轴0.88位置书写文字COLOR00FF00
当满足条件到最后交易的周期=1AND(差)=0时,在横轴0.755纵轴0.88位置书写文字COLOR80FFFF
当满足条件1时,在横轴0.58纵轴0.97位置书写文字,COLOR00FF00
当满足条件1时,在横轴0.94纵轴0.97位置书写文字,COLOR0000FF
成交额赋值:成交量(手)*收盘价/100,NODRAW
A2赋值:(如果((成交额/8 20)AND(收盘价 (1日前的收盘价))),返回成交额,否则返回0)的历史累和
A3赋值:(如果((成交额/8 20)AND(收盘价 (1日前的收盘价))),返回成交额,否则返回0)的历史累和
A6赋值:(A2+A3)
A7赋值:如果(是否最后一个周期),返回((100*A2)/A6),否则返回0
A8赋值:如果(是否最后一个周期),返回((100*A3)/A6),否则返回0
DD1赋值:1
AAA1赋值:字符串相加
AAA2赋值:字符串相加
AAA3赋值:字符串相加
当满足条件DD1=1时,在横轴0纵轴0.02位置书写文字,画红色
当满足条件DD1=1时,在横轴0纵轴0.13位置书写文字,COLOR00FF00
当满足条件DD1=1时,在横轴0纵轴0.24位置书写文字,COLOR00FFFF
