- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-12-16
|
|

楼主 |
发表于 2007-12-4 04:21
|
显示全部楼层
★解决混沌公式的问题★分形,GATOR,EO--大家分享
★解决混沌公式的问题★
分形--没有未来函数.
GATOR--的柱状是显示唇,齿,颚之间活动的关系,齿显示后走势5根的问题.
EO--变色线显示推进浪,规避调整浪.
---大家分享
{鳄鱼线}
Y:=(HIGH+LOW)/2;
上唇:SMA(Y,5,1),SHIFT3,COLORGREEN;
牙齿:SMA(Y,8,1),SHIFT5,COLORRED;
下鄂:SMA(Y,13,1),SHIFT8,COLORFF6600;
{分形- 没有未来函数}
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF( LOW=LLV( LOW,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2), REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
上分形:IF(HIGH>=MA(CLOSE,3),UL,REF(UL,BARSLAST(HIGH>MA(CLOSE,3)))),LINETHICK0,COLORMAGENTA;{分形数字}
下分形:IF( LOW<=MA(CLOSE,3),DL,REF(DL,BARSLAST(LOW<=MA(CLOSE,3)))),LINETHICK0,COLORYELLOW;
STICKLINE(BARSLAST(ABS(上分形-REF(上分形,1)))<BARSLAST(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1)),上分形,上分形,5,1),LINETHICK1,COLORMAGENTA;{分形横线}
STICKLINE(BARSLAST(ABS(下分形-REF(下分形,1)))<BARSLAST(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1)),下分形,下分形,5,1),LINETHICK1,COLORYELLOW;
DRAWICON(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1),HIGH*1.015,4);{箭头突破分形}
DRAWICON(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1),LOW*0.99,5);
{AOAC-K区域}
Var1:=(HIGH+LOW)/2;
AO:=MA(Var1,5)-MA(Var1,34);
AC:=AO-MA(AO,5);
VF:=AO>REF(AO,1) AND AC>REF(AC,1),COLORRED;
VG:=AO<REF(AO,1) AND AC<REF(AC,1),COLORGREEN;
VH:=AO>REF(AO,1) AND AC<REF(AC,1),COLORGRAY;
VI:=AO<REF(AO,1) AND AC>REF(AC,1),COLORGRAY;
VJ:=VH OR VI;
STICKLINE(VF AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORRED;
STICKLINE(VF AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORRED;
STICKLINE(VF,HIGH,LOW,1,0),COLORRED;
STICKLINE(VG AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORGREEN;
STICKLINE(VG AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORGREEN;
STICKLINE(VG,HIGH,LOW,1,0),COLORGREEN;
STICKLINE(VJ AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORGRAY;
STICKLINE(VJ AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORGRAY;
STICKLINE(VJ,HIGH,LOW,1,0),COLORGRAY;
{平衡线}
P1:=REF(HIGH,1)>HIGH AND REF(HIGH,1)>下鄂;
平衡线买:REF(REF(HIGH,1),BARSLAST(p1)),LINETHICK0,COLORWHITE;
STICKLINE(CROSS(HIGH,平衡线买) AND LOW>平衡线买,(HIGH+LOW)/2,(HIGH+LOW)/2,12,0),LINETHICK1,COLORWHITE;
STICKLINE(CROSS(HIGH,平衡线买) AND LOW<=平衡线买,平衡线买,平衡线买,12,0),LINETHICK1,COLORWHITE;
P2:=REF(LOW,1)<LOW AND REF(LOW,1)<下鄂;
平衡线卖:REF(REF(LOW,1),BARSLAST(p2)),LINETHICK0,COLORCYAN;
STICKLINE(CROSS(平衡线卖,LOW) AND HIGH<平衡线卖,(HIGH+LOW)/2,(HIGH+LOW)/2,12,0),LINETHICK1,COLORCYAN;
STICKLINE(CROSS(平衡线卖,LOW) AND HIGH>=平衡线卖,平衡线卖,平衡线卖,12,0),LINETHICK1,COLORCYAN;
{AO,AC方向}
AO:=MA(Y,5)-MA(Y,34);
AC:=AO-MA(AO,5);
DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC>REF(AC,1),Y,'↑AO↑AC'),SHIFT1,COLORRED;
DRAWTEXT(ISLASTBAR AND AO<REF(AO,1) AND AC<REF(AC,1),Y,'↓AO↓AC'),SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC<REF(AC,1),Y,'↑AO↓AC'),SHIFT1,COLORWHITE;
DRAWTEXT(ISLASTBAR AND AO<REF(AO,1) AND AC>REF(AC,1),Y,'↓AO↑AC'),SHIFT1,COLORWHITE;
{GATOR}
var1:=(HIGH+LOW)/2;
颚:=SMA(var1,13,1),LINETHICK0;
齿:=SMA(var1,8,1),LINETHICK0;
唇:=SMA(var1,5,1),LINETHICK0;
齿颚:IF(齿>颚,齿-颚,颚-齿),LINETHICK0;
齿唇:IF(齿<唇,齿-唇,唇-齿),LINETHICK0;
STICKLINE(齿颚<REF(齿颚,1),0,齿颚,6,1),SHIFT5,COLORGREEN;
STICKLINE(齿颚>REF(齿颚,1),0,齿颚,6,1),SHIFT5,COLORRED;
STICKLINE(齿唇>REF(齿唇,1),0,齿唇,6,1),SHIFT3,COLORGREEN;
STICKLINE(齿唇<REF(齿唇,1),0,齿唇,6,1),SHIFT3,COLORRED;
{EO}
Y:=(LOW+HIGH)/2;
E:=EMA(EMA(Y,5)-EMA(Y,34),2);
EO:EMA(E,1),COLORGREEN;
0,LINEDOT;
PARTLINE(EO>REF(EO,1),EO),COLORRED,LINETHICK2; |
-
参与人数 1 | 奖励 +10 |
热心 +1 |
时间 |
理由
|
qxz_nh
| + 10 |
+ 1 |
2007-12-5 23:53 |
帖子很棒,加分鼓励,期待您更多优秀帖 ... |
查看全部评分
|
|