仓位变动（副图 源码）

仓位变动

VAR1V:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2V:=SMA(ABS(LOW-VAR1V),13,1)/SMA(MAX(LOW-VAR1V,0),10,1);
VAR3V:=EMA(VAR2V,10);
VAR4V:=LLV(LOW,33);
VAR5V:=EMA(IF(LOW<=VAR4V,VAR3V,0),3);
主力进场:=IF(VAR5V>REF(VAR5V,1),VAR5V,0),COLORRED,NODRAW;
庄家:=EMA(EMA(CLOSE,10),10);
现价:=(庄家-REF(庄家,1))/REF(庄家,1)*1000;
主力:=100*0.95;
平均价 := SMA (现价,5,1)-SMA(现价,13,1);
上价:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
下价:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
中价:=MAX(EMA(上价,1)-EMA(下价,5),0)*1000;
吃庄价:=EMA(中价,5);
净吃庄血:=吃庄价;
A1:=30;
实体比例:=(CLOSE-OPEN)/REF(CLOSE,1);
冲击系数:=MA(实体比例,A1);
冲击系数1:=MA(冲击系数,3);
STICKLINE(冲击系数1>0,((冲击系数1*1000 )+净吃庄血)/2,0,1,0),COLORGREEN;
X:=WINNER(C-0.168*C)*500;
存货:MA(X,13),COLORYELLOW;
STICKLINE(存货,0,存货,3,0),COLORYELLOW;

活筹:= 200*WINNER(REF(CLOSE,1)*1.1)-100*WINNER(REF(CLOSE,1)*0.9);
死筹:= 200*WINNER(CLOSE);
主力筹码:= 200*WINNER(CLOSE*0.9);
获利3:= 200*WINNER(CLOSE*0.97);
获利20:= 100*WINNER(CLOSE*0.9*0.9);
获利30:= 200*WINNER(CLOSE*0.9*0.9*0.9);
穿透筹码:= 200*WINNER(CLOSE)-100*WINNER(REF(CLOSE,1)*1);
AA:=REF(主力筹码<30,1) AND 主力筹码>30,COLOR0099FF;
QW:=LOW<COST(4) AND CLOSE>COST(4),COLOR888888;
STICKLINE(获利30>20,0,获利30,5,1),COLORWHITE;
{STICKLINE(获利3>85,0,获利3,2,0),COLORYELLOW;}
STICKLINE(主力筹码>20,0,主力筹码,2,0),COLORMAGENTA;
STICKLINE(获利20>20,0,获利20,1,1),COLORCYAN;

