股典钟买卖决策通达信版源码
来源:股典钟量化炒股机器人 | 作者:股典钟量化炒股机器人 | 发布时间: 2024-01-11 | 419 次浏览 | 分享到:
绝密技术,源码不全,需者扫码联系

TYP:=(H+L+C)/3;
 LC:=REF(C,1);
 {NO.1}
 VAR001:=(TYP-MA(TYP,15))/(0.016*AVEDEV(TYP,15));
 VAR002:=SMA(MAX(C-LC,0),6,1)/SMA(ABS(C-LC),6,1)*100;
 B001:=IF(CROSS(VAR001,-150),1,0);
 S001:=IF(CROSS(80,VAR002),1,0);
 {NO.2}
 VAR003:=EMA(100*(C-LLV(L,31))/(HHV(H,31)-LLV(L,31)),3)/4;
 B002:=IF(VAR003<1,1,0);
 S002:=IF(VAR003>23,1,0);
 {NO.3}
 VAR004:=(C-LLV(L,18))/(HHV(H,18)-LLV(L,18))*100; 
 VAR005:=EMA(VAR004,3); 
 VAR006:=EMA(VAR005,3); 
 VAR007:=(3*VAR005-2*VAR006); 
 VAR008:=REF(COUNT(VAR007<REF(VAR007,1),5)>=3,1) AND REF(VAR007,1)<20; 
 VAR009:=VAR007>REF(VAR007,1); 
 B003:=IF(FILTER(VAR008 AND VAR009,3),1,0);
 {NO.4}
 VAR010:=AMOUNT/VOL/1000;
 VAR011:=(3*H+L+O+2*C)/7;
 VAR012:=SUM(AMOUNT,13)/VAR010/1000;
 VAR013:=DMA(VAR011,VOL/VAR012);
 VAR014:=(CLOSE-VAR013)/VAR013*1000;
 B004:=IF(CROSS(VAR014,-166),1,0);
 B005:=IF(CROSS(VAR014,-120),1,0);
 B006:=IF(CROSS(VAR014,-88),1,0);
 {NO.5}
 VAR015:=(TYP-MA(TYP,15))/(0.015*AVEDEV(TYP,15));
 VAR016:=(TYP-MA(TYP,70))/(0.015*AVEDEV(TYP,70));
 VAR017:=IF(VAR015>=150 AND VAR015<200 AND VAR016>=150 AND VAR016<200,100,0);
 VAR018:=0-IF(VAR016>=200,200,VAR017)+400;
 S003:=IF(VAR018=300,1,0);
 {NO.6}
 VAR019:=DMA((3*H+L+O+2*C)/7,VOL/(SUM(AMOUNT,13)/(AMOUNT/VOL/1000)/1000));
 B007:=IF(CROSS((C-VAR019)/VAR019*1000,-166),1,0);
 {NO.7}
 VAR020:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
 VAR021:=SMA(VAR020,2,1);
 B008:=IF(VAR021<10,1,0);
 {NO.8}
 VAR022:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),5)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),5);
 MFI:=IF(CROSS(100-(100/(1+VAR022)),20),1,0);
 RSI:=SMA(MAX(C-LC,0),5,1)/SMA(ABS(C-LC),5,1)*100;
 B009:=IF(MFI,1,0);
 B010:=IF(CROSS(RSI,20),1,0);
 {NO.9}
 VAR023:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
 VAR024:=REF(C,VAR023+1)>C AND REF("RSI.RSI1"(6,12,24),VAR023+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
 VAR025:=IF(VAR024>0,1,0);
 B011:=IF(VAR025,1,0);
 {NO.10}
 VAR026:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
 VAR027:=(TYP-MA(TYP,70))/(0.015*AVEDEV(TYP,70));
 VAR028:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
 VAR029:=100-ABS(VAR028);
 VAR030:=IF(BARSCOUNT(C)<13,100,IF(VAR029<88 AND VAR028>0,1,0)); 
 VAR031:=IF(BARSCOUNT(C)<13,-100,0-IF(VAR029<92 AND VAR028<0,1,0));
 VAR032:=IF(BARSCOUNT(C)<70,1,IF(VAR027>=200 AND VAR026>=150,1,0));
 B012:=IF(VAR031,1,0);
 S004:=IF(VAR030,1,0);
 S005:=IF(VAR032,1,0);
 {NO.11}
 VAR033:=SMA(MAX(C-LC,0),4.1,1)/SMA(ABS(C-LC),4.1,1)*100; 
 VAR034:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
 
 {NO.12}
 VAR035:=AMOUNT/VOL;
 VAR036:=L<VAR035*0.9;
 VAR037:=(C-LC)/LC*100>1.2;
 VAR038:=L< MA(C,5)*0.921;
 VAR039:=VOL< MA(V,5)*1.5;
 B018:=IF(VAR036 AND VAR037 AND VAR038 AND VAR039,1,0);
 {NO.13}
 VAR040:=100-3*(SMA(((C-LLV(L,75))/(HHV(H,75)-LLV(L,75)))*100,20,1))+2*(SMA(SMA(((C-LLV(L,75))/(HHV(H,75)-LLV(L,75)))*100,20,1),15,1));
 VAR041:=100-3*(SMA(((O-LLV(L,75))/(HHV(H,75)-LLV(L,75)))*100,20,1))+2*(SMA(SMA(((O-LLV(L,75))/(HHV(H,75)-LLV(L,75)))*100,20,1),15,1));
 VAR042:=VAR040<REF(VAR041,1) AND VOL>REF(VOL,1) AND C>LC;
 VAR043:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;
 VAR044:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
 VAR045:=SMA(VAR044,13,8);
 VAR046:=SMA(VAR043,21,8);
 VAR047:=SMA(VAR045,13,8);
 VAR048:=FILTER((COUNT((VAR047-VAR046<(-65)),3)=3),34);
 VAR049:=MA(C,80)-(MA(C,13))/(3);
 VAR050:=MA((C-VAR049)/(VAR049),1);
 VAR051:=(EMA(VAR050,12))*0.69999998;
 VAR052:=EMA(VAR050,3);
 VAR053:=IF((LLV(VAR052-VAR051,12)>0),0,(-30));
 VAR054:=FILTER((COUNT((VAR053<(-20)),3)=3),34);
 B019:=IF(VAR048,1,0);
 B020:=IF(VAR054,1,0);
 {NO.14}
 VAR055:=C/REF(C,1)>1.045;
 VAR056:=C/HHV(H,34)<0.7;
 VAR057:=MAX(FORCAST(COST(24)/L,3),SMA(COST(24)/L,3,1))>1.526 ;
 VAR058:=VAR055 AND VAR056 AND VAR057;
 B021:=IF(VAR058,1,0);
 {NO.15}
 VAR059:=LLV(L,60);
 VAR060:=HHV(H,60);
 VAR061:=EMA((C-VAR059)/(VAR060-VAR059)*100,5);
 VAR062:=EMA(0.667*REF(VAR061,1)+0.333*VAR061,2);
 VAR063:=CROSS(VAR062,VAR061) AND VAR061>85;
 S006:=IF(VAR063,1,0);
 {NO.16}
 VAR064:=REF(L,1); 
 VAR065:=SMA(ABS(L-VAR064),13,1)/SMA(MAX(L-VAR064,0),13,1)*4; 
 VAR066:=EMA(VAR065,13);
 VAR067:=LLV(L,34);
 VAR068:=EMA(IF(L<=VAR067,VAR066,0),3);
 B022:=IF(VAR068>REF(VAR068,1),1,0);
 {NO.17}
 VAR069:=IF(HHV((MA(C,1)<HHV(MA(TYP,5),10)),5),0,1);
 VAR070:=IF(LLV((MA(C,1)<LLV(MA(TYP,5),10)),5),1,0);
 VAR071:=IF(LLV((MA(C,1)<LLV(MA(TYP,5),10)),10),1,0);
 S007:=IF(VAR069,1,0);
 B023:=IF(VAR070,1,0);
 B024:=IF(VAR071,1,0);
 {NO.18}
 VAR072:=SUM(MAX(MAX((H-L),ABS((H-LC))),ABS((LOW-LC))),5);
 VAR073:=H-REF(H,1);
 VAR074:=REF(L,1)-L;
 VAR075:=SUM(IF(((VAR073>0)AND(VAR073>VAR074)),VAR073,0),5);
 VAR076:=SUM(IF(((VAR074>0)AND(VAR074>VAR073)),VAR074,0),5);
 VAR077:=(VAR075*100)/VAR072;
 VAR078:=(VAR076*100)/VAR072;
 VAR079:=MA(((ABS((VAR078-VAR077))/(VAR078+VAR077))*100),3);
 VAR080:=IF(((VAR079>88)AND(VAR077<5.8)),80,0);
 B025:=IF(VAR080,1,0);
 {NO.19}
 VAR081:=INDEXV*INDEXC; 
 VAR082:=EMA(VAR081,5)/EMA(INDEXV,5); 
 VAR083:=(INDEXC-VAR082)/VAR082*100; 
 VAR084:=VAR083<=-1.5 AND VAR083>-100; 
 VAR085:=SUM(VAR084>0,11)/SUM(VAR084=0,11); 
 VAR086:=VAR085<5 AND VAR085>=0.25; 
 VAR087:=(TYP-MA(TYP,13))/(0.015*AVEDEV(TYP,13)); 
 VAR088:=EMA(VAR087,3); 
 VAR089:=SUM(MAX(0,H-REF(TYP,1)),21)/SUM(MAX(0,REF(TYP,1)-L),21)*100; 
 VAR090:=REF(MA(VAR089,3),2.2); 
 VAR091:=CROSS(VAR090,VAR089) AND VAR089>150; 
 VAR092:=IF(VAR086 AND CROSS(VAR087,VAR088),1,0),,COLORRED; 
 VAR093:=IF(VAR091,1,0),,COLORGREEN;
 S008:=IF(VAR093,1,0);
 B026:=IF(VAR092,1,0);
 {NO.20}
 VAR094:="RSI.RSI1"(3,14,24);
 VAR095:="RSI.RSI2"(3,14,24);
 VAR096:=IF((VAR095-VAR094)/VAR094>5,50,0);
 B027:=IF(VAR096,1,0);
 {NO.21}
 VAR097:=REF(L,1);
 VAR098:=SMA(ABS(L-VAR097),3,1)/SMA(MAX(LOW-VAR097,0),3,1)*100;
 VAR099:=EMA(IF(C*1.2,VAR098*10,VAR098/10),3);
 VAR100:=LLV(L,38);
 VAR101:=HHV(VAR099,38);
 VAR102:=IF(LLV(L,90),1,0);
 VAR103:=EMA(IF(L<=VAR100,(VAR099+VAR101*2)/2,0),3)/618*VAR102;
 VAR104:=VAR103>5;
 VAR105:=REF((L+O+C+H)/4,1);
 VAR106:=SMA(ABS(L-VAR105),13,1)/SMA(MAX(L-VAR105,0),10,1);
 VAR107:=EMA(VAR106,10);
 VAR108:=LLV(L,33);
 VAR109:=EMA(IF(L<=VAR108,VAR107,0),3);
 B028:=IF(COUNT(VAR104,2)=2 AND VAR109>REF(VAR109,1),1,0);
 {NO.22}
 VAR110:=SMA(MAX(C-LC,0),5,1)/SMA(ABS(C-LC),5,1)*100;
 VAR111:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 VAR112:=SMA(VAR111,3,1);
 VAR113:=SMA(VAR112,3,1);
 VAR114:=(VAR113/2+40)*1.1;
 VAR115:=SMA(VAR114,3,1);
 VAR116:=IF(CROSS(VAR115,VAR110),1,0);
 VAR117:=IF(CROSS(80,VAR110),1,0);
 S009:=IF(VAR116,1,0);
 S010:=IF(VAR117,1,0);
 {NO.23}
 VAR118:=(2*C+H+L)/4;
 VAR119:=EMA((VAR118-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100,6);
 VAR120:=EMA(0.667*REF(VAR119,1)+0.333*VAR119,4);
 VAR121:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
 VAR122:=SMA(MAX(C-LC,0),6,1)/SMA(ABS(C-LC),6,1)*100;
 VAR123:=100*VOL/CAPITAL;
 VAR124:=IF(IF(COUNT(C<LC,8)/8>0.3 AND COUNT(VAR119>VAR120,3) AND REF(L,1)=LLV(L,120) AND C>O,1,0),52,0);
 VAR125:=IF(CROSS(VAR121,3),52,0);
 VAR126:=IF(CROSS(84,VAR122),(-1)*VAR122,0);
 VAR127:=IF(REF(0.34*VAR123,1)>4 AND REF(0.34*VAR123,1)<4.2,-60,0);
 B029:=IF(VAR124,1,0);
 B030:=IF(VAR125,1,0);
 S011:=IF(VAR126,1,0);
 S012:=IF(VAR127,1,0);
 {NO.24}
 VAR128:=SMA(MAX(C-LC,0),18,1)/SMA(ABS(C-LC),18,1)*100;
 VAR129:=SMA(MAX(C-LC,0),5,1)/SMA(ABS(C-LC),5,1)*100;
 S013:=IF(CROSS(68,VAR128),1,0);
 S014:=IF(CROSS(84,VAR129),1,0);
 {NO.25}
 VAR130:=IF(C/O>1.02 AND "BIAS.BIAS3"<-13,1,0);
 B031:=IF(VAR130,1,0);
 {NO.26}
 VAR131:=SUM(MAX(MAX(H-L,ABS(H-LC)),ABS(L-LC)),7);
 VAR132:=H-REF(H,1);
 VAR133:=REF(L,1)-L;
 VAR134:=SUM(IF(VAR132>0 AND VAR132>VAR133,VAR132,0),7);
 VAR135:=SUM(IF(VAR133>0 AND VAR133>VAR132,VAR133,0),7);
 VAR136:=VAR134*100/VAR131;
 VAR137:=VAR135*100/VAR131;
 VAR138:=MA(ABS(VAR137-VAR136)/(VAR137+VAR136)*100,3);
 B032:=IF(VAR138>90 AND VAR136=0,1,0);
【买点】:B001+B002+B003+B004+B005+B006+B007+B008+B009+B010+B011+B012+B013+B014+B015+B016+B017+B018+
 B019+B020+B021+B022+B023+B024+B025+B026+B027+B028+B029+B030+B031+B032,COLOR0000FF,NODRAW;
【风险】:S001+S002+S003+S004+S005+S006+S007+S008+S009+S010+S011+S012+S013+S014,COLOR00EE00,NODRAW;
 STICKLINE(【买点】,0,【买点】*5,0,0),COLORGREEN;
 STICKLINE(【风险】,0,【风险】*8,0,0),COLORFF00FF;
 ZZ:=VAR121>REF(VAR121,1) AND REF(VAR121,1)<12;
买点累和:SUM(【买点】,21),COLOR880088,NODRAW;
 STICKLINE(FILTER(买点累和>50&&ZZ,5),66,0,3,0),COLORRED;
 VV:=SMA(VAR121,5,4);
 RR:=SUM(CROSS(VAR121,VV),2)>0;
 FF:=VAR121<REF(VAR121,1) AND REF(VAR121,1)>80;
 MM:=REF(【买点】,1)>=6 AND 【买点】<REF(【买点】,1);
 SS:=REF(【风险】,1)>=4 AND 【风险】<REF(【风险】,1);
 STICKLINE(FILTER(ZZ&&MM,3),0,66,3,0),COLOR00FFFF;
 STICKLINE(FILTER(RR&&MM,3),0,36,3,0),COLORFF66FF;
 STICKLINE(SS&&FF,0,66,3,0),COLORFF8800; 
趋势:VAR121,COLOR00AAFF,LINETHICK1,NODRAW;
 DRAWBAND(趋势,RGB(255,155,0),VV,RGB(0,0,155));
 DRAWICON(【风险】>=3,90,2);
 DRAWICON(【买点】>=6,90,1);
 DRAWNUMBER(【风险】>=3,100,(【风险】)),COLOR00FF00;
 DRAWNUMBER(【买点】>=6,100,(【买点】)),COLOR00FFFF;