大智慧转折+筹码支撑压力主图源码

DRAWGBKlast(c, strip(RGB(0,20,0) ,RGB(00,40,0),1));

W:=BARSLAST(DISPSTATUS=1);

显示天数:=6;

开始:=TROUGHBARS(4,30,1 );

显示条件:=BACKSET(BARSTATUS=2 ,if(显示天数=0, 开始+1,显示天数));

DRAWTEXTABS(5,45,'■目前可见K线:'+NUMTOSTRN(W+1,0)+'天'),COLOR006600;

DRAWTEXTABS(2,1, '【所属板块】: '+BKNAME),Color006600;

DRAWTEXTABS(2,14,'【报 告 期】: '+FINANCE2(1)+' 【每股收益】: '+NUMTOSTRN(FINANCE2(3),2)+'元  '+' 【市盈率】:'+NUMTOSTRN(DYNAINFO(39),1)+'倍 '),COLOR006600;

DRAWTEXTABS(2,28,'【流通 A股】: '+NUMTOSTRN(FINANCE2(37)/10000,2)+'亿  '+' 【总 股 本】: '+NUMTOSTRN(FINANCE2(35)/10000,2)+'  亿 '+'【市  值】 '+NUMTOSTRN(DYNAINFO(57)/100000000,2)+'亿'),Color006600;

SVAR0:=FINANCE2(37) / 1000000 * 100 ;

DRAWTEXTABS(5,65, STKLABEL+' '+STKNAME+' 现价:'+C+' 涨幅:'+NUMTOSTRN((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,2)),Color555555,LINETHICK2;

现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),color555555,POINTDOT;

{--------------------以下设置转折线---------------------------}

Create :=  "那时的阿P@FmlCreate";

HL :=  "那时的阿P@VHL";

KK :=  "那时的阿P@VHK";

ax :=  "那时的阿P@FmlParamRead" (     0,    0,    0,    4 ) ;

bx :=  "那时的阿P@FmlParamRead" (     0,    0,    0,    6 ) ;

ax1 :=  "那时的阿P@FmlParamRead" (     0,    0,    0,    8 ) ;

bx1 :=  "那时的阿P@FmlParamRead" (     0,    0,    0,    9 ) ;

axx1 := "那时的阿P@FmlParamRead" (     0,    0,    0,   10 ) ;

bxx1 :="那时的阿P@FmlParamRead" (     0,    0,    0,   11 ) ;

hh :=  "那时的阿P@FmlParamRead" (     0,    0,    0,   12 ) ;

ll :=  "那时的阿P@FmlParamRead" (     0,    0,    0,   13 ) ;

arh :=  "那时的阿P@FmlParamRead" (     0,    0,    0,   15 ) ;

arl :=  "那时的阿P@FmlParamRead"(     0,    0,    0,   16 ) ;

axxx1 := "那时的阿P@FmlParamRead" (     0,    0,    0,   17 ) ;

bxxx1 := "那时的阿P@FmlParamRead" (     0,    0,    0,   18 ) ;

mm:=if(hl=1,bx,ax);

mm1:=if(hl=1,bx1,ax1);

下跌趋势1:=hl=0 and  cref(h,1) and C

上升趋势1:=hl=1 and  c>ref(L,1) or (cbxx1);

下跌趋势2:=kk=0;

上升趋势2:=kk=1;

上升趋势:=上升趋势1 OR 上升趋势2;

下跌趋势:=下跌趋势1 OR 下跌趋势2;

stickline(显示条件 AND 下跌趋势,axx1,axx1+axx1*0.00001,30,1),colorFF8800,linethick1, DOTLINE,LAYER2;

stickline(显示条件 AND 上升趋势,bxx1,bxx1-bxx1*0.00001,30,1),colorFF00ff,linethick1, DOTLINE,LAYER2;

转折:(mm+mm1)/2,color00aaaa,linethick0;

PARTLINE(转折,C>=转折,RGB(255,255,0),C<转折,RGB(0,0,255)),LAYER0;

{--------------------以下设置筹码支撑压力---------------------------}

N:=100;

V0:="XWUS@CMBL"(n,5);

V1:="XWUS@CMBL"(n,10);

V2:="XWUS@CMBL"(n,15);

V3:="XWUS@CMBL"(n,20);

V4:="XWUS@CMBL"(n,25);

V5:="XWUS@CMBL"(n,30);

V6:="XWUS@CMBL"(n,35);

V7:="XWUS@CMBL"(n,40);

V8:="XWUS@CMBL"(n,45);

V9:="XWUS@CMBL"(n,50);

POLYLINE(V0>0,V0),Color008364,LAYER7{,color888888};

POLYLINE(V1>0,V1),Color008364,LAYER7{,color888888};

POLYLINE(V2>0,V2),Color008364,LAYER7{,color888888};

POLYLINE(V3>0,V3),Color008364,LAYER7{,color888888};

POLYLINE(V4>0,V4),Color008364,LAYER7{,color888888};

POLYLINE(V5>0,V5),Color008364,LAYER7{,color888888};

POLYLINE(V6>0,V6),Color008364,LAYER7{,color888888};

POLYLINE(V7>0,V7),Color008364,LAYER7{,color888888};

POLYLINE(V8>0,V8),Color008364,LAYER7{,color888888};

POLYLINE(V9>0,V9),Color008364,LAYER7{,color888888};

STICKLINE(BARSTATUS=2 AND V0>0 AND V1>0,(V0+V1)/2,(V0+V1)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V1>0 AND V2>0,(V1+V2)/2,(V1+V2)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V2>0 AND V3>0,(V2+V3)/2,(V2+V3)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V3>0 AND V4>0,(V3+V4)/2,(V3+V4)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V4>0 AND V5>0,(V4+V5)/2,(V4+V5)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V5>0 AND V6>0,(V5+V6)/2,(V5+V6)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V6>0 AND V7>0,(V6+V7)/2,(V6+V7)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V7>0 AND V8>0,(V7+V8)/2,(V7+V8)/2,22,0),color888888,LAYER4;

STICKLINE(BARSTATUS=2 AND V8>0 AND V9>0,(V8+V9)/2,(V8+V9)/2,22,0),color888888,LAYER4;