VAR0:=DYNAINFO(5);
VAR1:=BARSCOUNT(HIGH);
VAR2:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 200);
低位金叉跟进:=IF((VAR1 > 20),VAR2,0);
VAR11:=IF((HIGH < VAR0),0,IF((LOW > VAR0),1,(((VAR0 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
AAA:=(DMA(VAR11,(VOL /SUM(VOL,90))) * 60);
BBB:=(DMA(VAR11,(VOL / CAPITAL)) * 60);
VAR12:=IF(C>1000,AAA,BBB);
VAR3:=IF((((VAR12 > 0) AND (VAR12 > REF(VAR12,1))) AND (低位金叉跟进 >= 88)),VAR2,0);
VAR4:=((3 * SMA((((CLOSE - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 200),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 200),5,1),3,1)));
VAR5:=EMA(VAR4,8);
VAR6:=((3 * SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 200),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 200),5,1),3,1)));
VAR7:=(EMA(VAR6,3) - 10);
AM:=1.1*C;
BM:=0.9*C;
B1:=100*(WINNER(AM)-WINNER(BM));
C1:=MA(C,13)<REF(MA(C,13),1);
D1:=IF(C>1000,CROSS(VAR3,22),CROSS(VAR3,24));
锁定筹码:=200-B1;
锁定区:STICKLINE(锁定筹码>70 AND C1,0,锁定筹码-30,2,0),COLOR0000FF;
出仓区:STICKLINE(((VAR3>0) AND ((VAR7 < 20) OR ((VAR7 > REF(VAR7,1)) AND (VAR7 < 50)))),0,(VAR3/2),1,0),COLORBLUE;

VAR1N:=SMA(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),14,1);
VAR2N:=(HIGH - REF(HIGH,1));
VAR3N:=(REF(LOW,1) - LOW);
VAR4N:=SMA(IF(((VAR2N > 0) AND (VAR2N > VAR3N)),VAR2N,0),12,1);
VAR5N:=SMA(IF(((VAR3N > 0) AND (VAR3N > VAR2N)),VAR3N,0),12,1);
VAR6N:=((VAR4N * 100) / VAR1N);
VAR7N:=((VAR5N * 100) / VAR1N);
VAR8N:=SMA(((ABS((VAR7N - VAR6N)) / (VAR7N + VAR6N)) * 100),12,1);
VAR9N:=((VAR8N + REF(VAR8N,5)) / 2);
VARAN:=((SUM((HIGH - OPEN),12) / SUM((OPEN - LOW),12)) * 100);
VARBN:=((SUM(MAX(0,(HIGH - REF(CLOSE,1))),12) / SUM(MAX(0,(REF(CLOSE,1) - LOW)),12)) * 100);
VARCN:=((AMOUNT / VOL) / 100);
VARDN:=(((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7);
VAREN:=((SUM(AMOUNT,5) / VARCN) / 100);
VARFN:=((SUM(AMOUNT,13) / VARCN) / 100);
VAR10N:=((SUM(AMOUNT,34) / VARCN) / 100);
VAR11N:=((SUM(AMOUNT,209) / VARCN) / 100);
VAR12N:=(((REF(VOL,1) + REF(VOL,2)) + REF(VOL,3)) + REF(VOL,4));
VAR13N:=(VAR12N / CAPITAL);
VAR14N:=(((VOL / CAPITAL) * VARDN) + (VAR13N * REF(VARCN,1)));
VAR15N:=DMA(VARDN,(VOL / VAREN));
VAR16N:=DMA(VARDN,(VOL / VARFN));
VAR17N:=DMA(VARDN,(VOL / VAR10N));
VAR18N:=DMA(VARDN,(VOL / CAPITAL));
VAR19N:=MA(HHV(HIGH,488),18);
VAR1AN:=MA(HHV(HIGH,220),18);
VAR1BN:=MA(HHV(HIGH,98),18);
VAR1CN:=MA(LLV(LOW,488),18);
VAR1DN:=MA(LLV(LOW,220),18);
VAR1EN:=MA(LLV(LOW,98),18);
VAR1FN:=MA((((((((VAR1CN * 0.96) + (VAR1DN * 0.96)) + (VAR1EN * 0.96)) + (VAR19N * 0.558)) + (VAR1AN * 0.558)) + (VAR1BN * 0.558)) / 6),18);
VAR20N:=MA((((((((VAR1CN * 1.25) + (VAR1DN * 1.23)) + (VAR1EN * 1.2)) + (VAR19N * 0.55)) + (VAR1AN * 0.55)) + (VAR1BN * 0.65)) / 6),18);
VAR21N:=MA((((((((VAR1CN * 1.3) + (VAR1DN * 1.3)) + (VAR1EN * 1.3)) + (VAR19N * 0.68)) + (VAR1AN * 0.68)) + (VAR1BN * 0.68)) / 6),18);
VAR22N:=MA((((((VAR1FN * 3) + (VAR20N * 2)) + VAR21N) / 6) * 1.738),18);
VAR23N:=IF((DATE <= 1031231),VAR22N,(VAR22N * DAY));
VAR24N:=LOW;
VAR25N:=REF(LOW,1);
VAR26N:=((SMA(ABS((VAR24N - VAR25N)),3,1) / SMA(MAX((VAR24N - VAR25N),0),3,1)) * 100);
VAR27N:=MA(IF(((CLOSE * 1.35) <= VAR23N),(VAR26N * 10),(VAR26N / 10)),3);
VAR28N:=LLV(LOW,30);
VAR29N:=HHV(VAR27N,30);
VAR2AN:=IF((LOW <= VAR28N),((VAR27N + (VAR29N * 2)) / 2),0);
VAR31:=MA(HHV(HIGH,488),18);
VAR32:=MA(HHV(HIGH,220),18);
VAR33:=MA(HHV(HIGH,98),18);
VAR34:=MA(LLV(LOW,488),18);
VAR35:=MA(LLV(LOW,220),18);
VAR36:=MA(LLV(LOW,98),18);
VAR37:=MA((((((((VAR34 * 0.96) + (VAR35 * 0.96)) + (VAR36 * 0.96)) + (VAR31 * 0.558)) + (VAR32 * 0.558)) + (VAR33 * 0.558)) / 6),18);
VAR38:=MA((((((((VAR34 * 1.25) + (VAR35 * 1.23)) + (VAR36 * 1.2)) + (VAR31 * 0.55)) + (VAR32 * 0.55)) + (VAR33 * 0.65)) / 6),18);
VAR39:=MA((((((((VAR34 * 1.3) + (VAR35 * 1.3)) + (VAR36 * 1.3)) + (VAR31 * 0.68)) + (VAR32 * 0.68)) + (VAR33 * 0.68)) / 6),18);
VAR40:=MA((((((VAR37 * 3) + (VAR38 * 2)) + VAR39) / 6) * 1.738),18);
VAR41:=VAR40;
VAR42:=LOW;
VAR43:=REF(LOW,1);
VAR44:=((SMA(ABS((VAR42 - VAR43)),3,1) / SMA(MAX((VAR42 - VAR43),0),3,1)) * 100);
VAR45:=MA(IF(((CLOSE * 1.35) <= VAR41),(VAR44 * 10),(VAR44 / 10)),3);
VAR46:=LLV(LOW,30);
VAR47:=HHV(VAR45,30);
VAR49:=IF((LOW <= VAR46),((VAR45 + (VAR47 * 2)) / 2),0);
提示:=MA((VAR49 AND (CLOSE < COST(1))),3),,COLORFFFFFF;
进:=(MA(VAR2AN AND (CLOSE < COST(1)),3) AND ((((CLOSE - VAR16N) / VAR16N) * 100) < (2 - 13)))*0.5,,COLORFFFA00;
趋势A:=(EMA(((3 * SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1)) - (2 * SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 100),5,1),3,1))),5) / 100);
欢喜:=IF((((((((REF(CLOSE,13) - CLOSE) / REF(CLOSE,13)) * 100) > 15) AND ((SUM((VOL / CAPITAL),13) * 100) < 18)) AND (((VOL / CAPITAL) * 100) < 2.5)) AND ((((REF(CLOSE,1) - CLOSE) / REF(CLOSE,1)) * 100) < 8)),0.7,0),,COLORFFCC66;
V2M:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
V3M:=(MA(VOL,2) / MA(VOL,10));
V4M:=(VOL / CAPITAL);
A1N:=((((0.0068 * V2M) - (0.0072 * V3M)) - (0.5676 * V4M)) - 0.0105);
A2N:=((((0.0015 * V2M) - (0.0124 * V3M)) + (1.7461 * V4M)) - 0.0074);
A3N:=((((0 - (0.0003 * V2M)) + (0.047 * V3M)) - (0.5734 * V4M)) - 0.0549);
发财:=((((0 - (12.2401 * A1N)) - (1 * A2N)) + 0.321) < 0),,COLOR99CC66;
翻番:=(((CLOSE - MA(CLOSE,27)) / MA(CLOSE,27)) < (0 - 0.16));
选股:=提示 AND 进 AND 翻番;
DRAWTEXT(选股,200,'翻'),COLORYELLOW;

