股票行情+个股解答
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[大智慧I] 请高手指正、校正两个指标，改成大智慧能用的，万分感谢！！请各位帮忙顶上去啊！！

陈锋

初入股市

Rank: 1

帖子
47 
积分
0 
红币
42  
1# 大 中 小 发表于 2008-7-31 23:12  只看该作者

请高手指正、校正两个指标，改成大智慧能用的，万分感谢！！请各位帮忙顶上去啊！！

指标1：MID:EMA(CLOSE,17),LINETHICK1,colorFFFFFF;

UPPER:MID+2*STD(CLOSE,17),LINETHICK1,color0000FF;

LOWER:MID-2*STD(CLOSE,17),LINETHICK1,color00CC00;

UPPERO:MID+3*STD(CLOSE,17),LINETHICK1,colorFF00FF;

LOWERO:MID-3*STD(CLOSE,17),LINETHICK1,color00AA00;

VARA:=MD(CLOSE,20);

Var1:if(VARA>REF(VARA,2),VARA,if(VARA<REF(VARA,2),VARA,VARA)),color00ff00;

PARTLINE(VARA>REF(VARA,2),VARA),LINETHICK2,colorFF00FF;

PARTLINE(VARA=REF(VARA,2),VARA),LINETHICK2,colorFF0000;

PARTLINE(VARA<REF(VARA,2),VARA),LINETHICK2,color00FF00;

买入:if(VARA>REF(VARA,2) and ref(VARA<=REF(VARA,2),1),1,0),LINETHICK0,coloraaaaaa;

DRAWICON(CROSS(LOW,LOWERO),LOWERO*0.96,6),ALIGN0;//红宝石

DRAWICON(CROSS(HIGH,UPPERO),HIGH,7),ALIGN2;//绿宝石

KLINE(O,H,L,C,0)
指标2：inputONG(26,20,100),SHORT(12,5,40),M(9,2,60);

DIFF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));

DEA:=EMA(DIFF,M);

MACD2:=(2 * (DIFF - DEA));

VERTLINE(((CLOSE < 0) AND CROSS(DIFF,0))),color80;

VERTLINE(((CLOSE < 0) AND CROSS(MACD2,0))),color80;

VERTLINE(((CLOSE < 0) AND CROSS(0,DIFF))),color808080;

VERTLINE(((CLOSE < 0) AND CROSS(0,MACD2))),color808080;

DU0:=CROSS(DIFF,0);

UD0:=CROSS(0,DIFF);

TDU0:=BARSLAST(DU0);

TUD0:=BARSLAST(UD0);

DU3:=REF(DU0,1);

UD3:=REF(UD0,1);

TDU3:=BARSLAST(DU3);

TUD3:=BARSLAST(UD3);

UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));

JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));

JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));

JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));

JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));

JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));

JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));

JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));

JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));

BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));

DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0,10),ALIGN4;

DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,11),ALIGN5;

STICKLINE((MACD2 >= 0),0,MACD2,6,1),colorFF;

STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,6,0),colorFF;

STICKLINE((MACD2 < 0),0,MACD2,6,0),colorFFFF00;

STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,6,1),colorFFFF00;

DIFIFF,LINETHICK2,colorFFFF;

MACDEA,colorFF00;

DEF:MACD2,LINETHICK0,colorFFFF00;

STICKLINE((CLOSE > 0),0,0,10,0),color808080;

DEFUT:=BARSLAST(CROSS(MACD2,0));

DEFDT:=BARSLAST(CROSS(0,MACD2));

DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));

DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));

DEFU2L:=REF(DEFUL,(DEFUT + 1));

DEFD2L:=REF(DEFDL,(DEFDT + 1));

DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,5);

DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);

DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,12);

DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,12);

EXPLAIN(JDU2,'注意长线趋势空转多');

EXPLAIN(JUD2,'注意长线趋势多转空');

EXPLAIN((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'长线为多头趋势');

EXPLAIN((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'长线为空头趋势');

EXPLAINEX((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'MACD多头防守价',BSLINE,2,1);

EXPLAINEX((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'MACD空头防守价',BSLINE,2,1);

EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (CLOSE < BSLINE)),'防守价跌破：多头小心');

EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (CLOSE > BSLINE)),'防守价突破：空头小心');

EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND CROSS(MACD2,0)),'空头注意今明两日高点压力\n找日落K线放空，用线控盘');

EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND CROSS(0,MACD2)),'多头注意今明两日低点支撑\n找日出K线做多，用线控盘');

