找回密码
 立即注册

QQ登录

只需一步,快速开始

广告载入中...
查看: 7436|回复: 37

【转】私募操盘(通达信主副图源码)

    [复制链接]
发表于 2011-5-3 20:15 | |阅读模式

马上注册,享用更多功能,让你轻松玩转本论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
截图10.png
截图11.png
主图源码
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3,0),COLORAAAAAA;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3,0),COLORBBBBBB;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,0.3,0),COLORCCCCCC;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,0.0,0),COLORDDDDDD;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3,0),COLOR6666CC;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,3,0),COLOR7777DD;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,0.3,0),COLOR8888EE;
STICKLINE((CLOSE > OPEN),CLOSE,OPEN,0.0,0),COLOR9999FF;
STICKLINE((CLOSE > OPEN),OPEN,LOW,0.0,0),COLOR1199FF;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,0.0,0),COLOR1199FF;
STICKLINE((OPEN >= CLOSE),CLOSE,LOW,0.0,0),COLORCCCCCC;
Y:=SUMBARS(VOL,(CAPITAL * 1));
A:=(SUM(COST(20),Y) / Y);
A2:=(SUM(COST(10),Y) / Y);
A1:=(SUM(COST(30),Y) / Y);
A3:=(SUM(COST(40),Y) / Y);
A4:=(SUM(COST(50),Y) / Y);
A5:=(LLV(LOW,250) = LOW);
E:=BARSLAST(A5);
OK:((((((5 * A2) + (4 * A)) + (3 * A1)) + (2 * A3)) + A4) / 15),CIRCLEDOT,COLORRED ;
OK1:STICKLINE((CROSS(CLOSE,OK) AND (E >= 40)),OPEN,CLOSE,5,0) ;
E1:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RSV:=SMA(E1,3,1);
K:=SMA(RSV,3,1);
D:=((3 * RSV) - (2 * K));
J:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);
RSV12:=SMA(J,3,1);
K12:=SMA(RSV12,3,1);
D12:=((3 * RSV12) - (2 * K12));
J12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(J12,3,1);
K24:=SMA(RSV24,3,1);
D24:=((3 * RSV24) - (2 * K24));
支撑位:IF(CROSS(D,D24),LOW,REF(LOW,BARSLAST(CROSS(D,D24)))),LINETHICK1,COLOR80A810;
J24:=IF((CLOSE >= MA(CLOSE,N )),80,50);
U2L:=IF((CLOSE >= MA(CLOSE,RLN)),50,20);
L2L:=IF(((D > U2L) AND (REF(D,1) <= U2L)),LLV(REF(LOW,1),(BARSLAST(((D <= U2L) AND (REF(D,1) > U2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((D <= U2L) AND (REF(D,1) > U2L))) - 1)),BARSLAST(((D > U2L) AND REF(D,1)))));
RL1:=IF((LOW < L2L),HIGH,REF(HIGH,BARSLAST((LOW < L2L))));
RL4:=IF((LOW < L2L),D,REF(D,BARSLAST((LOW < L2L))));
抄底:IF((((LOW < RL1) AND (D > RL4)) AND (D > D24)),LOW,REF(LOW,BARSLAST((((LOW < RL1) AND (D > RL4)) AND (D > D24))))),COLOR10FF10;
RL42:=IF(((D < J24) AND (REF(D,1) >= J24)),HHV(REF(HIGH,1),(BARSLAST(((D >= J24) AND (REF(D,1) < J24))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((D >= J24) AND (REF(D,1) < J24))) - 1)),BARSLAST(((D < J24) AND REF(D,1)))));
RH1:=IF((HIGH > RL42),LOW,REF(LOW,BARSLAST((HIGH > RL42))));
RH4:=IF((HIGH > RL42),D,REF(D,BARSLAST((HIGH > RL42))));
压力位:IF(CROSS(D24,D),HIGH,REF(HIGH,BARSLAST(CROSS(D24,D)))),LINETHICK1,COLORFF6600;
拦顶:IF((((HIGH > RH1) AND (D < RH4)) AND (D < D24)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH1) AND (D < RH4)) AND (D < D24))))),COLOR10FFFF;
RH42:=((AMOUNT / VOL) / 100);
CB:=((RH42 > HIGH) OR (RH42 < LOW));
STICKLINE((CB < 1),(RH42 - 0.002),(RH42 + 0.002),6,1) ;
导航:MA(CLOSE,CB ),COLOR1010FF;
CD:=EMA(CLOSE,7);
VAR1:=EMA(CLOSE,21);
VAR2:=EMA(VAR1,7);
VAR3:=EMA(VAR2,27);
VAR4:=EMA(VAR1,100);
VAR5:=EMA(VAR4,100);
VAR6:=MA(CLOSE,5);
VAR7:=(((((CD > VAR1) AND (VAR1 > VAR2)) AND (VAR2 > VAR3)) AND (VAR3 > VAR4)) AND (VAR4 > VAR5));
VAR8:=(((((VAR1 > REF(VAR1,1)) AND (VAR2 > REF(VAR2,1))) AND (VAR3 > REF(VAR3,1))) AND (VAR4 > REF(VAR4,1))) AND (VAR5 > REF(VAR5,1)));
VAR9:=((((LOW + HIGH) + CLOSE) + OPEN) / 4);
VARA:=MA(CLOSE,34);
VARB:=MA(CLOSE,60);
VARC:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VARD:=((600 * (EMA(CLOSE,3) - EMA(LOW,30))) / EMA(LOW,30));
VARE:=EMA(VARD,7);
VARF:=LLV(LOW,34);
VAR10:=HHV(HIGH,34);
VAR11:=EMA((((VARC - VARF) / (VAR10 - VARF)) * 100),6);
VAR12:=EMA(((0.667 * REF(VAR11,1)) + (0.333 * VAR11)),4);
VAR13:=LLV(LOW,120);
VAR14:=HHV(HIGH,120);
VAR15:=(VAR14 - VAR13);
VAR16:=REF(CLOSE,1);
VAR17:=(((0 - 100) * (WINNER(((120 * CLOSE) / 100)) - WINNER(((100 * CLOSE) / 100)))) + 5);
VAR18:=((WINNER(((120 * CLOSE) / 100)) - WINNER(((100 * CLOSE) / 100))) * 100);
VAR19:=((SMA(MAX((CLOSE - VAR16),0),6,1) / SMA(ABS((CLOSE - VAR16)),6,1)) * 100);
VAR1A:=MA(VAR9,5);
VAR1B:=HHV(VAR1A,20);
VAR1C:=HHV(VAR1A,60);
VAR1D:=LLV(VAR1A,20);
VAR1E:=FORCAST(CLOSE,10);
VAR1F:=EMA((VAR1E * 1.05),3);
VAR20:=EMA((VAR1E * 0.95),4);
VAR21:=((100 * (CLOSE - VAR20)) / (VAR1F - VAR20));
DRAWTEXT((((((VAR18 + VAR17) < 7) AND CROSS(VARD,VARE)) AND (VARE < (0 - 18))) AND (VARE < VAR17)),(LOW - 0.2),'←短买') ;
DRAWTEXT(FILTER((((VAR8 AND VAR7) AND (COUNT((CD < REF(CD,1)),5) > 2)) AND (CD > REF(CD,1))),3),(LOW - 0.2),'←回补') ;
DRAWTEXT((((((COUNT((CLOSE < REF(CLOSE,1)),8) / 8) > 0.3) AND COUNT((VAR11 > VAR12),3)) AND (REF(LOW,1) = LLV(LOW,120))) AND (CLOSE > OPEN)),(LOW - 0.2),'←低买'),COLORFF0000;
DRAWTEXT((((REF(VAR21,1) > VAR21) AND (REF(VAR21,1) > 100)) AND (CLOSE > REF(CLOSE,1))),(HIGH + 0.2),'←短出'),COLORFFFF00;
DRAWTEXT(CROSS(84,VAR19),(HIGH + 0.2),'←高出1'),COLORRED;
DRAWTEXT(FILTER(((VAR1C > REF(VAR1C,1)) AND (VAR1D > REF(VAR1D,1))),5),(HIGH + 0.2),'←高出2'),COLORMAGENTA  ;
副图源码
V0:=(POW(MA(CLOSE,5),2) + MA(CLOSE,5));
V1:=(POW(MA(LOW,5),2) + MA(LOW,5));
V2:=(POW(MA(HIGH,5),2) + MA(HIGH,5));
V3:=((((V0 - LLV(V1,9)) / (HHV(V2,9) - LLV(V1,9))) * 150) + 65);
DK:(SMA(V3,3,1) * 1.5),COLORFFFFFF;
V4:=SMA(DK,3,1);
DJ:((3 * DK) - (2 * V4)),COLOR9000F5;
DD:=(REF(CLOSE,2) * 0.865);
C1:=(REF(CLOSE,13) * 0.772);
C2:=((100 * VOL) / CAPITAL);
波段介入:IF(((((CLOSE - MIN(DD,C1)) / CLOSE) < 0.1) AND ((SUM(C2,5) / 5) < 1.8)),160,100) ;
C3:=(HHV(HIGH,4) = HHV(HIGH,120));
STICKLINE((C3 > 0),305,295,8,0) ;
FXQ:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VV1:=LLV(LOW,5);
VV2:=HHV(HIGH,4);
VV3:=EMA((((FXQ - VV1) / (VV2 - VV1)) * 100),4);
VV4:=EMA(((0.667 * REF(VV3,1)) + (0.333 * VV3)),2);
DRAWTEXT(((CROSS(VV3,VV4) AND (VV3 < 50)) AND (VV3 > 29)),DK,'短进') ;
DRAWTEXT((CROSS(VV3,VV4) AND (VV3 < 30)),DK,'低吸'),COLOR898BFF;
DRAWTEXT((CROSS(VV4,VV3) AND (VV3 > 70)),DJ,'短出'),COLORBC9D00;
VV5:=(EMA(CLOSE,12) - EMA(CLOSE,26));
W1:=EMA(VV5,9);
W2:=(2 * (VV5 - W1));
W3:=REF(W2,1);
W4:=(CROSS(W3,W2) AND (W3 > 0));
DRAWTEXT(W4,DJ,'减磅'),COLORBCFF8B;
W5:=(MA(((100 * (CLOSE - LLV(CLOSE,34))) / (HHV(HIGH,34) - LLV(LOW,34))),5) - 20);
XX1:=(((HIGH + LOW) + CLOSE) / 3);
XX2:=((XX1 - MA(XX1,10)) / (0.015 * AVEDEV(XX1,10)));
XX3:=((XX1 - MA(XX1,30)) / (0.015 * AVEDEV(XX1,30)));
XX4:=IF(((((XX2 >= 150) AND (XX2 < 200)) AND (XX3 >= 150)) AND (XX3 < 200)),10,0);
XX5:=IF(((((XX2 <= (0 - 150)) AND (XX2 > (0 - 200))) AND (XX3 <= (0 - 150))) AND (XX3 > (0 - 200))),(0 - 10),XX4);
XX6:=IF((W5 > 0),W5,0);
预警系统:(IF((((XX3 >= 200) AND (XX2 >= 150)) OR CROSS(65,XX6)),10,IF(((XX3 <= (0 - 200)) AND (XX2 <= (0 - 150))),(0 - 15),XX5)) + 200) ;
300,COLORFF00F8;
100 ;

