股歌看盘2011通达信版源码:
N:=IF(BARSCOUNT(C)<270,IF(BARSCOUNT(C)<180,30,60),90);
D1:=MA((C-LLV(C,N))/(HHV(C,N)-LLV(C,N))*100,2);
Q:=IF(C>O,V*(100-D1),V*D1);
ZF:=(C-O);
ZB:=ABS((C-REF(C,1)))/REF(C,1);
D2:=ZF*Q*ZB/(HHV(ZF*Q*ZB,N)-LLV(ZF*Q*ZB,N))*100;
D3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
KK:=(2*D1+2*D2+D3)/5;
DT:=IF(DATE<1101121,1,0);
YYY:=DT*SMA(KK/(HHV(KK,N)-LLV(KK,N))*100,2,1);
LLL:=DT*SMA(YYY,3,1);
DDD:=DT*MEMA(LLL,2);
个股短趋:=DT*(MA(YYY,5)*1+MA(YYY,10)*2+MA(YYY,20)*3+MA(YYY,30)*4+MA(YYY,60)*5)/15,NODRAW;
{DRAWBAND(个股短趋,RGB(255,0,0),REF(个股短趋,1),RGB(0,255,0))};
个股中趋:=DT*(MA(C,5)*1+MA(C,10)*2+MA(C,20)*3+MA(C,30)*4+MA(C,60)*5+MA(C,120)*6)/21;
上轨:=DT*个股中趋*1.08,COLORLIGRAY,LINETHICK3;
下轨:=DT*个股中趋*0.92,COLORLIGRAY,LINETHICK3;
获利盘%:=DT*WINNER(C)*100,NODRAW;
全换日数:=DT*SUMBARS(V,CAPITAL);
近期获利%:=DT*LWINNER(全换日数,C)*100;
远期获利%:=DT*PWINNER(全换日数,C)*100;
获利快线:=DT*MEMA(MEMA(MEMA(近期获利%,2),2),2),COLORWHITE,LINETHICK3;
获利慢线:=DT*EXPMEMA(EXPMEMA(MEMA(近期获利%,3),3),3),COLORRED,LINETHICK3;
获利中趋:=DT*(MA(近期获利%,5)+MA(近期获利%,10)*2+MA(近期获利%,20)*3+MA(近期获利%,30)*4+MA(近期获利%,60)*5)/15,COLORYELLOW,LINETHICK3;
PD1:=MA((INDEXC-LLV(INDEXC,N))/(HHV(INDEXC,N)-LLV(INDEXC,N))*100,2);
PQ:=IF(INDEXC>INDEXO,INDEXV*(100-PD1),INDEXV*PD1);
PZF:=(INDEXC-INDEXO);
PZB:=ABS((INDEXC-REF(INDEXC,1)))/REF(INDEXC,1);
PD2:=PZF*PQ*PZB/(HHV(PZF*PQ*PZB,N)-LLV(PZF*PQ*PZB,N))*100;
PD3:=(INDEXC-LLV(INDEXL,9))/(HHV(INDEXH,9)-LLV(INDEXL,9))*100;
PKK:=(2*PD1+2*PD2+PD3)/5;
PYYY:=SMA(PKK/(HHV(PKK,N)-LLV(PKK,N))*100,2,1);
大盘短趋:=DT*(MA(PYYY,5)*1+MA(PYYY,10)*2+MA(PYYY,20)*3+MA(PYYY,30)*4+MA(PYYY,60)*5)/15,NODRAW;
{DRAWBAND(大盘短趋,RGB(255,0,0),REF(大盘短趋,1),RGB(0,0,255))};
大盘中趋:=DT*(MA(INDEXC,5)*1+MA(INDEXC,10)*2+MA(INDEXC,20)*3+MA(INDEXC,30)*4+MA(INDEXC,60)*5+MA(INDEXC,120)*6)/21;
{仓位变量}
VAR1:=IF(个股短趋>=REF(个股短趋,1),1,-1);
VAR2:=IF(个股中趋>=REF(个股中趋,1),1,-1);
VAR3:=IF(获利快线>=REF(获利快线,1),1,-1);
VAR4:=IF(获利慢线>=REF(获利慢线,1),1,-1);
VAR5:=IF(获利快线>=REF(获利快线,1) AND 获利快线>获利慢线,1,-1);
VAR6:=IF(获利快线>=REF(获利快线,1) AND 获利快线>20,1,-1);
VAR7:=IF(获利慢线>=REF(获利慢线,1) AND 获利慢线>20,1,-1);
VAR8:=IF(获利中趋>=REF(获利中趋,1),1,-1);
VAR9:=IF(获利中趋>=REF(获利中趋,1) AND 获利中趋>20,1,-1);
VAR10:=IF(C>MA(C,5),1,-1);
VAR11:=IF(C>MA(C,10),1,-1);
VAR12:=IF(MA(C,5)>REF(MA(C,5),1),1,-1);
VAR13:=IF(MA(C,5)>MA(C,10),1,-1);
VAR14:=IF(MA(C,10)>REF(MA(C,10),1),1,-1);
VAR15:=IF(DDD>=REF(DDD,1),1,-1);
VAR16:=IF(DDD>=REF(DDD,1) AND DDD>25,1,-1);
VA:=IF(C>O,VOL,-VOL);
股歌OBV:=SUM(IF(C=O,0,VA),0);
VAR17:=IF(MA(股歌OBV,5)>REF(MA(股歌OBV,5),1),1,-1);
VAR18:=IF("MACD.DIF">=REF("MACD.DIF",1),1,-1);
VAR19:=IF("MACD.DEA">=REF("MACD.DEA",1),1,-1);
VAR20:=IF("MACD.DIF">"MACD.DEA",1,-1);
股歌AMOV:=VOL*(OPEN+CLOSE)/2;
股歌AMV5:=SUM(股歌AMOV,5)/SUM(VOL,5);
股歌AMV15:=SUM(股歌AMOV,15)/SUM(VOL,15);
VAR21:=IF(股歌AMV5>REF(股歌AMV5,1),1,-1);
VAR22:=IF(股歌AMV5>股歌AMV15,1,-1);
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,30))/MA(CLOSE,30);
济安线:=DMA((2*CLOSE+LOW+HIGH)/4,AA);
CC:=(CLOSE/济安线);
MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);
MAAA:=((MA1-济安线)/济安线)/3;
TMP:=MA1-MAAA*MA1;
VAR23:=IF(TMP>=济安线,1,-1);
变量和:=DT*(VAR1+VAR2+VAR3+VAR4+VAR5+VAR6+VAR7+VAR8+VAR9+VAR10+VAR11+VAR12+VAR13
+VAR14+VAR15+VAR16+VAR17+VAR18+VAR19+VAR20+VAR21+VAR22+VAR23);
原始仓位%:=DT*IF(变量和<0,0,变量和/23*100);
{仓位限制系数}
CWK1:=IF(大盘中趋>=REF(大盘中趋,1),1,0.5);
CWK2:=IF(大盘短趋>=REF(大盘短趋,1),1,0.5);
CWK3:=IF(个股中趋>=REF(个股中趋,1),1,0.5);
CWK4:=IF(个股短趋>=REF(个股短趋,1),1,0);
CWK5:=IF(获利中趋>=REF(获利中趋,1),1,0.5);
CWK6:=IF(MA(C,3)>下轨,1,0.5);
CWK7:=IF("MACD.DIF"<"MACD.DEA" AND "MACD.DIF"<REF("MACD.DIF",1),0,1);
CWK8:=IF("MACD.DIF"<"MACD.DEA",0.5,1);
CWK9:=IF("MACD.DEA"<REF("MACD.DEA",1),0.5,1);
CWK10:=IF(股歌AMV5<股歌AMV15 AND 股歌AMV5<REF(股歌AMV5,1),0,1);
CWK11:=IF(股歌AMV5<股歌AMV15,0.5,1);
CWK12:=IF(TMP<济安线 AND TMP<REF(TMP,1),0,1);
CWK13:=IF(TMP<济安线,0.5,1);
CWK14:=IF(C<REF(C,1)*1.005*(1-HHV((ABS(C/REF(C,1)-1)),
IF(BARSCOUNT(C)>100,100,BARSCOUNT(C)))),0,1);{跌停清0}
CWK15:=IF(C<=0.95*HHV(C,4),0,1);{顶部下跌超5%清0}
CWK16:=IF(C<=O AND V=HHV(V,60) AND H=HHV(H,60) AND C<MA(C,5),0.5,1);{收阴 量价60日新高}
调整仓位%:=DT*原始仓位%*CWK1*CWK2*CWK3*CWK4*CWK5*CWK6*CWK7*CWK8*CWK9*CWK10
*CWK11*CWK12*CWK13*CWK14;
初始仓位%:=DT*IF(C>=MA(C,10) AND MA(C,5)>=REF(MA(C,5),1)
AND MA(C,20)>=REF(MA(C,20),1)
AND MA(C,30)>=REF(MA(C,30),1) AND MA(C,10)>=MA(C,20)
AND MA(C,20)>=MA(C,30)
AND (REF(MA(C,10),1)>=REF(MA(C,10),2)
AND MA(C,10)<REF(MA(C,10),1)
OR MA(C,10)>REF(MA(C,10),1)),100,调整仓位%)*CWK15*CWK16;
CS:=初始仓位%;
{仓位取整}
R001A:=IF(CS<10,0,初始仓位%);
R001B:=IF(CS>=10 AND CS<15,10,R001A);
R001C:=IF(CS>=15 AND CS<25,20,R001B);
R001D:=IF(CS>=25 AND CS<35,30,R001C);
R001E:=IF(CS>=35 AND CS<45,40,R001D);
R001F:=IF(CS>=45 AND CS<55,50,R001E);
R001G:=IF(CS>=55 AND CS<65,60,R001F);
R001H:=IF(CS>=65 AND CS<75,70,R001G);
R001I:=IF(CS>=75 AND CS<85,80,R001H);
R001J:=IF(CS>=85 AND CS<95,90,R001I);
R001K:=IF(CS>=95,100,R001J);
{调整因子}
T1:=C<O OR C<=REF(C,1);{阴、跌不加仓}
T2:=(H-C)/(O-L)>2 AND (H-C)>(C-O) OR (H-C)/(C-O)>2
AND (H-C)>(O-L);{上影过长不加仓}
T3:=V<0.5*REF(V,1);{缩量过半不加仓}
T4:=REF(C,1)<=REF(O,1) AND (V<REF(V,1) OR C<REF(O,1));
{昨日收阴或平盘：缩量或未突破昨日阴线不加仓}
T5:=C>=O;{收阳不减仓}
T6:=R001K>REF(R001K,1);{取整后原本增仓不减仓}
{调整1组}
R100:=IF(T1 AND R001K>REF(R001K,1),REF(R001K,1),R001K);
R101:=IF(T1 AND R100>REF(R100,1),REF(R100,1),R100);
R102:=IF(T2 AND R101>REF(R101,1),REF(R101,1),R101);
R103:=IF(T3 AND R102>REF(R102,1),REF(R102,1),R102);
R104:=IF(T4 AND R103>REF(R103,1),REF(R103,1),R103);
R105:=IF(T5 AND REF(R104,1)>R104,REF(R104,1),R104);
R106:=IF(T6 AND REF(R105,1)>R105,REF(R105,1),R105);
R107:=IF(REF(R106,2)<50 AND REF(R106,1)>=50 AND R106<50
AND C>0.95*HHV(C,4),50,R106);{仓位强振下跌不超5%半仓A}
R108:=IF(REF(R106,2)>50 AND REF(R106,1)<=50
AND R106>50,50,R107);{仓位强振半仓B}
R109:=IF(REF(R108,2)=R108 AND REF(R108,1)>R108
AND REF(R108,1)<50,REF(R108,1),R108);{仓位弱振锁仓}
R199:=DT*R109;
{调整2组}
R200:=IF(T1 AND R199>REF(R199,1),REF(R199,1),R199);
R201:=IF(T1 AND R200>REF(R200,1),REF(R200,1),R200);
R202:=IF(T2 AND R201>REF(R201,1),REF(R201,1),R201);
R203:=IF(T3 AND R202>REF(R202,1),REF(R202,1),R202);
R204:=IF(T4 AND R203>REF(R203,1),REF(R203,1),R203);
R205:=IF(T5 AND REF(R204,1)>R204,REF(R204,1),R204);
R206:=IF(T6 AND REF(R205,1)>R205,REF(R205,1),R205);
R207:=IF(REF(R206,2)<50 AND REF(R206,1)>=50
AND R206<50 AND C>0.95*HHV(C,4),50,R206);
R208:=IF(REF(R206,2)>50 AND REF(R206,1)<=50
AND R206>50,50,R207);
R209:=IF(REF(R208,2)=R208
AND REF(R208,1)>R208 AND REF(R208,1)<50,REF(R208,1),R208);
R299:=DT*R209;
{调整3组}
R300:=IF(T1 AND R299>REF(R299,1),REF(R299,1),R299);
R301:=IF(T1 AND R300>REF(R300,1),REF(R300,1),R300);
R302:=IF(T2 AND R301>REF(R301,1),REF(R301,1),R301);
R303:=IF(T3 AND R302>REF(R302,1),REF(R302,1),R302);
R304:=IF(T4 AND R303>REF(R303,1),REF(R303,1),R303);
R305:=IF(T5 AND REF(R304,1)>R304,REF(R304,1),R304);
R306:=IF(T6 AND REF(R305,1)>R305,REF(R305,1),R305);
R307:=IF(REF(R306,2)<50 AND REF(R306,1)>=50
AND R306<50 AND C>0.95*HHV(C,4),50,R306);
R308:=IF(REF(R306,2)>50 AND REF(R306,1)<=50
AND R306>50,50,R307);
R309:=IF(REF(R308,2)=R308
AND REF(R308,1)>R308 AND REF(R308,1)<50,REF(R308,1),R308);
R399:=DT*R309;
{调整4组}
R400:=IF(T1 AND R399>REF(R399,1),REF(R399,1),R399);
R401:=IF(T1 AND R400>REF(R400,1),REF(R400,1),R400);
R402:=IF(T2 AND R401>REF(R401,1),REF(R401,1),R401);
R403:=IF(T3 AND R402>REF(R402,1),REF(R402,1),R402);
R404:=IF(T4 AND R403>REF(R403,1),REF(R403,1),R403);
R405:=IF(T5 AND REF(R404,1)>R404,REF(R404,1),R404);
R406:=IF(T6 AND REF(R405,1)>R405,REF(R405,1),R405);
R407:=IF(REF(R406,2)<50 AND REF(R406,1)>=50
AND R406<50 AND C>0.95*HHV(C,4),50,R406);
R408:=IF(REF(R406,2)>50 AND REF(R406,1)<=50
AND R406>50,50,R407);
R409:=IF(REF(R408,2)=R408
AND REF(R408,1)>R408 AND REF(R408,1)<50,REF(R408,1),R408);
R499:=DT*R409;
{调整5组}
R500:=IF(T1 AND R499>REF(R499,1),REF(R499,1),R499);
R501:=IF(T1 AND R500>REF(R500,1),REF(R500,1),R500);
R502:=IF(T2 AND R501>REF(R501,1),REF(R501,1),R501);
R503:=IF(T3 AND R502>REF(R502,1),REF(R502,1),R502);
R504:=IF(T4 AND R503>REF(R503,1),REF(R503,1),R503);
R505:=IF(T5 AND REF(R504,1)>R504,REF(R504,1),R504);
R506:=IF(T6 AND REF(R505,1)>R505,REF(R505,1),R505);
R507:=IF(REF(R506,2)<50 AND REF(R506,1)>=50
AND R506<50 AND C>0.95*HHV(C,4),50,R506);
R508:=IF(REF(R506,2)>50 AND REF(R506,1)<=50
AND R506>50,50,R507);
R509:=IF(REF(R508,2)=R508
AND REF(R508,1)>R508 AND REF(R508,1)<50,REF(R508,1),R508);
R599:=DT*R509;
{调整6组}
R600:=IF(T1 AND R599>REF(R599,1),REF(R599,1),R599);
R601:=IF(T1 AND R600>REF(R600,1),REF(R600,1),R600);
R602:=IF(T2 AND R601>REF(R601,1),REF(R601,1),R601);
R603:=IF(T3 AND R602>REF(R602,1),REF(R602,1),R602);
R604:=IF(T4 AND R603>REF(R603,1),REF(R603,1),R603);
R605:=IF(T5 AND REF(R604,1)>R604,REF(R604,1),R604);
R606:=IF(T6 AND REF(R605,1)>R605,REF(R605,1),R605);
R607:=IF(REF(R606,2)<50 AND REF(R606,1)>=50
AND R606<50 AND C>0.95*HHV(C,4),50,R606);
R608:=IF(REF(R606,2)>50 AND REF(R606,1)<=50
AND R606>50,50,R607);
R609:=IF(REF(R608,2)=R608
AND REF(R608,1)>R608 AND REF(R608,1)<50,REF(R608,1),R608);
R699:=R609;
仓位%:DT*R699,COLORYELLOW,LINETHICK3;
复价:=DT*40*(MA(C,10)-MA(C,60))/MA(C,30);
复量:=DT*10*(MA(V,5)-MA(V,60))/MA(V,30);
下限:=-6*DT,COLORGREEN;
DRAWBAND(下限,RGB(0,255,0),REF(下限,1),RGB(255,0,0));
{粉红色}
STICKLINE(复量<下限,复量,下限,4.00,0),COLOR9900FF;
STICKLINE(复量<下限,复量,下限,3.11,0),COLORFF00FF;
STICKLINE(复量<下限,复量,下限,2.22,0),COLORFF33FF;
STICKLINE(复量<下限,复量,下限,1.33,0),COLORFF66FF;
STICKLINE(复量<下限,复量,下限,0.44,0),COLORFF99FF;
{红色}
偏移:=IF(复量<下限,复量,下限);
STICKLINE(复价<下限,复价+偏移,偏移,4.00,0),COLOR000099;
STICKLINE(复价<下限,复价+偏移,偏移,3.11,0),COLOR0000AA;
STICKLINE(复价<下限,复价+偏移,偏移,2.22,0),COLOR0000CC;
STICKLINE(复价<下限,复价+偏移,偏移,1.33,0),COLOR0000EE;
STICKLINE(复价<下限,复价+偏移,偏移,0.44,0),COLOR0000FF;
DRAWICON(CROSS(复价,下限),-10,1);
DRAWTEXT(CROSS(复价,下限),-10,' 绝无未来,交流Q:292995363'),COLORWHITE;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
