三平顶、底宝塔成本均线+筹码密集峰价位
三平顶、底宝塔成本均线+筹码密集峰价位
close2:=收盘价;h2:=最高价;l2:=最低价;o2:=开盘价; ma1:简单移动平均(收盘价,2),colorff00ff; ma2:简单移动平均(收盘价,5),color00ff00;
B1:=向前引用(close2,1);B2:=向前引用(close2,2); SS:=条件函数(close2>向前引用(close2,1)
AND 向前引用(close2,1)>=向前引用(close2,2),1,条件函数(收盘价<向前引用(close2,1) AND
向前引用(close2,1)<=向前引用(close2,2),-1,条件函数(close2>向前引用(close2,2) AND
向前引用(close2,2)>向前引用(close2,1),2,条件函数(close2<向前引用(close2,2) AND
向前引用(close2,2)<向前引用(close2,1),-2,0)))); SM:=条件函数(向前引用(SS,1)<>0,向前引用(SS,1),条件函数(向前引用(SS,2)<>0,向前引用(SS,2),条件函数(向前引用(SS,3)<>0,向前引用(SS,3),条件函数(向前引用(SS,5)<>0,向前引用(SS,5),条件函数(向前引用(SS,6)<>0,向前引用(SS,6),条件函数(向前引用(SS,7)<>0,向前引用(SS,7),0)))))); mc:条件函数(向前引用(SS,1)<>0,B2,条件函数(SM>0,最小值(B1,B2),最大值(B1,B2))),COLOR000000; 画柱线(SS=1
OR SM>=1 AND SS=0,B1,close2,6,0),COLOR0000ff; 画柱线(SS=-1 OR SM<=-1 AND
SS=0,B1,close2,6,0),COLOR00FF00; 画柱线(SS=2,B2,收盘价,6,0),COLORRED; 画柱线(SS=-2,B2,收盘价,6,0),COLOR00FF00; 画柱线((SS=-1
OR SS=-2) AND SM>0,B2,B1,6,0),COLORRED; 画柱线((SS=1 OR SS=2) AND
SM<0,B2,B1,6,0),COLOR00FF00; aa:=收盘价 > 向前引用(收盘价, 1) and 向前引用(收盘价, 1)
> 向前引用(收盘价, 2) and 向前引用(收盘价, 1) < 向前引用(收盘价, 3) and 条件函数(向前引用(收盘价, 3) <
向前引用(收盘价, 4), 1, 条件函数(向前引用(收盘价, 4) < 向前引用(收盘价, 5),向前引用(收盘价, 1) < 向前引用(收盘价,
4) or( 向前引用(收盘价, 2) < 向前引用(收盘价, 4) and 向前引用(收盘价, 3) >= 向前引用(收盘价, 5)
),条件函数(向前引用(收盘价, 5) < 向前引用(收盘价, 6), 1,向前引用(收盘价, 6) < 向前引用(收盘价,
7)))); bb:=收盘价 < 向前引用(收盘价, 1) and 向前引用(收盘价, 1) < 向前引用(收盘价, 2) and
向前引用(收盘价, 1) > 向前引用(收盘价, 3) and 条件函数(向前引用(收盘价, 3) > 向前引用(收盘价, 4), 1,
条件函数(向前引用(收盘价, 4) > 向前引用(收盘价, 5),向前引用(收盘价, 1) > 向前引用(收盘价, 4) or( 向前引用(收盘价,
2) > 向前引用(收盘价, 4) and 向前引用(收盘价, 3) <= 向前引用(收盘价, 5) ),条件函数(向前引用(收盘价, 5)
> 向前引用(收盘价, 6), 1,向前引用(收盘价, 6) > 向前引用(收盘价, 7)))); 画图标(aa and
收盘价>向前引用(开盘价,2),最低价,1); 画图标(bb and
收盘价<向前引用(收盘价,2),最高价*1.01,2); 显示文字(aa and
收盘价>向前引用(开盘价,2),最低价*0.995,'三平底翻红'),color00ffff; 显示文字(bb and
收盘价<向前引用(收盘价,2),最高价*1.01,'三平顶翻绿'),color00ff00; {三平底翻红选股:if(aa and
close>ref(open,2),1,0); 三平顶翻绿选股:if(bb and
close<ref(close,2),1,0);} ll:=COST(0); hh:=COST(100); aa1:=(hh-ll)/100;//把区间分成100份 tm1:=WINNER(ll[DATACOUNT]+aa1[DATACOUNT]); tm:=tm1[DATACOUNT]; dyjw[1]:=ll[DATACOUNT]+aa1[DATACOUNT]; for
k=2 to 100 do
begin dyjw[k]:=(ll[DATACOUNT]+k*aa1[DATACOUNT]); dyhlp:=WINNER(dyjw[k]); hlp:=dyhlp-tm1; tm1:=dyhlp; IF
hlp[DATACOUNT]>tm then
begin tm:=hlp[DATACOUNT]; jg:=dyjw[k]; end; end; 筹码密集峰价位:jg-aa1[DATACOUNT]/2,LINETHICK4; jg-aa1[DATACOUNT]/2,LINETHICK1,Colorwhiter;
Aa1:=SUMBARS(VOL,CAPITAL); 换手%成本:IF(CAPITAL>0,SUM(AMOUNT,Aa1)/SUM(VOL,Aa1)/100,EMA(CLOSE,120)),LINETHICK4,ColorFFE9E9;{100%换手平均成本} IF(CAPITAL>0,SUM(AMOUNT,Aa1)/SUM(VOL,Aa1)/100,EMA(CLOSE,120)),LINETHICK1,Colorblue; AA:=(EMA(SUMBARS(V,CAPITAL)*0.1,3)+MA(SUMBARS(V,CAPITAL)*0.2,5)+MA(SUMBARS(V,CAPITAL)*0.3,8)+MA(SUMBARS(V,CAPITAL)*0.4,13))/4; A1:=FORCAST(IF(CAPITAL>0,SUM(AMOUNT,AA)/SUM(V,AA)/100,EMA(C,3)),3); 半年成本:EMA(A1,152),LINETHICK4,Color0000FF; EMA(A1,152),LINETHICK1,Coloryellow; 年成本:EMA(A1,246),LINETHICK4,ColorFF0000; EMA(A1,246),LINETHICK1,Colorgreen; | |
|