发表于 2014-12-29 12:01 |
谢谢楼主 无私的分享  辛苦

发表于 2014-12-28 17:27 |
谢谢楼主 无私的分享  辛苦
发表于 2015-1-11 22:28 |
私募操盘(通达信主副图源码)
发表于 2011-5-3 20:29 |
谢谢
发表于 2011-5-3 20:34 |
啥玩意,不准
z11111111111111111111111.gif
发表于 2011-5-3 20:42 |
11111111111111111111111111111111
发表于 2011-5-3 20:45 |
2222222222222222222222
发表于 2011-5-3 20:47 |
11111111111111111111111
发表于 2011-5-3 20:47 |
33333333333333333333
发表于 2011-5-3 20:53 |
【转】私募操盘(通达信主副图源码)
转载请注明出自股海明灯论坛 http://www.178448.com/,本贴地址:http://www.178448.com/thread-271973-1-1.html
发表于 2011-5-3 21:14 |
谢谢楼主分享~~
发表于 2011-5-3 21:29 |
多谢与之分享!
发表于 2011-5-3 21:46 |
ddddddddddddddddd
发表于 2011-5-3 21:55 |
谢楼主分享~~
发表于 2011-5-3 22:13 |
谢谢楼主分享~~
发表于 2011-5-3 22:45 |
这个指标有未来函数,不知道是否会漂移。
发表于 2012-3-22 08:36 |
谢谢楼主分享~~
本文来自: 股海明灯  详细文章参考:http://www.178448.com/forum.php? ... ;pre_pos=3&ext=

Archiver|手机版|小黑屋|股海明灯官网 ( 京ICP备18020431号 )

GMT+8, 2024-6-21 21:29 , Processed in 0.097785 second(s), Total 17, Slave 16 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表