筹码密集线+换手％成本 H1:hhv(high,11)*(1-4/100),COLORwhite,linethick4; H2:hhv(high,2)*(1-4/100),COLORblue,linethick1; {卖线:EMA(SLOPE(C,21)*21+C,42),COLORRED,LINETHICK2;} Var2:=简单移动平均(收盘价, 5); Var3:=简单移动平均(收盘价, 10); Var4:=简单移动平均(收盘价, 20); Var5:=简单移动平均(收盘价, 30); Var6:=(Var2+Var3+Var4+Var5)/4; Var7:=(Var6-向前引用(Var6, 15))/向前引用(Var6,15)*100; Var8:=(Var6-向前引用(Var6, 15))/向前引用(Var6, 15)*100; Var9:=指数平滑移动平均(Var7, 8); 反转:画柱线(Var9>1*向前引用(Var9, 1), 最高价,最低价,0.5,0), COLORwhite; 画柱线(Var9>1*向前引用(Var9, 1), 开盘价,收盘价,5,1), COLORwhite; 持股:画柱线(Var7>1*向前引用(Var7, 1), 最高价,最低价,0.5,0), COLORRED; 画柱线(Var7>1*向前引用(Var7, 1), 开盘价,收盘价,5,1), COLORRED; 持币:画柱线(Var7<1*向前引用(Var7, 1),最高价,最低价,0.5,0 ); 画柱线(Var7<1*向前引用(Var7, 1), 开盘价,收盘价,5,1); 洗盘:画柱线(Var7<1*向前引用(Var7, 1) AND Var9>1*向前引用(Var9, 1),最高价,最低价,0.5,0 ), COLORF00FF0; 画柱线(Var7<1*向前引用(Var7, 1) AND Var9>1*向前引用(Var9, 1), 开盘价,收盘价,5,1), COLORF00FF0; 平均价:=(最高价+4*最低价+开盘价+收盘价)/7; 均价差:= 指数平滑移动平均(平均价,13) - 指数平滑移动平均(平均价,34); 移动均价:= 指数平滑移动平均(均价差,5); 差:=(均价差-移动均价)*5; A:=条件函数(差>=1000 ,1000 ,条件函数(差<=平均价,平均价,差) ); 分水岭:=线性回归预测值(线性回归预测值(A,31),10); {分:forcast(forcast(A,31),10),linethick1,colorffff00;} ma6:=简单移动平均(收盘价,6); ma18:=简单移动平均(收盘价,18); ma55:=简单移动平均(收盘价,55); ma125:=简单移动平均(收盘价,125); ma250:=简单移动平均(收盘价,250); TY:=收盘价; A1:=向前引用(TY,10)=最高值(TY,2*10+1); B1:=信号过滤(A1,10); C1:=向前赋值(B1,10+1); HD:=信号过滤(C1,10); A2:=向前引用(TY,10)=最低值(TY,2*10+1); B2:=信号过滤(A2,10); C2:=向前赋值(B2,10+1); LD:=信号过滤(C2,10); AA:=向前引用(收盘价,上一次条件成立位置(HD)); B:=向前引用(收盘价,上一次条件成立位置(LD)); t11:=上一次条件成立位置(HD)<上一次条件成立位置(LD) AND 求逻辑非(HD) ; t21:=上一次条件成立位置(HD)>上一次条件成立位置(LD) AND 求逻辑非(LD); 波峰:条件函数(t11,AA,AA),ColorFF00FF,点状线; 画柱线(t11,AA,AA,9,0),ColorFF00FF; 波谷:条件函数(t21,B,B),Color80FF00,点状线; 画柱线(t21,B,B,9,0),Color80FF00; 买进价:=((收盘价-向前引用(ma6,1))/6+ma6)*1.004; 买进条件:=交叉函数(收盘价,买进价) and 买进价>向前引用(买进价,1); 白买进:条件函数(买进条件,最低价,最高价),COLORWHITE,点状线; 画柱线(买进条件,最高价,最低价,0,1),colorwhite,linethick2; 画柱线(买进条件,开盘价,收盘价,4,1),colorwhite,linethick2; 加码价:=((收盘价-向前引用(ma18,1))/18+ma18)*1.004; 加码条件:=交叉函数(收盘价,加码价) and 加码价>向前引用(加码价,1); 黄加码:条件函数(加码条件,最低价,最高价),coloryellow,点状线; 画柱线(加码条件,最高价,最低价,0,1),coloryellow,linethick2; 画柱线(加码条件,开盘价,收盘价,4,1),coloryellow,linethick2; DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)); B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA); DRAWICON(FILTER(B1>0,5),L*0.94,10); DRAWTEXT(FILTER(B1>0,5),L*0.94,'M底'),COLORGREEN;{MACD底背离} A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)); B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"); DRAWICON(FILTER(B2>0,5),L*0.96,10); DRAWTEXT(FILTER(B2>0,5),L*0.96,'K底'),COLORYELLOW;{KDJ底背离} A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)); B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2"); DRAWICON(FILTER(B3>0,5),L*0.98,10); DRAWTEXT(FILTER(B3>0,5),L*0.98,'R底'),COLORCYAN;{RSI底背离} C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)); D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF); DRAWICON(FILTER(D1>0,5),H*1.07,12); DRAWTEXT(FILTER(D1>0,5),H*1.07,'M顶'),COLOR0066FF;{MACD顶背离} C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)); D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K"); DRAWICON(FILTER(D2>0,5),H*1.05,12); DRAWTEXT(FILTER(D2>0,5),H*1.05,'K顶'),COLORRED;{KDJ顶背离} C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)); D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1"); DRAWICON(FILTER(D3>0,5),H*1.03,12); DRAWTEXT(FILTER(D3>0,5),H*1.03,'R顶'),COLORMAGENTA;{RSI顶背离} var31:=hhvbars(zig(3, 19)>ref(zig(3,19),1) and ref(zig(3,19), 1)<ref(zig(3,19), 2),0); 转折时间:var31+1,pointdot,colorff00ff,LINETHICK0; 时间窗:=0,colorwhite; stickline(var31=2,l*0.95,l*0.98,8,0),color0000ff; drawtext(var31=2,l*0.95,'3天'),coloryellow; stickline(var31=4,h*1.05,h*1.02,8,0),color9966ff; drawtext(var31=4,h*1.06,'5天'),coloryellow; stickline(var31=7,l*0.95,l*0.98,8,0),color00ffff; drawtext(var31=7,l*0.95,'8天'),coloryellow; stickline(var31=12,h*1.05,h*1.02,8,0),colorff33ff; drawtext(var31=12,h*1.06,'13天'),coloryellow; stickline(var31=20,l*0.95,l*0.98,8,0),color0066ff; drawtext(var31=20,l*0.95,'21天'),coloryellow; stickline(var31=33,h*1.05,h*1.02,8,0),colorffff00; drawtext(var31=33,h*1.06,'34天'),coloryellow; stickline(var31=54,l*0.95,l*0.98,8,0),color006600; drawtext(var31=54,l*0.95,'55天'),coloryellow; stickline(var31=88,h*1.05,h*1.02,8,0),color00ff00; drawtext(var31=88,h*1.06,'89天'),coloryellow; stickline(var31=143,l*0.95,l*0.98,8,0),colorccffff; drawtext(var31=143,l*0.95,'144天'),coloryellow; stickline(var31=232 ,h*1.05,h*1.02,8,0),colorff0033; drawtext(var31=232,h*1.06,'233天'),coloryellow; stickline(var31=376,l*0.95,l*0.98,8,0),colorff9966; drawtext(var31=376,l*0.95,'377天'),coloryellow; 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,Coloryellow; jg-aa1[DATACOUNT]/2,LINETHICK1,Colorred; Aa1:=SUMBARS(VOL,CAPITAL); 换手％成本:IF(CAPITAL>0,SUM(AMOUNT,Aa1)/SUM(VOL,Aa1)/100,EMA(CLOSE,120)),LINETHICK4,Colorgreen;{99.99%换手平均成本} IF(CAPITAL>0,SUM(AMOUNT,Aa1)/SUM(VOL,Aa1)/100,EMA(CLOSE,120)),LINETHICK1,Colorgred; |
