“佛引线”源码(大智慧),数字均线+筹码堆积主图(大智慧)
admin888
|“佛引线”源码(大智慧),数字均线+筹码堆积主图(大智慧)
“佛引线”源码(大智慧)
{佛引线参数}拉升力:=(CLOSE-LLV(LOW,28))/(HHV(HIGH,30)-LLV(LOW,36))*0.6*CLOSE;
拉升力A:=SMA(拉升力,6.3,1);
波峰波谷:=Sma(拉升力A,3,1);
拉升力B:=3*拉升力A-2.1*波峰波谷;
空方:=3*波峰波谷-1* 拉升力A;
后世趋势线:IF(空方>拉升力B,拉升力B,空方),LINETHICK0,COLOR61FE78;
{后世趋势线变色}partline(后世趋势线,后世趋势线>=ref(后世趋势线,1) and 后世趋势线>=12,rgb(255,56,51),
后世趋势线>=ref(后世趋势线,1) and 后世趋势线>=9,rgb(255,91,51),
后世趋势线>=ref(后世趋势线,1) and 后世趋势线>=6,rgb(255,115,51),
后世趋势线>=ref(后世趋势线,1) and 后世趋势线>=3,rgb(255,160,51),
后世趋势线>=ref(后世趋势线,1) and 后世趋势线>=0,rgb(255,240,51),
后世趋势线=12,rgb(62,51,255),
后世趋势线=9,rgb(51,75,255),
后世趋势线=6,rgb(51,95,255),
后世趋势线=3,rgb(51,113,255),
后世趋势线=0,rgb(51,150,255)),linethick5;
{窗口提示文字}DRAWMOVETEXT(后世趋势线>ref(后世趋势线,1) and 后世趋势线>=0 and 后世趋势线<3, '五世恶报还,南海神光引 !一级浮屠起,今世好做人 !'),COLOR85FED3;
DRAWMOVETEXT(后世趋势线>ref(后世趋势线,1) and 后世趋势线>=3 and 后世趋势线<6, '今生弃恶行,佛光引善缘 !三级浮屠升,扬善多积德 !'),COLOR87F3FC;
DRAWMOVETEXT(后世趋势线>ref(后世趋势线,1) and 后世趋势线>=6 and 后世趋势线<9, '大舍小我明,诸佛佑前路 !五级浮屠来,行善多造福 !'),COLOR6ADAFB;
DRAWMOVETEXT(后世趋势线>ref(后世趋势线,1) and 后世趋势线>=9 and 后世趋势线<12, '色空悟有通,十方世界观 !六级浮屠到,施善多得缘 !'),COLOR78B8FE;
DRAWMOVETEXT(后世趋势线>ref(后世趋势线,1) and 后世趋势线>=12, '四大皆空呈,西方极乐近 !七级浮屠至,善恶一念间 !'),COLOR939BFF;
DRAWMOVETEXT(后世趋势线=12, '造孽终有报,十八炼狱到 !始起拨舌狱,首尝钳舌苦 !'),COLORFF88ac;
DRAWMOVETEXT(后世趋势线=9 and 后世趋势线<12, '前世为恶多,地狱来报还 !七入刀山狱,血溅利刃峰 !'),COLORFD948E;
DRAWMOVETEXT(后世趋势线=6 and 后世趋势线<9, '弃善从恶行,来此地狱还 !十四枉死狱,弃命枉为人 !'),COLORF89A67;
DRAWMOVETEXT(后世趋势线=3 and 后世趋势线<6, '行恶罪深重,坠入地狱赎 !十七石磨狱,碎身重塑人 !'),COLORFFBB77;
DRAWMOVETEXT(后世趋势线=0 and 后世趋势线<3, '前世作孽深,十八地狱炼 !末层刀锯狱,恶去将孽尽 !'),COLORFFCC62;
数字均线+筹码堆积主图(大智慧)
//数字均线+成交堆积DRAWGBK(DATE>900101,COLORRGB(95,95,95),COLORRGB(0,0,0),1);
a0:=BARSCOUNT(c);
a3:=SYSPARAM(3);
a2:=SYSPARAM(2);
a4:=SYSPARAM(4);
a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/8;
hh2:=hh1/4;
ll1:=llv(l,nn0);l
L2:=ll1[a3];
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOst(if(ISLASTBAR,sum(c1,nn0),0),2)),LINETHICK;
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/nn0 and nn>=0;
x2:=v2/av0>=nn/nn0 and nn>=0;
x3:=v3/av0>=nn/nn0 and nn>=0;
x4:=v4/av0>=nn/nn0 and nn>=0;
x5:=v5/av0>=nn/nn0 and nn>=0;
x6:=v6/av0>=nn/nn0 and nn>=0;
x7:=v7/av0>=nn/nn0 and nn>=0;
x8:=v8/av0>=nn/nn0 and nn>=0;
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+hh1*0.5),Color003CB7;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+hh1*0.5),Color808000;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+hh1*0.5),Color8B4D43;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+hh1*0.5),Color1B3D70;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+hh1*0.5),Color00AEAE;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+hh1*0.5),color666666;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+hh1*0.5),color666666;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+hh1*0.5),color666666;
DRAWNUMBER(FILTER(refx(x10,10),a4,a4-0*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x20,10),(a4-1*hh1),a4-1*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x30,10),(a4-2.7*3*hh2),a4-2*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x40,10),(a4-12*hh2),a4-3*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x50,10),(a4-16*hh2),a4-4*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x60,10),(a4-20*hh2),a4-5*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x70,10),(a4-24*hh2),a4-6*hh1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x80,5),10),ll2+1*4*hh2,a4-7*hh1,2),COLOR00FF00;
指导线:=ema((EMA(C,4)+EMA(C,6)+EMA(C,12)+EMA(C,24))/4,2),linethick0,Color00ffFF,LINEDOT;
界:= MA(CLOSE,21),linethick0,ColorFEBAF5;
上限: 界+3*STD(C,20),linethick0,Color00FFFF;
卖: 界+2*STD(C,20),linethick0,ColorFF00FF;
买: 界-2*STD(C,20),linethick0,ColorF0FF00;
下限: 界-2.9*STD(close,20),linethick0,Color00FF00;
DRAWICON(H>=上限,h,10),ALIGN0,pxup15;
DRAWICON(cross(H,上限),h,12),ALIGN0;
DRAWTEXT(cross(H,上限),H,#39; ̄'),ALIGN0,Color00ffff;
DRAWICON(cross(上限,H),h,5),ALIGN0;
DRAWTEXT(cross(上限,H),H,#39; ̄'),ALIGN0,Color00ffff;
DRAWICON(cross(H,卖),h,5),ALIGN0;
DRAWTEXT(cross(H,卖),H,#39; ̄'),ALIGN0,Colorff00ff;
DRAWTEXT(cross(C,卖),H,#39; ̄'),ALIGN0,Colorff0000;
DRAWICON(cross(C,卖),h,5),ALIGN0;
DRAWTEXT(cross(下限,L),l,#39;跟'),ALIGN0,Color00ff00;
DRAWTEXT(cross(下限,L),l,#39; ̄'),ALIGN0,Color00ff00;
DRAWTEXT(cross(买,L),l,#39;△'),ALIGN0,Colorffff00;
DRAWTEXT(cross(买,L),l,#39; ̄'),ALIGN0,Colorffff00;
DRAWTEXT(cross(买,C),L,#39;▲'),ALIGN0,Colorffff00;
DRAWTEXT(cross(买,C),L,#39; ̄'),ALIGN0,Colorffff00;
STICKLINE(C>=O,C,O,7,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,5,0),COLOR0000cc;
STICKLINE(C>=O,C,O,4,0),COLOR0000DD ;
STICKLINE(C>=O,C,O,3,0),COLOR0000ee;
STICKLINE(C>=O,C,O,2,0),COLOR0000FF;
STICKLINE(C>=O,C,O,1,0),COLOR0000ff;
STICKLINE(C>=O,H,L,0,0),COLORRED;
STICKLINE(C<=O,C,O,7,0),Coloraaaa00;
STICKLINE(C<=O,C,O,6,0),Colorbbbb00;
STICKLINE(C<=O,C,O,5,0),Colorcccc00;
STICKLINE(C<=O,C,O,4,0),Colordddd00;
STICKLINE(C<=O,C,O,3,0),Coloreeee00;
STICKLINE(C<=O,C,O,2,0),COLORffff00;
STICKLINE(C<=O,C,O,1,0),Colorffff00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,7,0),color00AAAA;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,5,0),color00CCCC;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,3,0),color00EEEE;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,1,0),coloryellow;//当
涨幅大于3--5%,要主图k线的实体的一半变为另一色。DH:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
STICKLINE(DH<=-4,(c+o)/2,c,7,0),colorAA0000;
STICKLINE(DH<=-4,(c+o)/2,c,5,0),colorCC0000;
STICKLINE(DH<=-4,(c+o)/2,c,3,0),colorEE0000;
STICKLINE(DH<=-4,(c+o)/2,c,1,0),colorFF0000;//当
跌幅大于3-4-5%,要主图K线的实体的一半变为另一色。
Mb5:MA(CLOSE,5),ColorFFFfff,linethick1;
Mb10:MA(CLOSE,10),Color00Ffff,linethick1;
Mb20:MA(CLOSE,20),Color00ff00,linethick1;
Mb30:MA(CLOSE,30),Colorff00ff,linethick1;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),4);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),5);
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.98),#39;B '),color4440FF;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.016),#39;S '),colorFFFF34;
x6:=REF(CLOSE,1);
x7:=SMA(MAX(CLOSE-x6,0),7,1)/SMA(AbsCLOSE-x6),7,1)*100;
x8:=CROSS(79,x7);
x9:=FILTER(x8,4);
DRAWTEXT(x9,HIGH*1.02,#39;←
出货'),Color9000F5;
mtm:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(filter(买=1,5),LOW-0.03,#39;。买'),COLORRED;
均价:=(CLOSE+HIGH+LOW+LOW)/4;
p:=EMA(均价,9);
q:=EMA(REF(p,1),3);
换手:=1000*vol/capital;
close3:=ref(close,3);
close5:=ref(close,5);
close7:=ref(close,7);
close8:=ref(close,8);
close13:=ref(close,13);
close21:=ref(close,21);
jc:=(ref(c,3)+ref(c,5)+ref(c,7)+ref(c,8)+ref(c,13)+ref(c,21))/6;
参考价:=sma(jc,5,1),colorffccff;
aa:=if(c>=ref(c,3),1,0);
bb:=if(c>=ref(c,5),1,0);
cc:=if(c>=ref(c,7),1,0);
dd:=if(c>=ref(c,8),1,0);
ee:=if(c>=ref(c,13),1,0);
ff:=if(c>=ref(c,21),1,0);
gz2:=aa+bb+cc+dd+ee+ff;
s:=ma(c,1);
DRAWNUMBER(c>0,s,gz2,0),colorwhite;{ffccff}
牛市通网是一个牛股推荐网与低风险投资知识网,可以在线联系客服领取牛股。牛市通网从权威的投资专家、金融分析师等投资信息中挑选优质的文章进行发布。牛市通网主要为投资者提供股票知识、股票观点、股票分析和明智金融投资讨论等信息。