文件:红色百年博弈.alg
名称: 红色百年博弈  类别:技术指标
说明: {股票公式www.70822.com}
公式组: 百年公测

DRAWGBK(1,COLORRGB(0,0,30),COLORRGB(0,0,120),1);
N:=1020531;
M:=1090531;
上市日期年:REF(YEAR,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFFFFFF;
月:REF(MONTH,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFF99FF;
日:REF(DAY,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFF99FF;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'证券代码:'+STKLABEL),ALIGN4,colorFF99FF;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                 所属板块:'+BLKNAME+'  发行价'+NUMTOSTR(FINANCE(51),2)+'元'+'  发行量'+NUMTOSTR(FINANCE(52),2)+'万股'+'\n'+'总股本'+NUMTOSTR(FINANCE(1),0)+'万股'+'  流通A股'+NUMTOSTR(FINANCE(7),0)+'万股'+'  净资产'+NUMTOSTR(FINANCE(35),2)+'亿元'+'  每股收益'+NUMTOSTR(FINANCE(33),2)+'元'+'  每股未分配'+NUMTOSTR(FINANCE(32),2)+'元'+'  市盈率'+NUMTOSTR(DYNAINFO(39),2)+'%'+'  投资收益'+NUMTOSTR(FINANCE(24),2)+'元'+'  股东总数'+NUMTOSTR(FINANCE(50),0)+'户'),ALIGN4,colorFF99FF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),CLOSE,' 红色百年独有资金坑技术'),ALIGN4,colorFFFF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),CLOSE,'           红色百年股票群74011259'),ALIGN3,colorFFFF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),CLOSE,'                      百年孤独；红蜻蜓牛年首发'),ALIGN5,colorFFFFFF;
多方:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1),2,1);
DRAWTEXT(CROSS(78.89,多方),HIGH*1.05,'逃'),colorFF00;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,8,0),colorAAAAAA;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,6,0),colorBBBBBB;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.4,0),colorCCCCCC;
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.1,0),colorDDDDDD;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),colorCCCCCC;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),colorCCCCCC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),color6666CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),color7777DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4,0),color8888EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1,0),color9999FF;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),color1199FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),color1199FF;
S3:=IF(DATE<=1090531,1,0);
AWE1:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*1,5,1)-2*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*1,5,1);
AWE2:=(EMA(AWE1,5)-REF(EMA(AWE1,5),1))/REF(EMA(AWE1,5),1)*1;
AWE3:=(IF(DATE>=N,IF(DATE<=M,1,0),0))*(S3);
AWE5:=(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))*1;
DRAWTEXT(CROSS(AWE1,EMA(AWE1,5)) AND EMA(AWE1,5)<AWE5*AWE3,LOW*0.9,'(黑马)'),colorFFFF;{股票公式www.70822.com}
M55:MA(CLOSE,55),POINTDOT,LINETHICK4,colorFFFF;
A01:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3));
A11:=SMA(A01,2,1);
A21:=SMA(A11,2,1);
A31:=3*A11-2*A21;
A41:=2*A31-0.5;
命:CLOSE*(1-(A41-A21)/15),LINETHICK2,colorFFFFFF;
弱:IF(MA(CLOSE,4)>SMA(LOW,21,2)*1.01,SMA(LOW,21,2)*1.01,SMA(LOW,21,2)*1.01),LINETHICK3,colorFF0000;
强:PARTLINE(SMA(LOW,21,2)*1.01>=REF(SMA(LOW,21,2)*1.01,1),SMA(LOW,21,2)*1.01),LINETHICK3,colorFF00FF;
阻:PEAK(1,5,1)*S3,color8000FF;
支:TROUGH(2,5,1),colorFFB97A;
VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=IF(DATE>=N,IF(DATE<=M,1,0),0);
VAR8:=(SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),7,1))*100;
VAR9:=(SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),13,1))*100;
VAR10:=(IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0))*VAR7;
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
买１:=VAR10;
买２:=VAR11+VAR13+VAR15+VAR17*VAR7;
卖１:=VAR12+VAR14+VAR16+VAR18*VAR7;
B:=PARTLINE(买１>0 OR 买２>0,LOW*0.99);
DRAWICON(买１>0 OR 买２>0,LOW*0.96,1),colorFF;
慧:=IF(卖１>0,HIGH*1.01,0);
孤:=IF(卖１>0,HIGH*1.01,0);
DRAWICON(卖１>0,HIGH*1.02,2);
VAR100:=100-90*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20));
VAR200:=100-90*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20));
VAR300:=100-MA(100*(HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5)),34);
电话:=IF(CROSS(VAR200,MA(VAR300,5)),LOW*0.98,0);
VAR20:=EMA(AMOUNT/VOL/100,3);
VAR21:=EMA(VAR20,88);
VAR22:=EMA(VAR20,88)*0.85;
VARA:=VAR22*0.87;
VARB:=(LOW<VARA AND CLOSE>REF(CLOSE,1))*1.02;
DRAWICON(FILTER(VARB,6),LOW*0.96,1);
重:(CLOSE+0.618*REF(CLOSE,1)+0.382*REF(CLOSE,2)+0.236*REF(CLOSE,3)+0.146*REF(CLOSE,4))/2.382*S3,LINETHICK1,color1;
GAO:=HHV(CLOSE,60)-LLV(CLOSE,60);
RSI:=(SMA(MAX(重-REF(重,1),0),5,1))/(SMA(ABS(重-REF(重,1)),5,1));
平衡:=EMA(SLOPE(CLOSE,22)*20+CLOSE,55);
红多:PARTLINE(重>=平衡,平衡),LINETHICK3,colorFF;
绿空:PARTLINE(重<平衡,平衡),LINETHICK3,colorFF00;
SAT:=IF(AMOUNT/CLOSE/(HHV(AMOUNT,20)/HHV(CLOSE,20))*100>100,100,AMOUNT/CLOSE/(HHV(AMOUNT,20)/HHV(CLOSE,20))*100);
压1:=MA(REF(HHV(CLOSE,30),1),2);
支1:=MA(REF(LLV(CLOSE,30),1),2);
AA1:=AMOUNT/VOL;
BB1:=LOW<AA1*0.9;
CC1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>1.2;
DD1:=LOW<MA(CLOSE,5)*0.921;
EE1:=VOL<MA(VOL,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(FF1,LOW*0.9,'★老鼠仓'),color4080FF;
LC:=REF(CLOSE,1);
RSQ:=(SMA(MAX(CLOSE-LC,0),3,1))/(SMA(ABS(CLOSE-LC),3,1))*100;
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
MA16:=IF(DATE>=N,IF(DATE<=M,1,0),0);
DRAWTEXT(CROSS(FF,MA15*MA16),LOW*0.9,'★底背离'),colorFF00FF;
DRAWTEXT(CROSS(88,RSQ),支*0.96,'★顶背离'),colorFF00;
V2:=LLV(LOW,27);
V3:=HHV(HIGH,34);
V4:=EMA((CLOSE-V2)/(V3-V2)*4,4)*25;
注意买:=IF(V4<10,80,100);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
超跌:=IF(J<0,10,0);
BDDD:=LLV(J,2)=LLV(J,8);
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,LOW*0.92,'★短'),colorE9C2A6;
VR3:=(2*CLOSE+HIGH+LOW)/4;
VR4:=LLV(LOW,34);
VR5:=HHV(HIGH,34);
GG:=HIGH*1.02;
SST:=IF(DATE>=N,IF(DATE<=M,1,0),0);
散户:=EMA((VR3-VR4)/(VR5-VR4)*100,13)*SST;
新
[url=http://www.70822.com/soft/sort013/sort02/down-8358.html]红色百年博弈[/url]