|
時(shí)空價(jià)量,笑口常開(kāi) .....新版
INPUT:N(5);//量柱高度調(diào)節(jié)！
x:=SYSPARAM(5)-(SYSPARAM(4)-SYSPARAM(5)+MINDIFF)/n; y:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)+1); yvb:=y[SYSPARAM(3)]/(SYSPARAM(5)-x+MINDIFF)*0.5; z:=VOL/yvb+x; 五日均量:=MA(z,5); 十日均量:=MA(z,10); partline(1,五日均量); partline(1,十日均量); //雙向成交 AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 主動(dòng)買(mǎi)盤(pán):=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); zdmp:=主動(dòng)買(mǎi)盤(pán)/yvb+x; STICKLINE(1,x,z,7,0)COLORFFAA00; STICKLINE(1,x,z,6,0)COLORFFBB11; STICKLINE(1,x,z,5,0)COLORFFCC22; STICKLINE(1,x,z,4,0)COLORFFDD33; STICKLINE(1,x,z,3,0)COLORFFEE44; STICKLINE(1,x,z,2,0)COLORFFFF55; STICKLINE(1,x,z,1.5,0)COLORFFFF66; STICKLINE(1,x,z,1,0)COLORFFFF77; STICKLINE(1,x,z,0.5,0)COLORFFFF88; STICKLINE(1,x,zdmp,7,0),COLORAA00BB; STICKLINE(1,x,zdmp,6,0),COLORBB11BB; STICKLINE(1,x,zdmp,5,0),COLORCC22BB; STICKLINE(1,x,zdmp,4,0),COLORDD33BB; STICKLINE(1,x,zdmp,3,0),COLOREE44BB; STICKLINE(1,x,zdmp,2,0),COLORFF55BB; STICKLINE(1,x,zdmp,1.5,0),COLORFF66BB; STICKLINE(1,x,zdmp,1,0),COLORFF77BB; STICKLINE(1,x,zdmp,0.5,0),COLORFF88BB; drawtext(sysparam(3)=Barpos,sysparam(5),'5日均量:'+numtostr(ma(v,5),2)+', 10日均量:'+numtostr(ma(v,10),2)),color00ffff,align2; //立體K線 STICKLINE(C>=O,C,O,8,0),COLOR0000AA; STICKLINE(C>=O,C,O,7,0),COLOR0011BB; STICKLINE(C>=O,C,O,6,0),COLOR0022CC; STICKLINE(C>=O,C,O,5,0),COLOR0033DD; STICKLINE(C>=O,C,O,4,0),COLOR0044EE; STICKLINE(C>=O,C,O,3,0),COLOR0055FF; STICKLINE(C>=O,C,O,2,0),COLOR0066FF; STICKLINE(C>=O,C,O,1,0),COLOR0077FF; STICKLINE(C>=O,C,O,0.5,0),COLOR0088FF; STICKLINE(C>=O,H,L,0,0),COLOR0099FF; STICKLINE(C<=O,C,O,8,0),COLOR00AA00; STICKLINE(C<=O,C,O,7,0),COLOR00BB11; STICKLINE(C<=O,C,O,6,0),COLOR00CC22; STICKLINE(C<=O,C,O,5,0),COLOR00DD33; STICKLINE(C<=O,C,O,4,0),COLOR00EE44; STICKLINE(C<=O,C,O,3,0),COLOR00FF55; STICKLINE(C<=O,C,O,2,0),COLOR00FF66; STICKLINE(C<=O,C,O,1,0),COLOR00FF77; STICKLINE(C<=O,C,O,0.5,0),COLOR00FF88; STICKLINE(C<=O,H,L,0,0),COLOR00FF99; //空間黃金分割 最高:SYSPARAM(4),colorred,POINTDOT; DRAWNUMBER(barpos=sysparam(2),最高,最高,2),SHIFT7,align2,COLORWHITE; DRAWTEXT(barpos=sysparam(2),最高,'最高:'),Color0000FF,ALIGN1; 最低:SYSPARAM(5),colorgreen,POINTDOT; DRAWNUMBER(barpos=sysparam(2),最低,最低,2),SHIFT7,align2,COLORWHITE; DRAWTEXT(barpos=sysparam(2),最低,'最低:'),Color00FF00,ALIGN1; 分一:((最高-最低)*0.191)+最低,COLOR00FFFF,POINTDOT; DRAWNUMBER(barpos=sysparam(2),分一,分一,2),align2,SHIFT13,COLORYELLOW; DRAWTEXT(barpos=sysparam(2),分一,'分一(0.191):'),Color00FFFF,ALIGN1; 分二:((最高-最低)*0.382)+最低,COLORFF00FF,POINTDOT; DRAWNUMBER(barpos=sysparam(2),分二,分二,2),align2,SHIFT13,COLORFF00FF; DRAWTEXT(barpos=sysparam(2),分二,'分二(0.382):'),COLORFF00FF,ALIGN1; 中位:((最高-最低)*0.5)+最低,COLOR00FFFF,LINEDASHDOT; DRAWNUMBER(barpos=sysparam(2),中位,中位,2),align2,SHIFT13,COLORFFFF00; DRAWTEXT(barpos=sysparam(2),中位,'中位(0.5):'),COLOR00FFFF,ALIGN1; 分四:((最高-最低)*0.618)+最低,COLORFF00FF,POINTDOT; DRAWNUMBER(barpos=sysparam(2),分四,分四,2),align2,SHIFT13,COLORFF00FF; DRAWTEXT(barpos=sysparam(2),分四,'分四(0.618):'),COLORFF00FF,ALIGN1; 分五:((最高-最低)*0.809)+最低,COLOR00FFFF,POINTDOT; DRAWNUMBER(barpos=sysparam(2),分五,分五,2),align2,SHIFT13,COLORYELLOW; DRAWTEXT(barpos=sysparam(2),分五,'分五(0.809):'),COLOR00FFFF,ALIGN1; { //時(shí)間黃金分割 ts:=sysparam(3)-sysparam(2)+1; d191:=sysparam(2)+ts*0.191; d382:=sysparam(2)+ts*0.382; d5:=sysparam(2)+ts*0.5; d618:=sysparam(2)+ts*0.618; d809:=sysparam(2)+ts*0.809; VERTLINE(ROUND(d191)=BARPOS),COLORFFFF00,POINTDOT; VERTLINE(ROUND(d382)=BARPOS),COLORFFFF00,POINTDOT; VERTLINE(ROUND(d5)=BARPOS),COLOR00FFFF,LINEDASHDOT; VERTLINE(ROUND(d618)=BARPOS),COLORFFFF00,POINTDOT; VERTLINE(ROUND(d809)=BARPOS),COLORFFFF00,POINTDOT; } {江恩角度線 } input:角度(6);//角度值可調(diào)整 p1:=CLOSE-REF(CLOSE,1); p2:=SUM(ABS(p1),0); p3:=COUNT(CLOSE>0,0); k1:=p2/p3/角度; ts:=sysparam(3)-sysparam(2)+1; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,0,0,0),Color33AACC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-0.0809*K1,0,0),COLOR33AACC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-0.25*K1,0,0),COLOR33AACC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-0.481*K1,0,0),COLOR33AACC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-0.705*K1,0,0),COLOR33FFCC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-0.938*K1,0,0),COLOR33FFCC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-1.191*K1,0,0),Color33FFCC,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-1.5*K1,0,0),COLOR00C5AB; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-1.919*K1,0,0),COLOR00C5AB,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-2.618*K1,0,0),COLOR00C5AB,,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-3.809*K1,0,0),COLOR00FF00,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-5.618*K1,0,0),COLOR00FF00,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-9.382*K1,0,0),COLOR00FF00,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,HHVBARS(HIGH,ts)+1),ts),HIGH,-21*K1,0,0),COLOR00FF00,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0,0,0),ColorB37DDD,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0.0809*K1,0,0),COLOR,ColorB37DDD,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0.25*K1,0,0),COLOR,ColorB37DDD,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0.481*K1,0,0),COLOR,ColorB37DDD,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0.705*K1,0,0),COLOR,Color7449D6,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,0.938*K1,0,0),COLOR7449D6,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,1.191*K1,0,0),COLOR7449D6,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,1.5*K1,0,0),COLOR6666FF; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,1.919*K1,0,0),COLOR6666FF,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,2.618*K1,0,0),Color6666FF,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,3.809*K1,0,0),COLOR5818FF,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,5.618*K1,0,0),COLOR5818FF,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,9.382*K1,0,0),COLOR5818ff,pointdot; DRAWSL(FILTER(BACKSET(ISLASTBAR,LLVBARS(LOW,ts)+1),ts),LOW,21*K1,0,0),Color5818FF,pointdot; {簽上你的大名--如果你迫切希望揚(yáng)名成"腕"的話，就象我這樣寫(xiě)上自己名字吧(最好是自己的真名實(shí)姓，而且要不厭其煩地有機(jī)會(huì)就寫(xiě)上:)))} drawtext(sysparam(2)=Barpos ,sysparam(5)*0.95,'黑馬騎師 費(fèi)盡81牛18虎之力辛苦制作 :)))'),Color00FFFF,ALIGN1;//名字一定要醒目，這是關(guān)鍵所在 :))) {股票代碼} drawtext(sysparam(2)=Barpos,sysparam(4),'【股票代碼：'+STKLABEL+'】'),Color0000FF ,ALIGN1,shift11; drawtext(sysparam(2)=Barpos,sysparam(4),' 所屬板塊:'+BLKNAME ),Color88FF00,ALIGN1,shift27; ss:='總股本'+NUMTOSTR(FINANCE(1) ,0 )+'萬(wàn)股,'+'流通A股'+ NUMTOSTR(FINANCE(7),0)+'萬(wàn)股,'+'每股凈資產(chǎn)'+NUMTOSTR(FINANCE(34),2 )+'元,'+'每股公積金'+ NUMTOSTR(FINANCE(18),2)+'元,'+'每股收益 '+ NUMTOSTR(FINANCE(33),3)+'元,'+'每股未分配 '+NUMTOSTR(FINANCE(32),2)+'元,'+'市盈率'+NUMTOSTR(DYNAINFO(39),2)+',股東總數(shù):'+ NUMTOSTR(FINANCE(50),0)+'戶' {\n 上市日期:'+numtostr(yy,0)+'年'+ mm +'月' + dd +'日'}; drawtext(sysparam(2)=Barpos,sysparam(4)*0.975,ss),ColorFF00FF,ALIGN1; //大盤(pán)背景（下面的紅綠彩珠） tj:=indexc>=ma(indexc,20); drawicon(tj,x,10); drawicon(tj=0,x,11); {上市日期} yy:=REF(YEAR,BARSCOUNT(C)-1),linethick0,COLORGREEN; mm0:=REF(MONTH,BARSCOUNT(C)-1),linethick0,COLORMAGENTA; dd0:=REF(DAY,BARSCOUNT(C)-1),linethick0,COLORYELLOW; 上市日期:REF(YEAR,BARSCOUNT(C)-1),linethick0,COLORGREEN; 年:REF(MONTH,BARSCOUNT(C)-1),linethick0,COLORgreen,linethick0; 月:REF(DAY,BARSCOUNT(C)-1),linethick0,COLORgreen; 日:0,colorgreen,linethick0; 時(shí)空坐標(biāo)指標(biāo)
a3:=PEAKBARS(4,x1,1); a4:=TROUGHBARS(4,x2,1);
a5:=PEAK(4,x1,1); a6:=TROUGH(4,x2,1); FH:=A3-INTPART(A3/7)*7-1; FL:=A4-INTPART(A4/7)*7-1; a7:=a5-a6; F1:=IF(FH=1,0.191,IF(FH=2,0.382,IF(FH=3,0.5,IF(FH=4,0.618,IF(FH=5,0.809,if(fh=0,1,0)))))); f2:=if(fh=1,1.191,if(fh=2,1.382,if(fh=3,1.5,if(fh=4,1.618,if(fh=5,1.809,if(fh=0,2,2.191)))))); FZ1:=A6+A7*F1; FZ2:=a6+a7*f2; f3:=hhv(C,4)>fz1*0.94 AND llv(C,4)<FZ1*1.05 and a4<a3; f4:=hhv(C,4)>fz2*0.94 AND llv(C,4)<FZ2*1.05 and a4<a3; STICKLINE( f3,FZ1,fz1,100,0),ColorCDCDCD; STICKLINE( f4,FZ2,fz2,100,0),ColorCDCDCD; DRAWNUMBER(f3<>ref(f3,7) and f3<>ref(f3,14) and f3 ,FZ1,F1*100,1),ColorD2E1FF; DRAWNUMBER(f4<>ref(f4,7) and f4<>ref(f4,14) and f4 ,FZ2,F2*100,1),ColorD2E1FF; F5:=IF(Fl=1,0.191,IF(Fl=2,0.382,IF(Fl=3,0.5,IF(Fl=4,0.618,IF(Fl=5,0.809,if(fl=6,0,1)))))); f6:=if(fl=1,1.191,if(fl=2,1.382,if(fl=3,1.5,if(fl=4,1.618,if(fl=5,1.809,if(fl=6,2,2.191)))))); FZ5:=A5-A7*F5; FZ6:=a5-a7*f6; f7:=hhv(C,4)>fz5*0.94 AND llv(C,4)<FZ5*1.05 and a4>a3; f8:=hhv(C,4)>fz6*0.94 AND llv(C,4)<FZ6*1.05 and a4>a3; STICKLINE(f7,FZ5,fz5,100,0),Color00D800; STICKLINE(f8,fz6,fz6,100,0),Color00D800; DRAWNUMBER(f7<>ref(f7,7) and f7<>ref(f7,14) and f7,FZ5,F5*100,1),ColorE2FFD9; DRAWNUMBER(f8<>ref(f8,7) and f8<>ref(f8,14) and f8,FZ6,F6*100,1),ColorE2FFD9; a8:=a3=5 or a3=8 or a3=13 or a3=21 or a3=34 or a3=55 or a3=89 or a3=144 or a3=233; VERTLINE(a8 and (a4>a3 or a4<5)),Color00D800,POINTDOT; DRAWNUMBER(a8 and a4>a3,a6,a3,0),ColorCDCDCD; a81:=BARSLAST(a8); a82:=ref(a81,a81+1)+1; a83:=ref(a82,a82+a81); a84:=a82+a83-a81; DRAWSL(ISLASTBAR and a84<a3,llv(l,20)*0.96,0,a84,0),COLORGREEN; VERTLINE(a84=5),shift5,pointdot; a9:=a4=5 or a4=8 or a4=13 or a4=21 or a4=34 or a4=55 or a4=89 or a4=144 or a4=233; VERTLINE(a9 and (a4<a3 or a3<5)),ColorCDCDCD,POINTDOT; DRAWNUMBER(a9 and a4<a3,a6,a4,0),Color00CECE; a91:=BARSLAST(a9); a92:=ref(a91,a91+1)+1; a93:=ref(a92,a92+a91); a94:=a92+a93-a91; DRAWSL(ISLASTBAR and a94<a4,hhv(h,20),0,a94,0),COLORRED; DRAWNUMBER(ISLASTBAR,hhv(h,20)*1.02,a4,0),COLORRED,shift2; DRAWTEXT(ISLASTBAR,hhv(h,20)*1.02,'天'),COLORRED,shift6; DRAWNUMBER(ISLASTBAR,llv(l,20)*0.98,a3,0),COLORGREEN,shift2; DRAWTEXT(ISLASTBAR,llv(l,20)*0.98,'天'),COLORGREEN,shift6; gd1:=ref(a5,a4); gr1:=ref(date,a4+ref(a3,a4))+19000001; dd1:=a6; dr1:=ref(date,a4)+19000001; gd2:=a5; gr2:=ref(date,a3)+19000001; dd2:=ref(a6,a3); dr2:=ref(date,a3+ref(a4,a3))+19000001; 高點(diǎn):if(a4<a3 or a3<5,gd1,gd2),LINETHICK0,COLORYELLOW; 高點(diǎn)日期:if(a4<a3 or a3<5,gr1,gr2),LINETHICK0,COLORYELLOW; 低點(diǎn):if(a4<a3 or a3<5,dd1,dd2),LINETHICK0,COLORGREEN; 低點(diǎn)日期:if(a4<a3 or a3<5,dr1,dr2),LINETHICK0,COLORGREEN; a3江恩線指標(biāo)
m3:ma(c,3); m10:ma(c,10); m30:ma(c,30);
f:=((綠年-1900)*100+綠月)*100+綠日; f2:=count(date>=f,0); f4:=if(綠轉(zhuǎn)向=1,h,l); f5:=if(綠轉(zhuǎn)向=1,1,-1); g:=((紅年-1900)*100+紅月)*100+紅日; g2:=count(date>g,0); g4:=if(紅轉(zhuǎn)向=1,h,l); g5:=if(紅轉(zhuǎn)向=1,1,-1); p1:=c-ref(c,1); p2:=sum(abs(p1),0); p3:=count(c>0,0); k1:=p2/p3*f5/角度; k2:=p2/p3*g5/角度; DRAWSL(f2=1,f4,0,0,0),COLORGREEN,POINTDOT; DRAWSL(f2=1,f4,-K1/8,0,0),COLORGREEN; DRAWSL(f2=1,f4,-K1/4,0,0),COLORGREEN; DRAWSL(f2=1,f4,-K1/2,0,0),COLORGREEN; DRAWSL(f2=1,f4,-K1,0,0),COLORGREEN,LINETHICK2; DRAWSL(f2=1,f4,-K1*2,0,0),COLORGREEN; DRAWSL(f2=1,f4,-K1*4,0,0),COLORGREEN; DRAWSL(f2=1,f4,-K1*16,0,0),COLORGREEN; DRAWSL(g2=1,g4,0,0,0),Color7197FF,POINTDOT; DRAWSL(g2=1,g4,-K2/8,0,0),Color7197FF; DRAWSL(g2=1,g4,-K2/4,0,0),Color7197FF; DRAWSL(g2=1,g4,-K2/2,0,0),Color7197FF; DRAWSL(g2=1,g4,-K2,0,0),COLOR6666FF,LINETHICK2; DRAWSL(g2=1,g4,-K2*2,0,0),Color7197FF; DRAWSL(g2=1,g4,-K2*4,0,0),Color7197FF; DRAWSL(g2=1,g4,-K2*8,0,0),Color7197FF; 江恩八分圖
n=232 m=100
VERTLINE(FILTER(BACKSET(ISLASTBAR,N),N-1)),COLORRED; VERTLINE(FILTER(BACKSET(ISLASTBAR,M),M-1)),COLORRED; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8),N-(N-M)/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*2),N-(N-M)/8*2-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*3),N-(N-M)/8*3-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*4),N-(N-M)/8*4-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*5),N-(N-M)/8*5-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*6),N-(N-M)/8*6-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*7),N-(N-M)/8*7-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)/8*8),N-(N-M)/8*8-1)),COLORRED; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*9/8),N-(N-M)*9/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*10/8),N-(N-M)*10/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*9/8),N-(N-M)*9/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*10/8),N-(N-M)*10/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*11/8),N-(N-M)*11/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*12/8),N-(N-M)*12/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*13/8),N-(N-M)*13/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*14/8),N-(N-M)*14/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*15/8),N-(N-M)*15/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*16/8),N-(N-M)*16/8-1)),COLORYELLOW; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*2/3),N-(N-M)*2/3-1)),COLORWHITE; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*4/3),N-(N-M)*4/3-1)),COLORWHITE; VERTLINE(FILTER(BACKSET(ISLASTBAR,N-(N-M)*5/3),N-(N-M)*5/3-1)),COLORWHITE; 江恩輪中之輪
0;
CD:=BARSLAST(DATE=DATE1)+20; AD:=MOD(CD,WD); S24:=IF(AD=0,1,0); S24A:=IF(MOD(CD+1,WD)=0,1,0); S24B:=IF(REF(S24,1)=1,1,0); S3:=IF(AD=FLOOR(WD*3/24) OR AD=CEILING(WD*3/24) OR AD=FLOOR(WD*9/24) OR AD=CEILING(WD*9/24) OR AD=FLOOR(WD*15/24) OR AD=CEILING(WD*15/24) OR AD=FLOOR(WD*21/24) OR AD=CEILING(WD*21/24),1,0); S3A:=IF(AD+1=FLOOR(WD*3/24) OR AD+1=CEILING(WD*3/24) OR AD+1=FLOOR(WD*9/24) OR AD+1=CEILING(WD*9/24) OR AD+1=FLOOR(WD*15/24) OR AD+1=CEILING(WD*15/24) OR AD+1=FLOOR(WD*21/24) OR AD+1=CEILING(WD*21/24),1,0); S3B:=IF(REF(S3,1)=1,1,0); S6:=IF(AD=FLOOR(WD*6/24) OR AD=CEILING(WD*6/24) OR AD=FLOOR(WD*12/24) OR AD=CEILING(WD*12/24) OR AD=FLOOR(WD*18/24) OR AD=CEILING(WD*18/24),1,0); S6A:=IF(AD+1=FLOOR(WD*6/24) OR AD+1=CEILING(WD*6/24) OR AD+1=FLOOR(WD*12/24) OR AD+1=CEILING(WD*12/24) OR AD+1=FLOOR(WD*18/24) OR AD+1=CEILING(WD*18/24),1,0); S6B:=IF(REF(S6,1)=1,1,0); S8:=IF(AD=FLOOR(WD*8/24) OR AD=CEILING(WD*8/24) OR AD=FLOOR(WD*16/24) OR AD=CEILING(WD*16/24),1,0); S8A:=IF(AD+1=FLOOR(WD*8/24) OR AD+1=CEILING(WD*8/24) OR AD+1=FLOOR(WD*16/24) OR AD+1=CEILING(WD*16/24),1,0); S8B:=IF(REF(S8,1)=1,1,0); A24:STICKLINE(S24=1,0,3,8,0),COLORRED,shift20; A24B:STICKLINE(S24A=1 OR S24B=1,0,1,8,0),COLORRED,shift20; A3:STICKLINE(S3=1,0,3,8,0),COLORGREEN,shift20; A3B:STICKLINE(S3A=1 OR S3B=1,0,1,8,0),COLORGREEN,shift20; A6:STICKLINE(S6=1,0,3,8,0),COLORCYAN,shift20; A6B:STICKLINE(S6A=1 OR S6B=1,0,1,8,0),COLORCYAN,shift20; A8:STICKLINE(S8=1,0,3,8,0),COLORYELLOW,shift20; A8B:STICKLINE(S8A=1 OR S8B=1,0,1,8,0),COLORYELLOW,shift20; DRAWNUMBER(ISLASTBAR,2,0,0),shift1; DRAWNUMBER(ISLASTBAR,2,1,0),shift2; DRAWNUMBER(ISLASTBAR,2,2,0),shift3; DRAWNUMBER(ISLASTBAR,2,3,0),shift4; DRAWNUMBER(ISLASTBAR,2,4,0),shift5; DRAWNUMBER(ISLASTBAR,2,5,0),shift6; DRAWNUMBER(ISLASTBAR,2,6,0),shift7; DRAWNUMBER(ISLASTBAR,2,7,0),shift8; DRAWNUMBER(ISLASTBAR,2,8,0),shift9; 神秘之窗
神秘眾合數(shù):30,colorbbbb00;
s1:=NUMBERSUM(NUMBERSUM(NUMBERSUM(19000000+DATE,2),2),2); s2:=NUMBERSUM(NUMBERSUM(NUMBERSUM(CLOSE,2),2),2); x1:=s1=1 and s2=1;x2:=s1=2 and s2=2; x3:=s1=3 and s2=3;x4:=s1=4 and s2=4; x5:=s1=5 and s2=5;x6:=s1=6 and s2=6; x7:=s1=7 and s2=7;x8:=s1=8 and s2=8; x9:=s1=9 and s2=9; ys:=if(x1 or x2 or x3 or x4 or x5 or x6 or x7 or x8 or x9,1,0); dd:=numbersum(lsolarterm(date),2); y:=ys+ref(ys,1); stickline(y=3,35,25,6,0),colorff0000; stickline(y=2,33,27,6,0),colorff9900; stickline(y=1,30.5,29.5,6,0),colorffff00; jq:=if(lsolarterm(date)>1,1,0); stickline(lsolarterm(date),25,21,6,0),color00ff00; 神秘節(jié)氣:23,color00aa00; w1:=KGUA(1,1); w2:=KGUA(1,0); w3:=if(w1=88 and w2=8,1,0); w4:=if(w1=77 and w2=7,1,0); w5:=if(w1=66 and w2=6,1,0); w6:=if(w1=55 and w2=5,1,0); w7:=if(w1=44 and w2=4,1,0); w8:=if(w1=33 and w2=3,1,0); w9:=if(w1=22 and w2=2,1,0); w0:=if(w1=11 and w2=1,1,0); stickline(w3=1,13.4,6.7,6,0),colorff0000; stickline(w4=1,13,7.1,6,0),colordd0000; stickline(w5=1,12.6,7.5,6,0),coloraa0000; stickline(w6=1,12.2,7.9,6,0),color880000; stickline(w7=1,11.8,8.3,6,0),color660000; stickline(w8=1,11.4,8.7,6,0),color440000; stickline(w9=1,10.8,9.1,6,0),color220000; stickline(w0=1,10.5,9.5,6,0),color220022; 神秘八卦:10,coloree0000; xx:=y+jq+w3+w4+w5+w6+w7+w8+w9+w0; zz:=xx+ref(xx,1); stickline(zz>=1,17+zz/3,17-zz/3,6,0),colorff0099; 神秘合計(jì)信號(hào):17,colorff0099; |
|
|
來(lái)自： 周玨 > 《江恩書(shū)籍》
