編程思路破譯

輸出INPUT:P(10,1,100),A(5,1,100)

N賦值:2.5

SVOL賦值:成交量(手)的歷史累和/當(dāng)前流通股本(手)的整數(shù)部分

TJ0賦值:SVOL>1日前的SVOL OR 首次收盤價(jià)距今天數(shù)=0

S1賦值:上次TJ0距今天數(shù)+1

TJ2賦值:S1<1日前的S1

S2賦值:如果TJ2,返回1日前的S1+1,否則返回S1

S3賦值:TJ2的歷史累和

階段總額（萬）賦值:成交額(元)/10000的S2日累和*100

階段總量（手）賦值:成交量(手)的S2日累和*100

階段成本（元）賦值:(階段總額（萬）/(階段總量（手）/100))

ZK1賦值:"隨機(jī)指標(biāo)KD的K[取周線數(shù)據(jù)]"(9,3,3)

ZD2賦值:"隨機(jī)指標(biāo)KD的D[取周線數(shù)據(jù)]"(9,3,3)

ZF1賦值:"平滑異同平均的DIFF[取周線數(shù)據(jù)]"(12,26,9)

ZA2賦值:"平滑異同平均的DEA[取周線數(shù)據(jù)]"(12,26,9)

輸出換手率:成交量(手)/FINANCE2(37),線寬為0,畫青色

JCD賦值:ZK1上穿ZD2ANDZD2<30的13日過濾

取點(diǎn)賦值:上次JCD距今天數(shù)

吸籌區(qū)賦值:如果取點(diǎn)>0AND取點(diǎn)<61,返回取點(diǎn),否則返回0

ZS1賦值:吸籌區(qū)

ZS2賦值:吸籌區(qū)+1

ZS3賦值:換手率/5

ZSA賦值:如果ZS1>0,返回(ZS3)的吸籌區(qū)+1日累和,否則返回0

輸出換手冷清:當(dāng)滿足條件換手率<3時(shí),在(0-6)*4和(換手率-6)*4位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,COLOR555555

輸出換手活躍:當(dāng)滿足條件換手率>=3AND換手率<7時(shí),在(0-6)*4和(換手率-6)*4位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,COLOR008888

輸出換手熱烈:當(dāng)滿足條件換手率>=7時(shí),在(0-6)*4和(換手率-6)*4位置之間畫柱狀線,寬度為3,1不為0則畫空心柱.,COLOR000088

VERTLINE(JCD,1),畫綠色

輸出DRAWTEXTREL(5,20,'◇階段平均成本:'+NUMTOSTRN(階段成本（元）,2)+'(元)'),畫白色

輸出DRAWTEXTREL(190,20,'◇估算主力籌碼:'+NUMTOSTRN(ZSA,2)+'%'),畫白色

輸出DRAWTEXTREL(360,20,'◇主力建倉天數(shù):'+NUMTOSTRN(ZS1,0)+'(天)'),畫白色

VAR2賦值:10日內(nèi)最低價(jià)的最低值

VAR3賦值:25日內(nèi)最高價(jià)的最高值

輸出賣出: 14.5*N,COLORC6C600

輸出清倉:17.5*N,COLORFF75FF

動(dòng)力線賦值: ((收盤價(jià)-VAR2)/(VAR3-VAR2)*4的4日指數(shù)移動(dòng)平均*10-17.5)*N

當(dāng)滿足條件動(dòng)力線>1日前的動(dòng)力線時(shí),在動(dòng)力線和1日前的動(dòng)力線位置之間畫柱狀線,寬度為15,1不為0則畫空心柱.,畫紅色

當(dāng)滿足條件動(dòng)力線<=1日前的動(dòng)力線時(shí),在動(dòng)力線和1日前的動(dòng)力線位置之間畫柱狀線,寬度為15,1不為0則畫空心柱.,COLOR00FF00

輸出底部:-15.5*N,COLOR70DB93

輸出關(guān)注:-12.5*N,畫黃色

T1賦值:動(dòng)力線上穿關(guān)注的20日過濾

T2賦值:動(dòng)力線上穿底部的20日過濾

T3賦值:清倉上穿動(dòng)力線的20日過濾

T4賦值:賣出上穿動(dòng)力線的20日過濾

當(dāng)滿足條件(T1ORT2)時(shí),在0位置畫7號(hào)圖標(biāo)

0,POINTDOT,線寬為2,COLOR70DB93

RSV賦值:((((P日內(nèi)最高價(jià)的最高值 - 收盤價(jià)) / (P日內(nèi)最高價(jià)的最高值 - P日內(nèi)最低價(jià)的最低值)) * 200) - 125)

輸出散戶:RSV的A日[1日權(quán)重]移動(dòng)平均+15,畫深灰色,線寬為2

RSV1賦值:((((收盤價(jià) - P日內(nèi)最低價(jià)的最低值) / (P日內(nèi)最高價(jià)的最高值 - P日內(nèi)最低價(jià)的最低值)) * 200) - 105)

輸出主力:RSV1的A日[1日權(quán)重]移動(dòng)平均+15,畫深灰色,線寬為2

PARTLINE(散戶,散戶<0),畫黃色,線寬為2

PARTLINE(主力,主力>0),畫黃色,線寬為2

超跌回升賦值:主力上穿(0-79)

當(dāng)滿足條件超跌回升時(shí),在50和0位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,COLOR0000FF

準(zhǔn)備起爆賦值:主力上穿散戶

當(dāng)滿足條件準(zhǔn)備起爆時(shí),在10和-10位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,COLOR00FFFF

小心陰跌一賦值:散戶上穿主力

