当前位置：→ 公式网 > 通达信公式 > 正文 ℃ 公式解密、改选股等业务 联系点击查看详情...
以下是通达信天地买卖主图源码（无源码的请下载附件导入）
通达信天地买卖主图源码
C/C++ Code复制内容到剪贴板
- 天:80,COLORBLUE,LINETHICK4,POINTDOT;
- 海:20,COLORFF00FF,LINETHICK4,POINTDOT;
- ZKK:"KD.K#WEEK"(9,3,3),COLORRED;
- ZKD:"KD.D#WEEK"(9,3,3),COLORYELLOW;
- KCD:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)<30,13);
- KCD1:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)>30,13);
- DRAWICON(KCD1,ZKD,23);
- XG1:=KCD;
- STICKLINE(XG1,20,10,4,0),COLOR000099;
- STICKLINE(XG1,20,10,2,0),COLOR0000BB;
- STICKLINE(XG1,20,10,1,0),COLOR0000DD;
- STICKLINE(XG1,0,20,0.3,0),COLOR0000FF;
- DRAWTEXT(XG1,20,'K买'),COLOR0000FF;
- SCD:=FILTER(CROSS(ZKD,ZKK) AND REF(ZKK,1)>78,13);
- STICKLINE(SCD,90,80,4,0),COLOR009900;
- STICKLINE(SCD,90,80,2,0),COLOR00BB00;
- STICKLINE(SCD,90,80,1,0),COLOR00DD00;
- STICKLINE(SCD,100,80,0.3,0),COLOR00FF00;
- DRAWTEXT(SCD,95,'K卖'),COLOR00FF00;
- DIFW:="MACD.DIF#WEEK"(12,26,9);
- DEAW:="MACD.DEA#WEEK"(12,26,9);
- FCA:=FILTER(CROSS(DIFW,DEAW) AND REF(DEAW,1)<0,13);
- XG2:=FCA;
- STICKLINE(XG2,10,20,4,0),COLOR990099;
- STICKLINE(XG2,10,20,2,0),COLORBB00BB;
- STICKLINE(XG2,10,20,1,0),COLORDD00DD;
- STICKLINE(XG2,10,20,0.3,0),COLORFF00FF;
- DRAWTEXT(XG2,10,'M买'),COLORFF00FF;
- SCA:=FILTER(CROSS(DEAW,DIFW) AND REF(DIFW,1)>0,13);
- STICKLINE(SCA,90,80,4,0),COLOR999900;
- STICKLINE(SCA,90,80,2,0),COLORBBBB00;
- STICKLINE(SCA,90,80,1,0),COLORDDDD00;
- STICKLINE(SCA,90,80,0.3,0),COLORFFFF00;
- DRAWTEXT(SCA,83,'M卖'),COLORFFFF00;
- STICKLINE(XG1 AND XG2,20,80,0.1,0 ),COLORFF00FF;
- DRAWTEXT(XG1 AND XG2,50,'K.M买'),COLORRED;
- DRAWTEXT(XG1 AND XG2,43,'全仓'),COLORRED;
- STICKLINE(SCD AND SCA,20,80,0.1,0 ),COLOR00FF00;
- DRAWTEXT(SCD AND SCA,50,'K.M卖'),COLORFF0000;
- DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
- DEA:=EMA(DIFF,9);
- TJ1:=DIFF>DEA;
- SA1:=DIFF<DEA;
- RSV:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;
- K:=SMA(RSV,3,1);
- D:=SMA(K,3,1);
- TJ2:=K>D;
- SA2:=K<D;
- LC:=REF(CLOSE,1);
- RSI1:=(SMA(MAX(CLOSE-LC,0),9,1))/(SMA(ABS(CLOSE-LC),9,1))*100;
- RSI2:=(SMA(MAX(CLOSE-LC,0),26,1))/(SMA(ABS(CLOSE-LC),26,1))*100;
- TJ3:=RSI1>RSI2;
- SA3:=RSI1<RSI2;
- LWR1:=SMA(RSV,3,1);
- LWR2:=SMA(LWR1,3,1);
- TJ4:=LWR1>LWR2;
- SA4:=LWR1<LWR2;
- BBI:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;
- TJ5:=CLOSE>BBI;
- SA5:=C<BBI;
- MTM:=CLOSE-REF(CLOSE,1);
- MMS:=100*EMA(EMA(MTM,9),9)/EMA(EMA(ABS(MTM),9),3);
- MMM:=100*EMA(EMA(MTM,26),12)/EMA(EMA(ABS(MTM),26),12);
- TJ6:=MMS>MMM;
- SA6:=MMS<MMM;
- TTJ:=TJ1 AND TJ2 AND TJ3 AND TJ4 AND TJ5 AND TJ6;
- TTJ0:=FILTER(TTJ,13);
- GOLD:=TTJ0;
- STICKLINE(GOLD,20,30,4,0),COLOR009999;
- STICKLINE(GOLD,20,30,2,0),COLOR00BBBB;
- STICKLINE(GOLD,20,30,1,0),COLOR00DDDD;
- STICKLINE(GOLD,10,30,0.3,0),COLOR00FFFF;
- DRAWTEXT(GOLD,33,'金指'),COLOR00FFFF;
- SAA:=SA1 AND SA2 AND SA3 AND SA4 AND SA5 AND SA6;
- SAA0:=FILTER(SAA,13);
- SAIL:=SAA0;
- STICKLINE(SAIL,80,70,4,0),COLOR990000;
- STICKLINE(SAIL,80,70,2,0),COLORBB0000;
- STICKLINE(SAIL,80,70,1,0),COLORDD0000;
- STICKLINE(SAIL,90,70,0.3,0),COLORFF0000;
- DRAWTEXT(SAIL,75,'指卖'),COLORFF0000;
{公式在线提供：www.gszx.com.cn}
上一篇：通达信优化的cci主图指标源码 下一篇：通达信比翼双飞副图指标源码
栏目导航 