蜘蛛图源码
JJX:=(ABS(OPEN+HIGH+LOW+CLOSE))/4;
生命:MA(JJX,5),colorFF00FF;
生命线:MA(JJX,26),LINETHICK2,PRECISION2,colorFFFF;
KS:=(CLOSE-MA(CLOSE,17))/MA(CLOSE,17)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND CLOSE/REF(CLOSE,1)>=1.02;
超跌:STICKLINE(KS>=17,OPEN,LOW,6,0),LINETHICK6,colorFFFFFF;
反弹:STICKLINE(MLS=1,OPEN,LOW,6,0),LINETHICK6,colorFF00FF;
超超跌:STICKLINE(KS>=34,OPEN,LOW,8,1),LINETHICK6,colorFFFFFF;
反反弹:STICKLINE(MLS=1,OPEN,LOW,8,1),LINETHICK6,colorFF00FF;
超极跌:STICKLINE(KS>=34,OPEN,LOW,8,1),LINETHICK6,colorFFFF00;
DRAWTEXT(SUM(VOL/CAPITAL*100,3)>5 AND (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100>5 AND SUM(VOL/CAPITAL*100,3)<7 AND (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100<7 AND VOL>REF(VOL,1) AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100<3,LOW*0.99,'▲\n追\n涨\n必\n胜'),colorFFFF;
VA9:COST(9),LINETHICK2,colorFF;
VA10:COST(10),color808080;
VA12:COST(12),color808080;
VA14:COST(14),color808080;
VA16:COST(16),color808080;
VA18:COST(18),color808080;
VA20:COST(20),color808080;
VA22:COST(22),color808080;
VA24:COST(24),color808080;
VA26:COST(26),color808080;
VA28:COST(28),color808080;
VA30:COST(30),color808080;
VA32:COST(32),color808080;
VA34:COST(34),color808080;
VA36:COST(36),color808080;
VA38:COST(38),color808080;
VA40:COST(40),color808080;
VA42:COST(42),color808080;
VA44:COST(44),color808080;
VA46:COST(46),color808080;
VA48:COST(48),color808080;
VA50:COST(50),LINETHICK2,colorFF00;
VA52:COST(52),color808080;
VA54:COST(54),color808080;
VA56:COST(56),color808080;
VA58:COST(58),color808080;
VA60:COST(60),color808080;
VA62:COST(62),color808080;
VA64:COST(64),color808080;
VA66:COST(66),color808080;
VA68:COST(68),color808080;
VA70:COST(70),color808080;
VA72:COST(72),color808080;
VA74:COST(74),color808080;
VA76:COST(76),color808080;
VA78:COST(78),color808080;
VA80:COST(80),color808080;
VA82:COST(82),color808080;
VA84:COST(84),color808080;
VA86:COST(86),color808080;
VA88:COST(88),color808080;
VA90:COST(90),color808080;
VA92:COST(92),color808080;
VA94:COST(94),color808080;
VA96:COST(96),color808080;
VA98:COST(98),LINETHICK2,colorFFFF;
PARTLINE(REF(VA9,1)>VA9,VA9),LINETHICK2,colorFF00;
VAR1:=EMA(CLOSE,3);
VAR2:=EMA(CLOSE,5);
VAR3:=EMA(CLOSE,10);
VAR4:=EMA(CLOSE,20);
VAR5:=EMA(CLOSE,30);
VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
VAR9:=EMA(VAR7,8);
STICKLINE(VAR7<1*REF(VAR7,1),HIGH,LOW,0.5,0),colorFF0000;
STICKLINE(VAR7<1*REF(VAR7,1),OPEN,CLOSE,8,0),colorFF0000;
STICKLINE(VAR7>1*REF(VAR7,1),HIGH,LOW,0.5,0),colorFF;
STICKLINE(VAR7>1*REF(VAR7,1),OPEN,CLOSE,8,0),colorFF;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),HIGH,LOW,0.5,0),colorFF00;
STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),OPEN,CLOSE,8,0),colorFF00;
买进价:=((CLOSE-REF(MA(CLOSE,6),1))/6+MA(CLOSE,6))*1.004;
买进条件:=CROSS(CLOSE,买进价) AND 买进价>REF(买进价,1);
STICKLINE(买进条件,HIGH,LOW,0.5,1),LINETHICK2,colorFFFFFF;
STICKLINE(买进条件,OPEN,CLOSE,8,0),LINETHICK2,colorFFFFFF;
加码价:=((CLOSE-REF(MA(CLOSE,18),1))/18+MA(CLOSE,18))*1.004;
加码条件:=CROSS(CLOSE,加码价) AND 加码价>REF(加码价,1);
STICKLINE(加码条件,HIGH,LOW,0.5,1),LINETHICK2,colorFFFF;
STICKLINE(加码条件,OPEN,CLOSE,8,0),LINETHICK2,colorFFFF;
诺亚方舟:="W&R#week"(14)+100;
舟:=诺亚方舟;
T1:=舟>REF(舟,1);
T2:=舟<REF(舟,1);
DRAWICON(T1 AND SUM(T2,8)=1,LOW*0.995,1);
DRAWICON(T2 AND SUM(T1,8)=1,LOW*0.995,2);
EXPLAIN(0=0,' 【长阳真人之短线盈损解盘】 '),colorBEFF00;
EXPLAINEX(CLOSE,'当日成本价格:',(LOW+HIGH)/2,2,0),colorFFFF;
EXPLAINEX(CLOSE,'当日涨停价格:',(HIGH+LOW)/2*1.1,2,0),colorFF;
EXPLAINEX(CLOSE,'当日跌停价格:',(HIGH+LOW)/2*0.9,2,0),colorFF00;
EXPLAINEX(CLOSE,'止盈 +3%价格:',(HIGH+LOW)/2*1.03,2,0),colorFF00FF;
EXPLAINEX(CLOSE,'止盈 +5%价格:',(HIGH+LOW)/2*1.05,2,0),colorFF00FF;
EXPLAINEX(CLOSE,'止损 -3%价格:',(HIGH+LOW)/2*0.97,2,0),colorFFFF00;
EXPLAINEX(CLOSE,'止损 -5%价格:',(HIGH+LOW)/2*0.95,2,0),colorFFFF00;
A007:=(HIGH+LOW+CLOSE)/3;
A008:=(A007-MA(A007,14))/(0.015*AVEDEV(A007,14))/2;
A009:=(A008+EMA((-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100)/100,3)*200-100)/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA((A014-A015)/(A013-A015)*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1 AND A016<30 AND A017<30;
KKML:=A016-A017<0 AND A016>80 AND A017>80 AND REF(A016-A017,1)>0;
KKMQ:=(COUNT(A016-A017>0,2))=2;
KKAL:=A016-A017<0;
EXPLAINEX(FILTER(KKMD,30),'最佳买入时机★',LOW,2,1),colorFFFF;
EXPLAINEX(FILTER(KKML,30),'最佳卖出时机',HIGH,2,1),colorFFFF00;
EXPLAINEX(FILTER(KKMQ,30),'持仓区',CLOSE,2,1),colorFF00;
EXPLAINEX(FILTER(KKAL,30),'空仓区',HIGH,2,1),colorFF8080;
EXPLAINEX(FILTER(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),30),'该股强于大盘',LOW*0.95,2,1),colorFF00FF;
EXPLAINEX(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'可出手',LOW*0.92,2,1),colorFF00FF;
EXPLAINEX(CROSS(MA(CLOSE,10),MA(CLOSE,5)),'收手了',HIGH*1.08,2,1),colorFF0000;
EXPLAINEX(FILTER(KKM>EMA(KKM,4) AND KKM>REF(KKM,1),30),'快速介入',LOW*0.98,2,1);
EXPLAINEX(FILTER(KKM<EMA(KKM,4) AND KKM<REF(KKM,1),30),'风险较大',HIGH*1.02,2,1);
EXPLAINEX(FILTER(KKM>EMA(KKM,4) AND KKM<REF(KKM,1),30),'休息观望~',HIGH,2,1),colorAA8800;
EXPLAINEX(FILTER(KKM<EMA(KKM,4) AND KKM>REF(KKM,1),30),'有防御能力',LOW,2,1),colorAA00AA;
HD:=MA(VOL/(HIGH-LOW),4);
LD:=ABS(CLOSE-OPEN);
DMP:=VOL/(HIGH-LOW);
EXPLAIN(DMP<HD AND LD<MA(LD,4),'资金无入场意愿，萎缩中'),colorFFFF00;
EXPLAIN(DMP<HD AND LD>MA(LD,4),'场内资金有运作行为'),colorFFFF;
EXPLAIN(DMP>HD AND LD<MA(LD,4),'多空双方激烈争夺中'),colorFFFF;
EXPLAIN(DMP>HD AND LD>MA(LD,4),'场外资金介入（或出局）意愿强烈'),color99FF;
DMM:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
PDI:=HIGH-REF(HIGH,1);
MDI:=REF(LOW,1)-LOW;
ADX:=SUM(IF(PDI>0 AND PDI>MDI,PDI,0),14);
ADXR:=SUM(IF(MDI>0 AND MDI>PDI,MDI,0),14);
TYP:=ADX*100/DMM;
CCI:=ADXR*100/DMM;
WR:=MA((ABS(CCI-TYP))/(CCI+TYP)*100,6);
MTM:=(WR+REF(WR,6))/2;
EXPLAIN(CROSS(TYP,CCI),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号'),colorFF00;
EXPLAIN(CROSS(CCI,TYP),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号'),colorFFFF00;
EXPLAIN(WR>REF(WR,1),'ADX值持续高于前一日，行情将维持原趋势'),colorFFFF;
EXPLAIN(WR<REF(WR,1) AND WR<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整'),color99FF;
EXPLAIN(WR<REF(WR,1) AND REF(WR,1)<REF(WR,2) AND REF(WR,2)>REF(WR,3) AND REF(WR,3)>REF(WR,4),'ADX值从上升倾向转为下降时，表明行情即将反转'),colorFFFF;
MTMMA:=(HIGH+LOW+CLOSE)/3;
LC:=(MTMMA-MA(MTMMA,14))/(0.015*AVEDEV(MTMMA,14));
EXPLAIN(LC<-180,'CCI指标底位，买入机会'),colorFF00;
EXPLAIN(LC>180,'CCI指标高位，卖出机会'),colorFFFF00;
EXPLAIN(VOL/CAPITAL>0.075,'换手过大，小心主力出逃，短期头部'),colorFFFF00;
RSI1:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAIN(RSI1>-20,'W&R超买，短线即将见顶，应及时卖出'),colorFFFF00;
EXPLAIN(RSI1<-80,'W&R超卖，短线即将见底，应伺机买进'),colorFF00;
RSI2:=CLOSE-REF(CLOSE,6);
PSY:=MA(RSI2,6);
EXPLAIN(CROSS(RSI2,PSY) AND PSY<-0.8,'MTM从下向上突破MTMMA，买入信号'),colorFF00;
EXPLAIN(CROSS(PSY,RSI2) AND PSY>0.8,'MTM从上向下跌破MTMMA，卖出信号'),colorFFFF00;
布林1:=REF(CLOSE,1);
布林2:=(SMA(MAX(CLOSE-布林1,0),6,1))/(SMA(ABS(CLOSE-布林1),6,1))*100;
布林3:=(SMA(MAX(CLOSE-布林1,0),12,1))/(SMA(ABS(CLOSE-布林1),12,1))*100;
EXPLAIN(布林2>85,'6日RSI超买,防止回挡'),colorFFFF00;
EXPLAIN(布林2>80,'6日RSI向上突破85，超买,考虑卖出'),colorFFFF00;
EXPLAIN(布林2<15,'6日RSI超卖,随时有可能反弹'),colorFFFF;
EXPLAIN(布林2<15,'6日RSI向下跌破15，超卖，考虑买入'),colorFFFF;
EXPLAIN(CROSS(布林2,15),'6日RSI向上突破15，买进信号'),colorFF00;
EXPLAIN(CROSS(布林2,85),'6日RSI向下跌破85，卖出信号'),colorFFFF00;
布林4:=(COUNT(CLOSE>REF(CLOSE,1),12))/12*100;
布林5:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
布林6:=布林5+3*STD(布林5,10);
布林7:=布林5-3*STD(布林5,10);
XX:=(布林6-布林7)/布林6<0.03;
A001:=(布林6-布林7)/布林6>0.18;
A002:=(MA(CLOSE,60)-MA(CLOSE,5))/MA(CLOSE,60)>0.15;
A003:=(MA(CLOSE,5)-MA(CLOSE,60))/MA(CLOSE,5)>0.15;
EXPLAIN(XX,'多空布林收敛中，有变盘的可能，上下自己分析'),colorFFFF;
EXPLAIN(A002 AND A001 AND CLOSE>OPEN,'布林上下乖离太大，有反弹的可能'),colorFF00;
EXPLAIN(A003 AND A001 AND CLOSE<OPEN,'布林上下乖离太大，有回落的可能'),colorFFFF00;
EXPLAIN(HIGH>=HHV(HIGH,20),'创20天新高');
VVV:=1;
A004:=1;
A005:=CLOSE-REF(CLOSE,6);
A006:=MA(A005,6)*VVV;
A007:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
A008:=SMA(A007,3,1);
A009:=SMA(A008,3,1);
A010:=(EMA(3*A008-2*A009,2))*A004;
A011:=(HIGH+LOW+CLOSE)/3*A004;
A012:=(A011-MA(A011,14))/(0.015*AVEDEV(A011,14))/2*A004;
A013:=(A012+EMA((-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100)/100,3)*200-100)/2;
A014:=A013-REF(A013,14)*VVV;
A015:=A013-REF(A013,26)*A004;
A016:=(A013+A014+A015)/3;
A017:=1.1*CLOSE*VVV;
A018:=0.9*CLOSE*A004;
A019:=100*(WINNER(A017)-WINNER(A018));
A020:=(EMA(100-A019,3))*A004;
A021:=A020;
A022:=MA(A020,12)*VVV;
A023:=(A021-A022)*7;
A024:=EMA(A023,3);
A025:=MA(CLOSE,5);
A026:=MA(MA(CLOSE,20),5);
A027:=(A025-REF(A025,1))/REF(A025,1)*1000*VVV;
A028:=(A026-REF(A026,1))/REF(A026,1)*1000;
A029:=A027-A028;
A030:=IF(A027<A029*VVV,A029+ABS(A027-A029),A029-(ABS(A027-A029)));
A031:=A027+50;
A032:=A030+50;
A033:=IF(MAX(A031,A032)>100,100,MAX(A031,A032));
KKM:=IF(MIN(A031,A032)<0,0,MIN(A031,A032));
A034:=(A033+KKM)/2;
CCCCC1:=A034-50;
CCCCC2:=A016*VVV;
XDP:=EMA(A016,4);
DPM:=XDP;
A035:=-(A005+100)/2+A010;
A036:=A035/2-50;
A037:=A036*4;
A038:=EMA(A037,3);
A039:=EMA(XDP,4);
A040:=EMA(A038,4);
A041:=(XDP+A038*(-1))/2;
XY:=XDP*VVV;
XM:=A038*VVV;
XD:=EMA(XDP,4);
VARX:=A040;
C023:=1;
C024:=1;
C025:=1;
C026:=C023*C024*C025;
VARE:=XY;
VAR6:=XM;
VAR7:=XD;
VAR8:=VARX;
EXPLAIN(CCCCC1>0 AND C026>0,'短线投机活跃！'),colorFF;
EXPLAIN(CCCCC1<0 AND C026>0,'短线投机小心！'),colorFFFF;
EXPLAIN(XY>XD AND XY>XM AND C026>0,'从多头看：短线适度持股'),colorFF;
EXPLAIN(XY>XD AND XY<XM AND C026>0,'从多头看：短线择机增仓'),colorFF00;
EXPLAIN(XY<XD AND XY>XM AND C026>0,'从多头看：短线获利减仓'),colorFFFF;
EXPLAIN(XY<XD AND XY<XM AND C026>0,'从多头看：短线空仓观望'),colorFF0000;
EXPLAIN(XM>VARX AND XM>XY AND C026>0,'从空头看：短线空仓观望'),colorFF000;
F:=COST(5);
J:=COST(95);
M:=COST(15);
B:=COST(85);
F1:=(J-F)/(F+J)*100;
M1:=(B-M)/(B+M)*100;
成本集中度90:=F1;
成本集中度70:=M1;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(CLOSE));
日换手率:=VOL/CAPITAL*100;
浮筹筹码:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100;
DRAWTEXTEX(CLOSE,1,10,120,'获利盘:'+NUMTOSTR(获利盘,2)+' \n\n'+'套牢盘:'+NUMTOSTR(套牢盘,2)+' \n\n'+'浮筹筹码:'+NUMTOSTR(浮筹筹码,2)+' \n\n'+'成本集中度70:'+NUMTOSTR(成本集中度70,2)+' \n\n'+'成本集中度90:'+NUMTOSTR(成本集中度90,2)+' \n\n'+'市场平均成本:'+NUMTOSTR(COST(50),2)+' \n\n'+'主力平均成本:'+NUMTOSTR(COST(4),2)+' \n\n'+'控盘平均成本:'+NUMTOSTR(COST(30),2)+' \n\n'+'拉升平均成本:'+NUMTOSTR(COST(75),2)+' \n\n'+'顶部平均成本:'+NUMTOSTR(COST(95),2)+' \n\n'+'底部平均成本:'+NUMTOSTR(COST(0.05),2)+' \n\n'),colorFFFF00;
 |
