飞狐螃蟹七剑主图指标

源码

GJTJ1:=100*(CLOSE-LLV(LOW,5))/(HHV(CLOSE,5)-LLV(LOW,5));
GJTJ2:=100*(CLOSE-LLV(LOW,10))/(HHV(CLOSE,10)-LLV(LOW,10));
GJTJ3:=100*(CLOSE-LLV(LOW,20))/(HHV(CLOSE,20)-LLV(LOW,20));
GJTJ4:=100*(CLOSE-LLV(LOW,30))/(HHV(CLOSE,30)-LLV(LOW,30));
板幅度:=IF(STRFIND(STKNAME,'S',1)>0,0.0489,0.0965);
板:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>板幅度 AND HIGH=CLOSE;
VARVA:=板;
DRAWTEXT(板,HIGH,'板'),ALIGN0,PXUP25,colorFF00;
STICKLINE(CLOSEREF(OPEN,1),REF(CLOSE,1),REF(CLOSE,1),20,0),colorFFFFFF;
A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96;
B:=COUNT(A,2)=1;
D:=GJTJ1<95;
YH:=INDEXC/REF(INDEXC,1)*REF(CLOSE,1);
YH1:=REF(CLOSE,1)+CLOSE-INDEXC/REF(INDEXC,1)*REF(CLOSE,1);
X1:=EMA(YH1,7);
X2:=EMA(YH1,14);
X3:=EMA(X1,14);
E:=X1>X2 AND X2>X3;
竟星:=B AND D AND E;
DRAWTEXT(竟星,LOW*0.95,'竟星'),colorFFFFFF;
XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;
天瀑:=COUNT(XG,3)=1 AND XG;
DRAWTEXT(天瀑,LOW*0.95,'天瀑'),colorFFFF;
A1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;
B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
E1:=GJTJ1>60 AND GJTJ4>70;
白金:=A1 AND B1 AND E1;
DRAWTEXT(白金,LOW*0.95,'白金'),colorFF00;
A2:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;
B2:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A3:=A2 AND B2;
AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;
BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A4:=AA AND BA;
AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;
BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;
A8:=AAA AND BAA;
B21:=REF(A3,1);
B3:=REF(A4,1);
B4:=REF(A8,1);
D2:=GJTJ1=100 AND GJTJ2=100 AND A3;
D3:=GJTJ1=100 AND GJTJ2=100 AND A4;
D4:=GJTJ1=100 AND GJTJ2=100 AND A8;
日月:=D2 OR D3 OR D3;
DRAWTEXT(日月,LOW*0.95,'日月'),colorF00FF0;
A5:=BARSLAST(CROSS(95,GJTJ1))<=2;
B5:=BARSLAST(CROSS(95,GJTJ2))<=2;
E5:=GJTJ4
F1:=GJTJ2>50 AND GJTJ3>50;
G1:=GJTJ1=100 AND GJTJ2=100;
TX:=COUNT(G1,2)=1;
青干:=A5 AND B5 AND E5 AND F1 AND TX;
DRAWTEXT(青干,LOW*0.95,'青干'),colorFF;
A6:=GJTJ3=100;
B6:=GJTJ4<90;
莫问:=COUNT(A6,2)=2 AND B6;
DRAWTEXT(莫问,LOW*0.95,'莫问'),colorFF0000;
A7:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;
B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
黄金:=A7 AND B7;
DRAWTEXT(黄金,LOW*0.95,'黄金'),colorFFBB00;
A9:=BARSLAST(CROSS(GJTJ4,GJTJ1))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
B9:=BARSLAST(CROSS(GJTJ4,GJTJ2));
D9:=GJTJ3
E9:=BARSLAST(CROSS(GJTJ4,GJTJ3))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
F9:=GJTJ2
B91:=A>0 AND REF(A,1)=0 AND REF(A,2)>0;
舍神:=A9 AND B9 AND D9 AND E9 AND F9;
DRAWTEXT(舍神,LOW*0.95,'舍神'),colorFF00AA;
三:EMA(MA(CLOSE,8),3),colorFF00;
五黄金:EMA(MA(CLOSE,21),5),colorFFFF;
八:EMA(MA(CLOSE,34),8),colorFF;
十三:EMA(MA(CLOSE,55),13),colorFFFFFF;
上:=五黄金+2*STD(CLOSE,20);
下:=五黄金-2*STD(CLOSE,20);
A1:=COST(95);
A2:=COST(5);
螃蟹算盘:=(A1-A2)*100/(A1+A2);
DRAWICON(螃蟹算盘>REF(螃蟹算盘,1),LOW*0.98,8),ALIGN5;
A:=HHV(MA((LOW+HIGH+CLOSE)/3,3),3);
B:=LLV(MA((LOW+HIGH+CLOSE)/3,3),8);
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),A,A,15,0),SHIFT1,LINETHICK1,colorFFFF;
DRAWNUMBER(BARSCOUNT(CLOSE)=SYSPARAM(1),A,A,3),SHIFT3,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),B,B,15,0),SHIFT1,LINETHICK1,colorFF;
DRAWNUMBER(BARSCOUNT(CLOSE)=SYSPARAM(1),B,B,3),SHIFT3,colorFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2,(HIGH+LOW)/2,4,0),POINTDOT,LINETHICK1,colorFFFF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.05,'+5%'),SHIFT2,color63806A;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.03,'+3%'),SHIFT2,color63806A;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.95,'-5%'),SHIFT2,PXUP4,color63806A;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.97,'-3%'),SHIFT2,PXUP4,color63806A;
DRAWTEXT(REF(CLOSE,1)B AND BARSCOUNT(CLOSE)=SYSPARAM(1),B*0.985,'←试买'),SHIFT1,colorFFFF;
DRAWTEXT(CLOSE>=A AND BARSCOUNT(CLOSE)=SYSPARAM(1),A*1.015,'←多'),SHIFT1,colorFFFF;
DRAWTEXT(REF(CLOSE,1)=A AND BARSCOUNT(CLOSE)=SYSPARAM(1),A*0.995,'←进'),SHIFT1,colorFFFF;
DRAWTEXT(REF(CLOSE,1)>REF(A,1) AND CLOSE
DRAWTEXT(CROSS(B,CLOSE) AND BARSCOUNT(CLOSE)=SYSPARAM(1),A*0.995,'↓逃'),SHIFT1,colorFF00;
DRAWTEXT(CLOSE
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),REF(LOW,1),REF(LOW,1)*0.999,30,1),colorFF;
DRAWTEXT(CROSS(REF(LOW,1),CLOSE) AND BARSCOUNT(CLOSE)=SYSPARAM(1),REF(LOW,1),'▼=止损'),SHIFT1,colorFFFFFF;
B:=BARSCOUNT(CLOSE)=SYSPARAM(2);
D:=BARSLAST(B);
HH:=HHV(HIGH,D);
DRAWTEXT(BARSTATUS=2,HH,STKLABEL+' '+STKNAME+'                                                                                                         '),ALIGN2,PXDN20,colorFFFF80;
换手率:=100*VOL/CAPITAL;
RH:=HIGH-LOW;
R:=DYNAINFO(13)*100;
DRAWTEXT(BARSTATUS=2,HH,'当日振幅:'+NUMTOSTR(R,2)+'%  '+NUMTOSTR(RH,2)+'元 '+'  当前换手率:'+NUMTOSTR(换手率,2)+'%  '+'                                                      '),ALIGN2,PXDN20,colorFFFFFF;
DRAWTEXT(BARSTATUS=2,HH,'  被强煎的螃蟹专用        QQ：626355031'+SELFSTRING('评级')+'                                                        '),ALIGN2,PXDN80,colorFFFFFF;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,'                 制作'),ALIGN5,colorFF00;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,'被强煎的螃蟹'),ALIGN5,colorFFCC33;
VAR100:='所属板块:';
IF INBLOCK('电力')=1 THEN
VAR100:=VAR100+' 电力';
IF INBLOCK('电脑')=1 THEN
VAR100:=VAR100+' 电脑';
IF INBLOCK('电器')=1 THEN
VAR100:=VAR100+' 电器';
IF INBLOCK('电子信息')=1 THEN
VAR100:=VAR100+' 电子信息';
IF INBLOCK('房地产')=1 THEN
VAR100:=VAR100+' 房地产';
IF INBLOCK('纺织服装')=1 THEN
VAR100:=VAR100+' 纺织服装';
IF INBLOCK('钢铁')=1 THEN
VAR100:=VAR100+' 钢铁';
IF INBLOCK('工程建筑')=1 THEN
VAR100:=VAR100+' 工程建筑';
IF INBLOCK('供水供气')=1 THEN
VAR100:=VAR100+' 供水供气';
IF INBLOCK('化工')=1 THEN
VAR100:=VAR100+' 化工';
IF INBLOCK('化纤')=1 THEN
VAR100:=VAR100+' 化纤';
IF INBLOCK('机械')=1 THEN
VAR100:=VAR100+' 机械';
IF INBLOCK('建材')=1 THEN
VAR100:=VAR100+' 建材';
IF INBLOCK('交通工具')=1 THEN
VAR100:=VAR100+' 交通工具';
IF INBLOCK('交通设施')=1 THEN
VAR100:=VAR100+' 交通设施';
IF INBLOCK('教育传媒')=1 THEN
VAR100:=VAR100+' 教育传媒';
IF INBLOCK('金融')=1 THEN
VAR100:=VAR100+' 金融';
IF INBLOCK('旅游酒店')=1 THEN
VAR100:=VAR100+' 旅游酒店';
IF INBLOCK('煤炭石油')=1 THEN
VAR100:=VAR100+' 煤炭石油';
IF INBLOCK('酿酒食品')=1 THEN
VAR100:=VAR100+' 酿酒食品';
IF INBLOCK('农林牧渔')=1 THEN
VAR100:=VAR100+' 农林牧渔';
IF INBLOCK('其他行业')=1 THEN
VAR100:=VAR100+' 其他行业';
IF INBLOCK('汽车')=1 THEN
VAR100:=VAR100+' 汽车';
IF INBLOCK('汽配')=1 THEN
VAR100:=VAR100+' 汽配';
IF INBLOCK('商业连锁')=1 THEN
VAR100:=VAR100+' 商业连锁';
IF INBLOCK('石化')=1 THEN
VAR100:=VAR100+' 石化';
IF INBLOCK('通信')=1 THEN
VAR100:=VAR100+' 通信';
IF INBLOCK('外贸')=1 THEN
VAR100:=VAR100+' 外贸';
IF INBLOCK('医药')=1 THEN
VAR100:=VAR100+' 医药';
IF INBLOCK('仪电仪表')=1 THEN
VAR100:=VAR100+' 仪电仪表';
IF INBLOCK('有色金属')=1 THEN
VAR100:=VAR100+' 有色金属';
IF INBLOCK('运输物流')=1 THEN
VAR100:=VAR100+' 运输物流';
IF INBLOCK('造纸印刷')=1 THEN
VAR100:=VAR100+' 造纸印刷';
IF INBLOCK('安徽')=1 THEN
VAR100:=VAR100+' 安徽';
IF INBLOCK('北京')=1 THEN
VAR100:=VAR100+' 北京';
IF INBLOCK('福建')=1 THEN
VAR100:=VAR100+' 福建';
IF INBLOCK('甘肃')=1 THEN
VAR100:=VAR100+' 甘肃';
IF INBLOCK('广东')=1 THEN
VAR100:=VAR100+' 广东';
IF INBLOCK('广西')=1 THEN
VAR100:=VAR100+' 广西';
IF INBLOCK('贵州')=1 THEN
VAR100:=VAR100+' 贵州';
IF INBLOCK('海南')=1 THEN
VAR100:=VAR100+' 海南';
IF INBLOCK('河北')=1 THEN
VAR100:=VAR100+' 河北';
IF INBLOCK('河南')=1 THEN
VAR100:=VAR100+' 河南';
IF INBLOCK('黑龙江')=1 THEN
VAR100:=VAR100+' 黑龙江';
IF INBLOCK('湖北')=1 THEN
VAR100:=VAR100+' 湖北';
IF INBLOCK('湖南')=1 THEN
VAR100:=VAR100+' 湖南';
IF INBLOCK('吉林')=1 THEN
VAR100:=VAR100+' 吉林';
IF INBLOCK('江苏')=1 THEN
VAR100:=VAR100+' 江苏';
IF INBLOCK('江西')=1 THEN
VAR100:=VAR100+' 江西';
IF INBLOCK('辽宁')=1 THEN
VAR100:=VAR100+' 辽宁';
IF INBLOCK('内蒙古')=1 THEN
VAR100:=VAR100+' 内蒙古';
IF INBLOCK('宁夏')=1 THEN
VAR100:=VAR100+' 宁夏';
IF INBLOCK('青海')=1 THEN
VAR100:=VAR100+' 青海';
IF INBLOCK('山东')=1 THEN
VAR100:=VAR100+' 山东';
IF INBLOCK('山西')=1 THEN
VAR100:=VAR100+' 山西';
IF INBLOCK('陕西')=1 THEN
VAR100:=VAR100+' 陕西';
IF INBLOCK('上海')=1 THEN
VAR100:=VAR100+' 上海';
IF INBLOCK('深圳')=1 THEN
VAR100:=VAR100+' 深圳';
IF INBLOCK('四川')=1 THEN
VAR100:=VAR100+' 四川';
IF INBLOCK('天津')=1 THEN
VAR100:=VAR100+' 天津';
IF INBLOCK('***')=1 THEN
VAR100:=VAR100+' ***';
IF INBLOCK('新疆')=1 THEN
VAR100:=VAR100+' 新疆';
IF INBLOCK('云南')=1 THEN
VAR100:=VAR100+' 云南';
IF INBLOCK('浙江')=1 THEN
VAR100:=VAR100+' 浙江';
IF INBLOCK('重庆')=1 THEN
VAR100:=VAR100+' 重庆';
IF INBLOCK('3G')=1 THEN
VAR100:=VAR100+' 3G';
IF INBLOCK('H股')=1 THEN
VAR100:=VAR100+' H股';
IF INBLOCK('QFII持股')=1 THEN
VAR100:=VAR100+' QFII持股';
IF INBLOCK('ST')=1 THEN
VAR100:=VAR100+' ST';
IF INBLOCK('奥运')=1 THEN
VAR100:=VAR100+' 奥运';
IF INBLOCK('创投')=1 THEN
VAR100:=VAR100+' 创投';
IF INBLOCK('次新股')=1 THEN
VAR100:=VAR100+' 次新股';
IF INBLOCK('大盘')=1 THEN
VAR100:=VAR100+' 大盘';
IF INBLOCK('股权改革')=1 THEN
VAR100:=VAR100+' 股权改革';
IF INBLOCK('股权投资')=1 THEN
VAR100:=VAR100+' 股权投资';
DRAWTEXT(BARSTATUS=2,HH,VAR100+'   '),ALIGN2,PXDN110,colorBBFFFF;
DD:=FINANCE(1);
SS:=FINANCE(7);
FF:=FINANCE(18);
GG:=FINANCE(33);
ZZ:=FINANCE(53);
JJ:=FINANCE(40);
MM:=JJ/SS;
TH:=DYNAINFO(39);
DRAWTEXT(BARSTATUS=2,HH,'总股本:'+NUMTOSTR(DD,0)+'万股'+' 流通A股:'+NUMTOSTR(SS,0)+'万股'+' 市盈率:'+NUMTOSTR(HH,2)+'%'+'  每股收益:'+NUMTOSTR(GG,3)+'                                                        '),ALIGN2,PXDN50,colorBBFFFF;
GJ:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(VOL+0.01)/100);
明日阻力:=LOW+GJ-LOW+CLOSE-LOW;
明日支撑:=LOW+CLOSE-GJ;
今日阻力:=REF(明日阻力,1);
今日支撑:=REF(明日支撑,1);
STICKLINE(BARSTATUS=2 AND CLOSE>=今日阻力,今日阻力,今日阻力,30,0),colorFF;
STICKLINE(BARSTATUS=2 AND CLOSE<今日阻力,今日阻力,今日阻力,30,0),colorFF00;
STICKLINE(BARSTATUS=2 AND CLOSE>=今日支撑,今日支撑,今日支撑,30,0),colorFF00FF;
STICKLINE(BARSTATUS=2 AND CLOSE<今日支撑,今日支撑,今日支撑,30,0),colorFF;
DRAWTEXT(BARSTATUS=2,HH,'----------------------------------          '),ALIGN2,PXDN2,colorFFFFFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE>=今日支撑,HH,'  今日支撑=：'+NUMTOSTR(今日支撑,2)+'          '),ALIGN2,PXDN50,colorFF00FF;
DRAWTEXT(BARSTATUS=2 AND CLOSE<今日支撑,HH,'  今日支撑=：'+NUMTOSTR(今日支撑,2)+'          '),ALIGN2,PXDN50,colorFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE>=今日阻力,HH,'  今日阻力=：'+NUMTOSTR(今日阻力,2)+'          '),ALIGN2,PXDN20,colorFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE<今日阻力,HH,'  今日阻力=：'+NUMTOSTR(今日阻力,2)+'          '),ALIGN2,PXDN20,colorFF00;
DRAWTEXT(BARSTATUS=2,HH,'  明日阻力=：'+NUMTOSTR(明日阻力,2)+'                              '),ALIGN2,PXDN20,colorFFFF;
DRAWTEXT(BARSTATUS=2,HH,'  明日支撑=：'+NUMTOSTR(明日支撑,2)+'                              '),ALIGN2,PXDN50,colorFFFF;
DRAWTEXT(BARSTATUS=2,HH,'----------------------------------          '),ALIGN2,PXDN70,colorFFFFFF;
DRAWTEXT(BARSTATUS=2 AND VOL>REF(VOL,1) AND MA(VOL,5)>REF(MA(VOL,5),1),HH,'今日成交量大于昨日,且有继续增大趋势'+'          '),ALIGN2,PXDN90,color8285FF;
DRAWTEXT(BARSTATUS=2 AND VOLREF(MA(VOL,5),1),HH,'今日成交量小于昨日，但有放大迹象'+'          '),ALIGN2,PXDN90,color8285FF;
DRAWTEXT(BARSTATUS=2 AND VOL>REF(VOL,1) AND MA(VOL,5);