當(dāng)滿足條件小心陰跌一時(shí),在10和-10位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,畫深灰色

當(dāng)滿足條件準(zhǔn)備起爆時(shí),在5位置書寫文字,COLOR00FFFF

當(dāng)滿足條件(T3ORT4)時(shí),在0位置書寫文字,ALIGN1,COLOR00FFFF

程序源碼

INPUT:P(10,1,100),A(5,1,100);

{DRAWGBKLAST(CLOSE>0,STRIP(RGB(66,66,66),RGB(66,66,66),0));}

N:=2.5;

SVOL:=INTPART(SUM(V,0)/CAPITAL);

TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;

S1:=BARSLAST(TJ0)+1;{//時(shí)間1}

TJ2:=S1<REF(S1,1);{//取點(diǎn)}

S2:=IF(TJ2,REF(S1,1)+1,S1);{//時(shí)間2}

S3:=SUM(TJ2,0);

階段總額（萬）:=SUM(AMOUNT/10000,S2)*100;

階段總量（手）:=SUM(V,S2)*100;

階段成本（元）:=(階段總額（萬）/(階段總量（手）/100));

ZK1:="KD.K#WEEK"(9,3,3);

ZD2:="KD.D#WEEK"(9,3,3);

ZF1:="MACD.DIFF#WEEK"(12,26,9);

ZA2:="MACD.DEA#WEEK"(12,26,9);

換手率:V/FINANCE2(37),LINETHICK0,COLORCYAN;

JCD:=FILTER(CROSS(ZK1,ZD2) AND ZD2<30,13);

取點(diǎn):=BARSLAST(JCD);

吸籌區(qū):=IF(取點(diǎn)>0 AND 取點(diǎn)<61,取點(diǎn),0);

ZS1:=吸籌區(qū);

ZS2:=吸籌區(qū)+1;

ZS3:=換手率/5;

ZSA:=IF(ZS1>0,SUM((ZS3),吸籌區(qū)+1),0);

換手冷清:STICKLINE(換手率<3,(0-6)*4,(換手率-6)*4,3,1),COLOR555555;

換手活躍:STICKLINE(換手率>=3 AND 換手率<7,(0-6)*4,(換手率-6)*4,3,1),COLOR008888;

換手熱烈:STICKLINE(換手率>=7,(0-6)*4,(換手率-6)*4,3,1),COLOR000088;

VERTLINE(JCD,1),COLORGREEN;

DRAWTEXTREL(5,20,'◇階段平均成本:'+NUMTOSTRN(階段成本（元）,2)+'(元)'),COLORWHITE;

DRAWTEXTREL(190,20,'◇估算主力籌碼:'+NUMTOSTRN(ZSA,2)+'%'),COLORWHITE;

DRAWTEXTREL(360,20,'◇主力建倉天數(shù):'+NUMTOSTRN(ZS1,0)+'(天)'),COLORWHITE;

VAR2:=LLV(LOW,10);

VAR3:=HHV(HIGH,25);

賣出: 14.5*N,COLORC6C600;

清倉:17.5*N,COLORFF75FF;

動(dòng)力線:= (EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4)*10-17.5)*N;

STICKLINE(動(dòng)力線>REF(動(dòng)力線,1) ,動(dòng)力線 ,REF(動(dòng)力線,1),15,1),COLORRED;

STICKLINE(動(dòng)力線<=REF(動(dòng)力線,1) ,動(dòng)力線 ,REF(動(dòng)力線,1),15 ,1),COLOR00FF00;

底部:-15.5*N,COLOR70DB93;

關(guān)注:-12.5*N,COLORYELLOW;

T1:=FILTER(CROSS(動(dòng)力線,關(guān)注),20);

T2:=FILTER(CROSS(動(dòng)力線,底部),20);

T3:=FILTER(CROSS(清倉,動(dòng)力線),20);

T4:=FILTER(CROSS(賣出,動(dòng)力線),20);

DRAWICON((T1 OR T2),0,7);

0,POINTDOT,LINETHICK2,COLOR70DB93;

RSV:=((((HHV(HIGH,P) - CLOSE) / (HHV(HIGH,P) - LLV(LOW,P))) * 200) - 125);

散戶:SMA(RSV,A,1)+15,COLORGRAY,LINETHICK2;;

RSV1:=((((CLOSE - LLV(LOW,P)) / (HHV(HIGH,P) - LLV(LOW,P))) * 200) - 105);

主力:SMA(RSV1,A,1)+15,COLORGRAY,LINETHICK2;

PARTLINE(散戶,散戶<0),COLORYELLOW,LINETHICK2;

PARTLINE(主力,主力>0),COLORYELLOW,LINETHICK2;

超跌回升:=CROSS(主力,(0 - 79));

STICKLINE(超跌回升,50,0,10,0),COLOR0000FF;

準(zhǔn)備起爆:=CROSS(主力,散戶);

STICKLINE(準(zhǔn)備起爆,10,-10,10,0),COLOR00FFFF;

小心陰跌一:=CROSS(散戶,主力);

STICKLINE(小心陰跌一,10,-10,10,0),COLORGRAY;

DRAWTEXT(準(zhǔn)備起爆,5,' 佛，'),COLOR00FFFF;

DRAWTEXT((T3 OR T4),0,'＄'),ALIGN1,COLOR00FFFF;

風(fēng)險(xiǎn)提示

該公式包含未來函數(shù):CAPITAL
未發(fā)現(xiàn):DYNAINFO...
該公式包含未來函數(shù):FINANCE
未發(fā)現(xiàn):XMA...
未發(fā)現(xiàn):#MONTH...
該公式包含未來函數(shù):#WEEK