EXPLAIN(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),'DEF柱状特殊研判\n空头注意今明两日高点压力');

EXPLAIN(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),'DEF柱状特殊研判\n多头注意今明两日低点支撑');

EXPLAINEX((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'空头注意压力',HHV(HIGH,2),2,1);

EXPLAIN((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'找日落K线放空，用线控盘');

EXPLAINEX((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'多头注意支撑',LLV(LOW,2),2,1);

EXPLAIN((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'找日出K线进场，用线控盘');

EXPLAIN(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),'请注意DEF柱状缩头');

EXPLAIN(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),'请注意DEF柱状缩脚');

[ 本帖最后由 陈锋 于 2008-7-31 23:20 编辑 ]

TOP

tanglong

散户

Rank: 2

帖子
257 
积分
68 
红币
1370  

奉献勋章 热情勋章

2# 大 中 小 发表于 2008-7-31 23:37  只看该作者
指标2——含有大量的未来函数，最好别用。
试试这个

修正 MACD   （大智慧辅图）

DIFF:EMA(CLOSE,12)-EMA(CLOSE,23);
DEA:EMA(DIFF,8),COLORFFFF00;
MACDDIFF-DEA)*2;

STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,1,0),COLORRED;
STICKLINE(MACD>=0 AND MACD<=REF(MACD,1),0,MACD,1,0),COLORGREEN;
STICKLINE(MACD<=0 AND MACD>=REF(MACD,1),0,MACD,1,0),COLORFF00FF;
STICKLINE(MACD<=0 AND MACD<=REF(MACD,1),0,MACD,1,0),COLOR00FFFF;

多转空:=((((LLV(MACD,4)>0) AND (MACD<REF(MACD,1))) AND (REF(MACD,1)>REF(MACD,2))) AND (REF(MACD,2)>REF(MACD,3)));
空转多:=((((HHV(MACD,4)<0) AND (MACD>REF(MACD,1))) AND (REF(MACD,1)<REF(MACD,2))) AND (REF(MACD,2)<REF(MACD,3)));
DRAWICON(多转空,MACD,2);
DRAWICON(空转多,MACD,1);
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,DEA,'  低位金叉'),COLORFF00FF;
{STICKLINE(低位金叉,0,0.3,8,0),COLORYELLOW;
DRAWICON(低位金叉,0.3,1)}JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.2,2,0),COLORFF00FF;
DRAWTEXT(二次金叉,DEA*1.06,'二次金叉'),COLORRED;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
{STICKLINE(底背离,0.5,0.8,2,0),COLORRED}DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK3;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK3;

TOP

陈锋

初入股市

Rank: 1

帖子
47 
积分
0 
红币
42  
3# 大 中 小 发表于 2008-8-1 11:02  只看该作者

回复 1# 的帖子

顶上去啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TOP

陈锋

初入股市

Rank: 1

帖子
47 
积分
0 
红币
42  
4# 大 中 小 发表于 2008-8-2 20:37  只看该作者

回复 1# 的帖子

哪个高手帮忙来改改啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TOP

tanglong

散户

Rank: 2

帖子
257 
积分
68 
红币
1370  

奉献勋章 热情勋章

5# 大 中 小 发表于 2008-8-2 22:09  只看该作者
第一个公式
红绿宝石    自己试试吧
MID:EMA(CLOSE,17),LINETHICK1,colorFFFFFF;
UPPER:MID+2*STD(CLOSE,17),LINETHICK1,color0000FF;
LOWER:MID-2*STD(CLOSE,17),LINETHICK1,color00CC00;
UPPERO:MID+3*STD(CLOSE,17),LINETHICK1,colorFF00FF;
LOWERO:MID-3*STD(CLOSE,17),LINETHICK1,color00AA00;
VARA:=(CLOSE);20;MID;
Var1:if(VARA>REF(VARA,2),VARA,if(VARA<REF(VARA,2),VARA,VARA)),color00ff00;
STICKLINE(VARA>REF(VARA,2),VARA,0,0,0),LINETHICK2,colorFF00FF;
STICKLINE(VARA=REF(VARA,2),VARA,0,0,0),LINETHICK2,colorFF0000;
STICKLINE(VARA<REF(VARA,2),VARA,0,0,0),LINETHICK2,color00FF00;
买入:if(VARA>REF(VARA,2) and ref(VARA<=REF(VARA,2),1),1,0),LINETHICK0,coloraaaaaa;
DRAWICON(CROSS(LOW,LOWERO),LOWERO*0.96,6),;
DRAWICON(CROSS(HIGH,UPPERO),HIGH,7),;

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题