当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：拈天绝技主图（通达信公式 主图 源码 测试图）
软件名称：[B]拈天绝技主图（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2022-08-25 00:15:37
软件简介:
拈天绝技主图
DRAWTEXT_FIX(1,0.06,0,0,DYBLOCK),COLOR0000FF;
DRAWTEXT_FIX(1,0.12,0,0,HYBLOCK),COLOR00FFFF;
DRAWTEXT_FIX(1,0.005,0.05,0,'所属概念:'),COLORFF86FF;
DRAWTEXT_FIX(1,0.06,0.05,0,GNBLOCK);
DRAWTEXT_FIX(1,0.005,0.1,0,'所属风格:'),COLOR00FF00;
DRAWTEXT_FIX(1,0.06,0.1,0,FGBLOCK),COLOR00FF00;
MA5:MA(C,5),COLOR00FFFF;
JJ:=(C+H+L)/3;
多空线:EMA(JJ,10),LINETHICK3,COLOR0000FF;
NOTEXT1:IF(多空线<REF(多空线,1),多空线,DRAWNULL),LINETHICK3,COLOR08FF16;
MA20:MA(C,20),COLORFFFF80;
MA120:MA(C,120),COLORFF00FF;
GQ:=L>REF(H,1);
DQR:=DATE-1000000;
SV:=-1;
EV:=IF(WEEKDAY=1,3,2);
YGS:=FINVALUE(285);
YGX:=FINVALUE(286);
YGZ:=(YGS+YGX)/2;
YGR:=FINVALUE(313);
YGRC:=(DQR-YGR>SV) AND (DQR-YGR<EV);
YGDC:=(YGZ>0) AND GQ AND YGRC;
BJLR:=FINVALUE(287);
KBRQ:=FINVALUE(315);
KBRQC:=(DQR-KBRQ>SV) AND (DQR-KBRQ<EV);
KBDC:=(BJLR>0) AND GQ AND KBRQC;
CBJLR:=FINVALUE(95);
EPSRATE:=FINVALUE(184);
CBRQ:=FINVALUE(314);
CBRQC:=(DQR-CBRQ>SV) AND (DQR-CBRQ<EV);
CBDC:=CBJLR>0 AND EPSRATE>0 AND GQ AND CBRQC;
ZJRQDC:=YGDC OR KBDC OR CBDC;
ZDRQ1:=1;
YGS1:=FINONE(285,0,ZDRQ1);
YGX1:=FINONE(286,0,ZDRQ1);
YGZ1:=(YGS1+YGX1)/2;
YGRQ1:=FINONE(313,0,ZDRQ1);
YGRQC1:=(DQR-YGRQ1>SV) AND (DQR-YGRQ1<EV);
YGDC1:=(YGZ1>0) AND GQ AND YGRQC1;
KBJL1:=FINONE(287,0,ZDRQ1);
KBRQ1:=FINONE(315,0,ZDRQ1);
KBRQC1:=(DQR-KBRQ1>SV) AND (DQR-KBRQ1<EV);
KBDC1:=(KBJL1>0) AND GQ AND KBRQC1;
CBJL1:=FINONE(95,0,ZDRQ1);
指EPSRATE1:=FINONE(184,0,ZDRQ1);
CBRQ1:=FINONE(314,0,ZDRQ1);
CBRQC1:=(DQR-CBRQ1>SV) AND (DQR-CBRQ1<EV);
CBDC1:=CBJL1>0 AND 指EPSRATE1>0 AND GQ AND CBRQC1;
ZDRQDC1:=YGDC1 OR KBDC1 OR CBDC1;
ZDRQ2:=2;
YGS2:=FINONE(285,0,ZDRQ2);
YGX2:=FINONE(286,0,ZDRQ2);
YGZ2:=(YGS2+YGX2)/2;
YGRQ2:=FINONE(313,0,ZDRQ2);
YGRQC2:=(DQR-YGRQ2>SV) AND (DQR-YGRQ2<EV);
YGDC2:=(YGZ2>0) AND GQ AND YGRQC2;
KBJL2:=FINONE(287,0,ZDRQ2);
KBRQ2:=FINONE(315,0,ZDRQ2);
KBRQC2:=(DQR-KBRQ2>SV) AND (DQR-KBRQ2<EV);
KBDC2:=(KBJL2>0) AND GQ AND KBRQC2;
CBJL2:=FINONE(95,0,ZDRQ2);
指EPSRATE2:=FINONE(184,0,ZDRQ2);
CBRQ2:=FINONE(314,0,ZDRQ2);
CBRQC2:=(DQR-CBRQ2>SV) AND (DQR-CBRQ2<EV);
CBDC2:=CBJL2>0 AND 指EPSRATE2>0 AND GQ AND CBRQC2;
ZDRQDC2:=YGDC2 OR KBDC2 OR CBDC2;
ZDRQ3:=3;
YGS3:=FINONE(285,0,ZDRQ3);
YGX3:=FINONE(286,0,ZDRQ3);
YGZ3:=(YGS3+YGX3)/2;
YGRQ3:=FINONE(313,0,ZDRQ3);
YGRQC3:=(DQR-YGRQ3>SV) AND (DQR-YGRQ3<EV);
YGDC3:=(YGZ3>0) AND GQ AND YGRQC3;
KBJL3:=FINONE(287,0,ZDRQ3);
KBRQ3:=FINONE(315,0,ZDRQ3);
KBRQC3:=(DQR-KBRQ3>SV) AND (DQR-KBRQ3<EV);
KBDC3:=(KBJL3>0) AND GQ AND KBRQC3;
CBJL3:=FINONE(95,0,ZDRQ3);
指EPSRATE3:=FINONE(184,0,ZDRQ3);
CBRQ3:=FINONE(314,0,ZDRQ3);
CBRQC3:=(DQR-CBRQ3>SV) AND (DQR-CBRQ3<EV);
CBDC3:=CBJL3>0 AND 指EPSRATE3>0 AND GQ AND CBRQC3;
ZDRQDC3:=YGDC3 OR KBDC3 OR CBDC3;
ZDRQ4:=4;
YGS4:=FINONE(285,0,ZDRQ4);
YGX4:=FINONE(286,0,ZDRQ4);
YGZ4:=(YGS4+YGX4)/2;
YGRQ4:=FINONE(313,0,ZDRQ4);
YGRQC4:=(DQR-YGRQ4>SV) AND (DQR-YGRQ4<EV);
YGDC4:=(YGZ4>0) AND GQ AND YGRQC4;
KBJL4:=FINONE(287,0,ZDRQ4);
KBRQ4:=FINONE(315,0,ZDRQ4);
KBRQC4:=(DQR-KBRQ4>SV) AND (DQR-KBRQ4<EV);
KBDC4:=(KBJL4>0) AND GQ AND KBRQC4;
CBJL4:=FINONE(95,0,ZDRQ4);
指EPSRATE4:=FINONE(184,0,ZDRQ4);
CBRQ4:=FINONE(314,0,ZDRQ4);
CBRQC4:=(DQR-CBRQ4>SV) AND (DQR-CBRQ4<EV);
CBDC4:=CBJL4>0 AND 指EPSRATE4>0 AND GQ AND CBRQC4;
ZDRQDC4:=YGDC4 OR KBDC4 OR CBDC4;
TKQK:=ZJRQDC OR ZDRQDC1 OR ZDRQDC2 OR ZDRQDC3 OR ZDRQDC4;
DRAWICON(BARSSINCEN(TKQK,5)=0 AND DATE<=1220815,L,11);{1220815+19000000=20220815};
PSY:=COUNT(C>REF(C,1),12)/12*100;
PSYMA:=MA(PSY,5);
T1:=REF(TKQK,2) AND REF(L,1)>REF(H,3) AND L>REF(H,3);
R1:=BARSLAST(T1);
T2:=COUNT(T1,R1+1)>0 AND COUNT(L<=REF(H,R1+3),R1)=0 AND L<REF(L,R1+2)*1.05;
T3:=REF(TKQK,2) AND REF(L,1)>REF(H,2) AND L>REF(H,2);
R2:=BARSLAST(T3);
T4:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+2),R2)=0 AND L<REF(L,R2+1)*1.03;
T5:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+3),R2)=0 AND L<REF(L,R2+2)*1.05;
T6:=(T2 AND R1>=0 AND R1<125) OR ((T4 OR T5) AND R2>=0 AND R2<125);
T:=PSY<=50 AND C>多空线 AND (多空线>REF(多空线,1) OR MA20>REF(MA20,1)) AND DATE<=1220815 AND C>O;
DRAWICON(T AND T6,L*0.985,9);
T7:=REF(TKQK,4) AND REF(L,3)>REF((H+L)/2,4) AND REF(L,2)>REF((H+L)/2,4) AND REF(L,1)>REF((H+L)/2,4) AND L>REF((H+L)/2,4);
R3:=BARSLAST(T7);
T8:=COUNT(T7,R3+3)>0 AND COUNT(L<REF((H+L)/2,R3+4),R3)=0 AND L<REF(H,R3+4) AND R3>0 AND R3<10;
DRAWICON(T AND T8,L*0.99,42);
{现价线}
N:CONST(C),DOTLINE;
{涨跌停图示}
BK:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('创业板'),0.2,IF(INBLOCK('ST板块'),0.05,0.1)));
XA_1:=IF(DATE<=1200823,1,0);
STICKLINE((C>=ZTPRICE(REF(C,1),0.1) AND C=H) AND XA_1=1,O,C,4,0),COLOR00FFFF;
STICKLINE((C<=DTPRICE(REF(C,1),0.1) AND C=L) AND XA_1=1,O,C,4,0),COLORBLUE;
STICKLINE((C>=ZTPRICE(REF(C,1),BK) AND C=H),C,O,3,0),COLOR00FFFF;
STICKLINE((C<=DTPRICE(REF(C,1),BK) AND C=L),C,O,3,0),COLORBLUE;
流通市值亿:(FINANCE(40)/100000000),NODRAW,COLOR0000FF;
[url=http://www.70822.com/soft/sort013/sort05/down-163856.html]拈天绝技主图（通达信公式 主图 源码 测试图）[/url]