通达信马上有钱主图公式

[复制链接]
查看41 | 回复0 | 2022-7-24 07:08:08 | 显示全部楼层 |阅读模式

DRAWGBK(C>0,RGB(0,0,0),RGB(0,0,0),0,'11',0);
 VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
 VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
 VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
 分界线:MA(CLOSE,21),COLORYELLOW;
 STICKLINE(C>=分界线 AND C>=O,C,O,5,0),COLORRED;
 STICKLINE(C>=分界线 AND C>=O,H,L,0,0),COLORRED;
 STICKLINE(C>=分界线 AND C<O,C,O,5,1),COLORRED;
 STICKLINE(C>=分界线 AND C<O,O,H,0,0),COLORRED;
 STICKLINE(C>=分界线 AND C<O,C,L,0,0),COLORRED;
 STICKLINE(C<分界线 AND C>O,C,O,5,1),COLORFFFF00;
 STICKLINE(C<分界线 AND C<=O,C,O,5,1),COLORFFFF00;
 STICKLINE(C<分界线 AND C<=O,H,L,0,1),COLORFFFF00;
 STICKLINE(C<分界线 AND C>O,C,H,0,1),COLORFFFF00;
 STICKLINE(C<分界线 AND C>O,O,L,0,1),COLORFFFF00;
 总额:=AMOUNT;
 买:=IF(O=C AND (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;今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLOR6094FF,NODRAW;
  三日最低:=EMA((REF(L,4)+REF(L,3)+REF(L,2))/3,3);
三日最高:=EMA((REF(H,4)+REF(H,3)+REF(H,2))/3,3),COLORWHITE;
S:=CROSS(CROSS(三日最高,C),0.6);
 B:=CROSS(CROSS(C,三日最低),0.5);
 TT:=IF(ISLASTBAR,240/FROMOPEN,1);
 NN:=120;
 HH:=HHV(V*TT,NN);
 LL:=LLV(V,NN);
 最高:=CONST(HH);
 最低:=CONST(LL);
 最高2:=CONST(HHV(H,NN));
 最低2:=CONST(LLV(L,NN));
 PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
 RCC1:=最高2*0.9-(最高2-最低2)*PP;
 最低3:=MIN(RCC1,最低2);
 AA:=最低3;
 MA20:MA(C,20)NODRAW,COLORRED,LINETHICK1;
 MA55:MA(C,55)NODRAW,COLORRED;
 IF(MA20<REF(MA20,1),MA20,DRAWNULL)NODRAW,COLOR00FF00,LINETHICK1;
 IF(MA55<REF(MA55,1),MA55,DRAWNULL)NODRAW,COLOR408000;
 BB:MA(MA(CLOSE,3),1)NODRAW,LINETHICK1,COLORFFFF00;
 IF(BB>=REF(BB,1),BB,DRAWNULL)NODRAW,COLOR0000FF,LINETHICK1;
 STICKLINE(BB>=REF(BB,1),AA-0.000*AA,AA-0.050*AA,3,0),COLOR000074;
 STICKLINE(BB<REF(BB,1),AA-0.010*AA,AA-0.040*AA,3,1),COLORFFFF00;
 DRAWRECTREL(0,500,147,999.4,IF(120,RGB(10,0,0),0));
超B:=L2_AMO(0,2)/10000.0;
 大B:=L2_AMO(1,2)/10000.0;
 中B:=L2_AMO(2,2)/10000.0;
 小B:=L2_AMO(3,2)/10000.0;
 超S:=L2_AMO(0,3)/10000.0;
 大S:=L2_AMO(1,3)/10000.0;
 中S:=L2_AMO(2,3)/10000.0;
 小S:=L2_AMO(3,3)/10000.0;
 TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
 大宗进:=(超B)+(大B),NODRAW;
 大宗出:=(超S)+(大S),NODRAW;
 非大宗进:=(中B)+(小B),NODRAW;
 非大宗出:=(中S)+(小S),NODRAW;
 大宗进限制:=IF((超B+大B)=0,0,大宗进);
 大宗出限制:=IF((超S+大S)=0,0,大宗出);
 非大宗进限制:=IF(中B+小B=0,0,非大宗进);
 非大宗出限制:=IF(中S+小S=0,0,非大宗出);
 主力净流入:=(超B+大B)-(超S+大S),COLORRED,NODRAW;
 散户净流入:=(中B+小B)-(中S+小S),COLORRED,NODRAW;
 净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),COLORRED,NODRAW;
 大单流入:=(超B+大B)/(超B+大B+超S+大S)*100,NODRAW;
 大单流入限制:=IF((超B+大B+超S+大S)=0,0,大单流入);
 大单流出比:=(超S+大S)/(超B+大B+超S+大S)*100,NODRAW;
 大单流出限制:=IF((超B+大B+超S+大S)=0,0,大单流出比);
 总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;
 总流出比:=(超S+大S+中S+小S)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;
 成交总量:=(超B+大B+中B+小B+超S+大S+中S+小S),NODRAW;
 机构参与度:=(超B+超S+大B+大S)/成交总量*100,COLORYELLOW,NODRAW;
 大单强度:=(超B+大B-超S-大S)/成交总量*100,COLORYELLOW,NODRAW;
 大单强度限制:=IF(大单强度=0,-100,大单强度);
 大单强度比:=IF(大单强度>=0,(大单强度限制+100)/2,100-ABS((大单强度限制-100)/2)),NODRAW;
 超单强度:=(超B-超S)/(超B+超S)*100,COLORYELLOW,NODRAW;
 超单强度限制:=IF(超单强度=0,-100,超单强度);
 超单强度比:=IF(超单强度>0,(超单强度限制+100)/2,IF(超单强度<0,100-ABS((超单强度限制-100)/2),0)),NODRAW;
 DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;
 DRAWRECTREL(0,CONST(930-(ABS(大宗进)*250/DAZHIV)),35,950,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255)));
 DRAWRECTREL(37,CONST(930-(ABS(大宗出)*250/DAZHIV)),72,950,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0)));
 DRAWRECTREL(75,CONST(930-(ABS(非大宗进)*250/DAZHIV)),110,950,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255)));
 DRAWRECTREL(112,CONST(930-(ABS(非大宗出)*250/DAZHIV)),147,950,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0)));
 DRAWRECTREL(150,CONST(940-(ABS(净流入)*250/DAZHIV))-20,190,950,IF(CONST(净流入>0),RGB(200,0,0),RGB(0,125,50)));
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0001,0.9,0,STRCAT('',CON2STR(大宗进/1,0))),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.036,0.9,0,STRCAT('',CON2STR(大宗出/1,0))),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.074,0.9,0,STRCAT('',CON2STR(非大宗进/1,0))),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.111,0.9,0,STRCAT('',CON2STR(非大宗出/1,0))),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.150,0.9,0,STRCAT('',CON2STR(净流入/1,0))),COLORYELLOW;
 DRAWTEXT_FIX(1,0.000,0.99,0,STRCAT(STRCAT('主力 ',CON2STR(主力净流入,0)),'万')),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.078,0.99,0,STRCAT(STRCAT('散户 ',CON2STR(散户净流入,0)),'万')),COLORCYAN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,0.99,0,'净流入:(万)'),COLORYELLOW;
 主力买力度:=LARGEINTRDVOL*1000/VOL;
 主力卖力度:=LARGEOUTTRDVOL*1000/VOL;
 AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;
 DRAWRECTREL(0,515,CONST(ABS(主力买力度)*560/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));
 DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*560/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));
 DRAWTEXT_FIX(1,0,0.524,0,STRCAT('主买力度:',CON2STR(主力买力度,0))),COLORYELLOW;
 DRAWTEXT_FIX(1,0,0.576,0,STRCAT('主卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW;

623588951.png

623588951.png

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则