{股票飞飞儿自用主图}
神秘均线:MA(CLOSE,75)color1C86EE;
多空趋势线:(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20))/4,colorFF;
M1:MA(CLOSE,13),COLORYELLOW,LINETHICK2;
M2:MA(CLOSE,34),LINETHICK2,COLORWHITE;
M3:MA(CLOSE,55),COLORGREEN,LINETHICK2;
A:MA(CLOSE,5)COLORBLUE,LINETHICK3;
B:=A<REF(A,1);
PARTLINE(B-1,A)COLORRED,LINETHICK3;;
DRAWTEXT(LAST(CLOSE<OPEN,3,0) AND LAST(VOL<REF(VOL,1),3,0),LOW*0.975,'三阴\n缩量\n一阳');
DRAWTEXT(CROSS("DMI.PDI","DMI.MDI")AND CROSS("DMI.PDI","DMI.ADX")AND CROSS("DMI.PDI","DMI.ADXR")AND CLOSE>REF(CLOSE,1)*1.05 AND VOL>REF(VOL,1),LOW*0.975,'DMI\n捉暴张');
DRAWTEXT(LAST(MA(CLOSE,5)<MA(CLOSE,10),5,0)AND "CCI.CCI">REF("CCI.CCI",1)AND CROSS("CCI.CCI",-100),LOW*0.975,'CCI\n背离底');
DRAWTEXT(LAST((HIGH-LOW)/REF(CLOSE,1)<0.1,5,0)AND VOL>REF(VOL,1)*2 AND CLOSE>REF(CLOSE,1)*1.05,LOW*0.975,'一二一\n平台起');
DRAWTEXT(LAST(MA(CLOSE,5)<MA(CLOSE,10),5,0) AND CLOSE>REF(CLOSE,1)*1.098,LOW*0.975,'山谷\n停板');
DRAWTEXT((LAST(CLOSE<OPEN,6,3)AND LAST(CLOSE>OPEN,2,0))OR(LAST(CLOSE<OPEN,6,3)AND CLOSE>OPEN AND REF(CLOSE,1)<REF(OPEN,1)AND REF(CLOSE,2)>REF(OPEN,2)),LOW*0.975,'拨云\n见日');
DRAWTEXT(CROSS((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100,(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100)AND MA(CLOSE,40)>REF(MA(CLOSE,40),1),LOW*0.98,'BIAS\n绝密买点');
DRAWTEXT(CLOSE<OPEN AND VOL>REF(VOL,1)*1.5 AND LAST(VOL<REF(VOL,1),5,1),LOW*0.975,'南天\n一柱');
DRAWTEXT((CLOSE>OPEN AND VOL>REF(VOL,1)*2.5 AND CROSS(CLOSE,MA(CLOSE,5))) OR (CLOSE>OPEN AND VOL>REF(VOL,1)*10),LOW*0.975,'顶天\n立地');
MA(CLOSE,3);
尾:=BARSTATUS=2; {是否为尾周期};
总:=BARSCOUNT(CLOSE)-1;{当前已有周期数};
徝0:=总+0.0001;
万0:=INTPART(徝0/10000); 澫0:=总-SUM(BACKSET(1,IF(尾,总-万0,0)),0);
千0:=INTPART(FRACPART(徝0/10000)*10); 仟0:=总-SUM(BACKSET(1,IF(尾,总-千0,0)),0);
百0:=INTPART(FRACPART(徝0/1000)*10); 佰0:=总-SUM(BACKSET(1,IF(尾,总-百0,0)),0);
十0:=INTPART(FRACPART(徝0/100)*10); 拾0:=总-SUM(BACKSET(1,IF(尾,总-十0,0)),0);
个0:=INTPART(FRACPART(徝0/10)*10); 個0:=总-SUM(BACKSET(1,IF(尾,总-个0,0)),0);
分0:=INTPART(FRACPART(徝0)*10); 份0:=总-SUM(BACKSET(1,IF(尾,总-分0,0)),0);
毫0:=INTPART(FRACPART(徝0*10)*10); 儫0:=总-SUM(BACKSET(1,IF(尾,总-毫0,0)),0);
厘0:=INTPART(FRACPART(徝0*100)*10); 俚0:=总-SUM(BACKSET(1,IF(尾,总-厘0,0)),0);
总0:=澫0*10000+仟0*1000+佰0*100+拾0*10+個0+份0/10+儫0/100+俚0/1000;{向前赋值尾周期数}
后:=总0-总;{到尾日周期数};N:=10;
值:=HHVBARS(VOL,N);{N日量能到尾日周期}
徝:=值+0.0001;
万:=INTPART(徝/10000); 澫:=总-SUM(BACKSET(1,IF(尾,总-万,0)),0);
千:=INTPART(FRACPART(徝/10000)*10); 仟:=总-SUM(BACKSET(1,IF(尾,总-千,0)),0);
百:=INTPART(FRACPART(徝/1000)*10); 佰:=总-SUM(BACKSET(1,IF(尾,总-百,0)),0);
十:=INTPART(FRACPART(徝/100)*10); 拾:=总-SUM(BACKSET(1,IF(尾,总-十,0)),0);
个:=INTPART(FRACPART(徝/10)*10); 個:=总-SUM(BACKSET(1,IF(尾,总-个,0)),0);
分:=INTPART(FRACPART(徝)*10); 份:=总-SUM(BACKSET(1,IF(尾,总-分,0)),0);
毫:=INTPART(FRACPART(徝*10)*10); 儫:=总-SUM(BACKSET(1,IF(尾,总-毫,0)),0);
厘:=INTPART(FRACPART(徝*100)*10); 俚:=总-SUM(BACKSET(1,IF(尾,总-厘,0)),0);
T1:=澫*10000+仟*1000+佰*100+拾*10+個+份/10+儫/100+俚/1000;{N日量能到尾日周期}值2:=IF(T1=0,CLOSE,REF(CLOSE,T1));{N日量能收盘价}
徝2:=值2+0.0001;
万2:=INTPART(徝2/10000); 澫2:=总-SUM(BACKSET(1,IF(尾,总-万2,0)),0);
千2:=INTPART(FRACPART(徝2/10000)*10); 仟2:=总-SUM(BACKSET(1,IF(尾,总-千2,0)),0);
百2:=INTPART(FRACPART(徝2/1000)*10); 佰2:=总-SUM(BACKSET(1,IF(尾,总-百2,0)),0);
十2:=INTPART(FRACPART(徝2/100)*10); 拾2:=总-SUM(BACKSET(1,IF(尾,总-十2,0)),0);
个2:=INTPART(FRACPART(徝2/10)*10); 個2:=总-SUM(BACKSET(1,IF(尾,总-个2,0)),0);
分2:=INTPART(FRACPART(徝2)*10); 份2:=总-SUM(BACKSET(1,IF(尾,总-分2,0)),0);
毫2:=INTPART(FRACPART(徝2*10)*10); 儫2:=总-SUM(BACKSET(1,IF(尾,总-毫2,0)),0);
厘2:=INTPART(FRACPART(徝2*100)*10); 俚2:=总-SUM(BACKSET(1,IF(尾,总-厘2,0)),0);
T2:=澫2*10000+仟2*1000+佰2*100+拾2*10+個2+份2/10+儫2/100+俚2/1000;{N日量能收盘价};PARTLINE(后<=N+3,T2),colorff00ff;
DRAWICON(后=T1,T2,10);{600008后计算有错};
DRAWTEXT(尾,T2,' 量能平台'),COLORCC00CC; |
