参考了几位大师的作品，东拼西凑的来了个改头换面，把有些行情软件上本身就有的东西换成了自己喜欢的，可以加在自己喜欢的任意主图上。在此谢过在这方面做了指导性进展的各位老师，引用之处，多有得罪！
源码：
VARZT:=BARSLAST(C/REF(C,1)>1.094);
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORYELLOW;
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORBLUE;
DRAWTEXT(VARZT=2,L*0.95,'3'),COLORYELLOW;
DRAWTEXT(VARZT=4,H*1.06,'5'),COLORYELLOW;
DRAWTEXT(VARZT=7,L*0.95,'8'),COLORYELLOW;
DRAWTEXT(VARZT=12,H*1.06,'13'),COLORYELLOW;
DRAWTEXT(VARZT=20,L*0.95,'21'),COLORYELLOW;
DRAWTEXT(VARZT=33,H*1.06,'34'),COLORYELLOW;
DRAWTEXT(VARZT=54,L*0.95,'55'),COLORYELLOW;
DRAWTEXT(VARZT=88,H*1.06,'89'),COLORYELLOW;
{DRAWTEXT(VARZT=143,L*0.95,'144'),COLORYELLOW;}
{DRAWTEXT(VARZT=232,H*1.06,'233'),COLORYELLOW;}
{DRAWTEXT(VARZT=376,L*0.95,'377'),COLORYELLOW;}
{6.15版本以下才能通达-------------------}
均价:=(OPEN+HIGH+LOW+CLOSE*2)/5;
上升突破价:=(均价+HIGH-LOW);
上升阻力价:=均价*2-LOW;
下跌支撑价:=均价*2-HIGH;
下跌反转价:=均价-HIGH+LOW;
心理价:=(均价+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5;
保护价:=(REF(CLOSE,1)+REF(REF(CLOSE,1),1)+OPEN)/3;
明心理:=(14*CLOSE+7*OPEN+2*HIGH+2*LOW)/25;
VARM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:=IF(CLOSE>OPEN,VARM*(HIGH-LOW),IF(CLOSE<OPEN,VARM*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
AL2:=ABS((REF(C,1)-(REF(O,1)))/(REF(O,1)));
AL3:=ABS((REF(H,1)-(REF(O,1)))/(REF(O,1)));
AL4:=ABS((REF(L,1)-(REF(O,1)))/(REF(O,1)));
ELE:=(((REF(HIGH,1))+(REF(LOW,1))+(REF(OPEN,1))+2*(REF(CLOSE,1)))/5);
预测低一:=O-(O*(ABS((AL2+AL3+AL4)/3)));
预测低点价:=(预测低一+((((ELE+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5)+O)/2))/2;
DRAWTEXT_FIX(1,0.48,0,0,DYBLOCK),COLORLIGRAY;
DRAWTEXT_FIX(1,0,0.00,0,'上升突破价:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.08,0.00,0,CONST(上升突破价)),COLORLIGRAY;
DRAWTEXT_FIX(1,0,0.04,0,'上升阻力价:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.08,0.04,0,CONST(上升阻力价)),COLORLIGRAY;
DRAWTEXT_FIX(1,0,0.08,0,'下跌支撑价:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.08,0.08,0,CONST(下跌支撑价)),COLORLIGRAY;
DRAWTEXT_FIX(1,0,0.12,0,'下跌反转价:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.08,0.12,0,CONST(下跌反转价)),COLORLIGRAY;
DRAWTEXT_FIX(1,0,0.16,0,'预测低点价:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.08,0.16,0,CONST(预测低点价)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,00.00,0,'成交量比:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.19,0.00,0,CONST(买盘/VOL*100)),COLORLIGRAY;
收盘价:=IF(C,CONST(C),DRAWNULL),COLORWHITE;
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
BB1:=0;
B1万元:=DVOL*DCLOSE/100;
B1差:=B1万元-REF(B1万元,1);
B2万元:=DVOL*DCLOSE/100;
B2比:=B2万元/REF(B2万元,1);
净流入万元:=(AAA2-AAA3-0.5*AAA4);
DRAWTEXT_FIX(1,0.13,00.16,0,'净流入万元:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.21,00.16,0,CONST(净流入万元)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,00.04,0,'日振幅★:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.19,0.04,0,CONST(DYNAINFO(13)*100)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,00.08,0,'保护价★:')COLORMAGENTA;
DRAWTEXT_FIX(1,0.13,00.12,0,'明心理★:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.19,0.12,0,CONST(明心理)),COLORLIGRAY;
DRAWNUMBER_FIX(1,0.19,0.08,0,CONST(保护价)),COLORLIGRAY;
换手率:=V/CAPITAL*100;
量比:=IF(BARSCOUNT(C)=CURRBARSCOUNT,DYNAINFO(17),V/REF(MA(V,5),1));
当前量:=V/10000,VOLSTICK;
十日换手:=SUM(V,10)/CAPITAL*100;
三十换手:=SUM(V,30)/CAPITAL*100;
六十换手:=SUM(V,60)/CAPITAL*100;
百日换手:=SUM(V,100)/CAPITAL*100;
DRAWTEXT_FIX(1,0.25,0,0,'十日换手:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.36,0,04,CONST(十日换手)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.04,0,'三十换手:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.36.40,0.04,08.0,CONST(三十换手)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.08,0,'六十换手:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.36,0.08,08.0,CONST(六十换手)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.12,0,'百日换手:'),COLORMAGENTA;
DRAWNUMBER_FIX(1,0.36,0.12,08.0,CONST(百日换手)),COLORLIGRAY;
N3:=BARSLAST(CROSS(C,MA(C,20)));
N4:=BARSLAST(CROSS(MA(C,20),C));
黑马跟踪:=IF(N3<N4,N3+1,0);
涨幅跟踪:=(C-REF(C,黑马跟踪))/REF(C,黑马跟踪)*100;
DRAWTEXT_FIX(1,0.38,0,0,'黑马跟踪:'),COLORBLUE;
DRAWNUMBER_FIX(1,0.46,0,04,CONST(黑马跟踪)),COLORLIGRAY;
{DRAWTEXT_FIX(1,0.38,0.04,0,'出千概念：')COLORYELLOW;}
DRAWTEXT_FIX(1,0.38.40,0.04,0,EXTERNSTR(0,3))COLORYELLOW;
{DRAWTEXT_FIX(1,0.00,0.04,0,'主题投资：')COLOR0000FF;}
DRAWTEXT_FIX(1,0.38.40,0.08,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.38.40,0.12,0,EXTERNSTR(0,2))COLORGREEN;
自定义引用数据请解压至T002目录下面。  {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理}{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