主仓:EMA(100*(CLOSE- LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),7),COLORYELLOW,LINETHICK1;
主筹:WINNER(C)*100,COLORLIRED,LINETHICK1;
散筹:=(WINNER(C*1.1)-WINNER(C*0.9))*100,COLORBLUE,LINETHICK2,NODRAW ;

换:SUM(VOL,1)/CAPITAL*100,COLORRED,NODRAW;
伍:SUM(VOL,5)/CAPITAL*100,COLORGREEN,NODRAW;
十:SUM(VOL,10)/CAPITAL*100,COLORRED,NODRAW;
十五:=SUM(VOL,15)/CAPITAL*100,NODRAW;
二:=SUM(VOL,20)/CAPITAL*100,COLORRED,NODRAW;

VA1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VA21:=SMA(ABS(HIGH-VA1),13,1)/SMA(MIN(HIGH-VA1,0),10,1);
VA31:=EMA(VA21,10);
VA41:=HHV(HIGH,34);
VA51:=EMA(IF(HIGH>=VA41,VA31,0),3);
出货A:IF(VA51>REF(VA51,1),VA51,0),NODRAW;
STICKLINE(VA51>REF(VA51,1)*1.1,0,VA51,3,0 ),COLORBLUE;
主力拉高A:IF(VA51<REF(VA51,1),VA51,0),NODRAW;
STICKLINE(VA51<REF(VA51,1),0,VA51,3,0),COLORYELLOW;

ZC_1:=IF(L<DYNAINFO(7),0,IF(H>DYNAINFO(7),DYNAINFO(7)-(DYNAINFO(7)-H+0.02)/(H-L+0.02),0));
ZC_2:=DMA(ZC_1,V/CAPITAL)*2;
出货:=IF(ZC_2>0 AND ZC_2>REF(ZC_2,1),ZC_2/20,0);
VARQ1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VARQ2:=SMA(ABS(LOW-VARQ1),13,1)/SMA(MAX(LOW-VARQ1,0),10,1);
VARQ3:=EMA(VARQ2,10);
VARQ4:=LLV(LOW,33);
VARQ5:=EMA(IF(LOW<=VARQ4,VARQ3,0),3)*2;
主力进场X:STICKLINE(VARQ5>REF(VARQ5,1) AND 出货<=0,0,VARQ5,7,0 ),COLORMAGENTA;

JJC:=(HIGH+LOW+2*CLOSE)/4;
QJC:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
买1:=QJC*(MIN(OPEN,CLOSE)-LOW);
买2:=QJC*(JJC-MIN(CLOSE,OPEN));
卖1:=QJC*(MAX(CLOSE,OPEN)-JJC);
卖2:=QJC*(HIGH-MAX(OPEN,CLOSE));
DT:=((买1+买2)-(卖1+卖2))/1000000;
ZLCC:SUM(DT,34),COLORWHITE,LINETHICK2;
CCLB:EMA(ZLCC,5)COLORRED,LINETHICK2;
CCLA:EMA(ZLCC,15)COLORMAGENTA,LINETHICK2;
CCLC:EMA(ZLCC,45)COLORGREEN,LINETHICK2;
STICKLINE(DT>0,ZLCC,ZLCC+DT,1,0),COLORRED;
STICKLINE(DT<0,ZLCC+DT,ZLCC,1,0),COLORLIBLUE;