文件:红色百年博弈.alg 
名称: 红色百年博弈  类别:技术指标 
说明: {股票公式www.fxjgsw.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.fxjgsw.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); 
买1:=VAR10; 
买2:=VAR11+VAR13+VAR15+VAR17*VAR7; 
卖1:=VAR12+VAR14+VAR16+VAR18*VAR7; 
B:=PARTLINE(买1>0 OR 买2>0,LOW*0.99); 
DRAWICON(买1>0 OR 买2>0,LOW*0.96,1),colorFF; 
慧:=IF(卖1>0,HIGH*1.01,0); 
孤:=IF(卖1>0,HIGH*1.01,0); 
DRAWICON(卖1>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; 
新  |