編程思路破譯
所屬板塊賦值:字符串相加
市盈率賦值:字符串相加
市銷率賦值:字符串相加
市凈率賦值:字符串相加
凈資收益率賦值:字符串相加
毛利率賦值:字符串相加
凈利潤率賦值:字符串相加
主營利潤率賦值:字符串相加
未分利潤賦值:字符串相加
公積金賦值:字符串相加
當(dāng)前業(yè)績賦值:字符串相加
現(xiàn)金流賦值:字符串相加
流動比率賦值:字符串相加
速動比率賦值:字符串相加
XA1賦值:(流動資產(chǎn)-流動負(fù)債)/總資產(chǎn)*1.2
XA2賦值:(未分配利潤+資本公積金)/總資產(chǎn)*1.4
XA3賦值:營業(yè)利潤/總資產(chǎn)*3.3
XA4賦值:股東權(quán)益(凈資產(chǎn))/流動負(fù)債*0.6
XA5賦值:營業(yè)收入/流動負(fù)債*0.999
Z值賦值:XA1+XA2+XA3+XA4+XA5
預(yù)警賦值:如果Z值<1.2,返回'重警',否則返回如果Z值>=1.2ANDZ值<2.6,返回'輕警',否則返回'無警'
財務(wù)預(yù)警賦值:字符串相加
優(yōu)質(zhì)資產(chǎn)率賦值:字符串相加
現(xiàn)金負(fù)債比賦值:字符串相加
流動債賦值:字符串相加
長期債賦值:字符串相加
財務(wù)分析賦值:字符串相加
平均成本賦值:字符串相加
主力成本賦值:字符串相加
重心賦值:字符串相加
壓力Ⅰ賦值:字符串相加
支撐Ⅰ賦值:字符串相加
壓力Ⅱ賦值:字符串相加
支撐Ⅱ賦值:字符串相加
套牢盤%賦值:字符串相加
獲利盤%賦值:字符串相加
籌碼分析賦值:字符串相加
當(dāng)滿足條件是否最后一個周期時,在橫軸0縱軸0位置書寫文字,畫淡紅色
當(dāng)滿足條件是否最后一個周期時,在橫軸0縱軸0.12位置書寫文字,COLORFFFFBF
當(dāng)滿足條件是否最后一個周期時,在橫軸0.00縱軸0.18位置書寫文字,COLORFFFFBF
當(dāng)滿足條件是否最后一個周期時,在橫軸0.00縱軸0.24位置書寫文字,COLORFF99FF
輸出山還是山:收盤價的125日[1日權(quán)重]移動平均,畫黃色
B1賦值:收盤價的1日簡單移動平均
輸出B2:B1的2日[1日權(quán)重]移動平均的2日[1日權(quán)重]移動平均的2日[1日權(quán)重]移動平均,畫紅色
輸出SMA2:B2的2日簡單移動平均,畫青色
輸出箱頂:58日內(nèi)B2的2日簡單移動平均的最高值,COLOR00AAFF
如果B2<SMA2,返回SMA2,否則返回?zé)o效數(shù),COLORFFA93F,線寬為2
１０賦值:收盤價的10日指數(shù)移動平均
輸出２５:收盤價的25日指數(shù)移動平均,畫白色
輸出４０:收盤價的40日指數(shù)移動平均,COLOR00AA00
輸出８０:收盤價的80日指數(shù)移動平均,COLORFFFF00
輸出１２５:收盤價的125日[1日權(quán)重]移動平均,畫黃色
VAR1賦值:(100 - ((90 * (21日內(nèi)最高價的最高值 - 收盤價)) / (21日內(nèi)最高價的最高值 - 21日內(nèi)最低價的最低值)))
VAR3賦值:(100 - ((100*(6日內(nèi)最高價的最高值-收盤價))/(6日內(nèi)最高價的最高值-6日內(nèi)最低價的最低值))的34日簡單移動平均)
輸出分水嶺:收盤價的5日簡單移動平均的430日[1日權(quán)重]移動平均,COLORB48F33,線寬為2
輸出買:當(dāng)滿足條件VAR1上穿VAR3的VAR1日簡單移動平均ANDB2>SMA2時,在(最低價*0.97)位置書寫文字,畫紅色
當(dāng)滿足條件收盤價上穿１０ANDVAR3>1ANDB2>SMA2時,在最低價*0.99位置書寫文字,畫白色,線寬為2
當(dāng)滿足條件收盤價上穿２５A(chǔ)NDVAR3>1ANDB2>SMA2時,在最低價*0.99位置書寫文字,畫綠色,線寬為2
當(dāng)滿足條件收盤價上穿４０ANDVAR3>1ANDB2>SMA2時,在最低價*0.99位置書寫文字,畫紅色,線寬為2
當(dāng)滿足條件收盤價上穿８０ANDVAR3>1ANDB2>SMA2時,在最低價*0.99位置書寫文字,COLORCCFF66,線寬為2
當(dāng)滿足條件收盤價上穿１２５A(chǔ)NDVAR1>1時,在最低價*0.99位置書寫文字,畫黃色,線寬為2
當(dāng)滿足條件1時,在橫軸0.65縱軸0.018位置書寫文字,畫黃色
當(dāng)滿足條件1時,在橫軸0.7縱軸0.018位置書寫數(shù)字,畫黃色
當(dāng)滿足條件1時,在橫軸0.76縱軸0.02位置書寫文字,COLOR0080FF
當(dāng)滿足條件1時,在橫軸0.81縱軸0.02位置書寫數(shù)字,COLOR0080FF
當(dāng)滿足條件1時,在橫軸0.86縱軸0.018位置書寫文字,COLORFF00FF
當(dāng)滿足條件1時,在橫軸0.95縱軸0.018位置書寫數(shù)字,COLORFF00FF
程序源碼
{板塊}
所屬板塊:=STRCAT('【所屬板塊】',STRCAT(STRCAT(STRCAT('【行業(yè)】',HYBLOCK),STRCAT('【地域】',DYBLOCK)),STRCAT('【概念】',GNBLOCK)));
{業(yè)績綜合}
市盈率:=STRCAT('【市盈率】',CON2STR(C/FINANCE(33),2));
市銷率:=STRCAT('【市銷率】',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市凈率:=STRCAT('【市凈率】',CON2STR(C/FINANCE(34),2));
凈資收益率:=STRCAT('【凈資收益率】',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT('【毛利率】',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
凈利潤率:=STRCAT('【凈利潤率】',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主營利潤率:=STRCAT('【主營利潤率】',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
未分利潤:=STRCAT(STRCAT('【未分利潤】',CON2STR(FINANCE(32)/1,2)),'元/股');
公積金:=STRCAT(STRCAT('【公積金】',CON2STR(FINANCE(18)/1,2)),'元/股');
當(dāng)前業(yè)績:=STRCAT('【當(dāng)前業(yè)績】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市銷率,市凈率),凈資收益率),毛利率),凈利潤率),主營利潤率),未分利潤),公積金));
{財務(wù)分折}
現(xiàn)金流:=STRCAT(STRCAT('【現(xiàn)金流】',CON2STR(FINANCE(25)/100000000,2)),'億');
流動比率:=STRCAT('【流動比率】',CON2STR(FINANCE(11)/FINANCE(15),2));
速動比率:=STRCAT('【速動比率】',CON2STR((FINANCE(11)-FINANCE(27))/FINANCE(15),2));
XA1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
XA2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公積用資本公積金代替};
XA3:=FINANCE(23)/FINANCE(10)*3.3;
XA4:=FINANCE(19)/FINANCE(15)*0.6;{缺長期負(fù)債或負(fù)債總額}
XA5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=XA1+XA2+XA3+XA4+XA5;
預(yù)警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'輕警','無警'));
財務(wù)預(yù)警:=STRCAT('【財務(wù)預(yù)警】',STRCAT(預(yù)警,STRCAT('-Z值: ',CON2STR(Z值,2))));
優(yōu)質(zhì)資產(chǎn)率:=STRCAT('【優(yōu)質(zhì)資產(chǎn)率】',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理論上越大越好但不同行業(yè)有不同標(biāo)準(zhǔn)};
現(xiàn)金負(fù)債比:=STRCAT('【現(xiàn)金負(fù)債比】',CON2STR(FINANCE(25)/FINANCE(15),2));{缺長期負(fù)債或負(fù)債總額，理論上越大越好但不同行業(yè)有不同標(biāo)準(zhǔn)};
流動債:=STRCAT(STRCAT('【流動債】',CON2STR(FINANCE(15)/100000000,2)),'億');
長期債:=STRCAT(STRCAT('【長期債】',CON2STR(FINANCE(16)/100000000,2)),'億');
財務(wù)分析:=STRCAT('【財務(wù)分析】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(現(xiàn)金流,流動比率),速動比率),現(xiàn)金負(fù)債比),優(yōu)質(zhì)資產(chǎn)率),財務(wù)預(yù)警),流動債),長期債));
{盤面分析}
平均成本:=STRCAT('【平均成本】',CON2STR(COST(50),2));
主力成本:=STRCAT('【主力成本】',CON2STR(COST(4),2));
重心:=STRCAT('【重心】',CON2STR((H+L+C)/3,2));
壓力Ⅰ:=STRCAT('【壓力Ⅰ】',CON2STR(2*(H+L+C)/3-LOW,2));
支撐Ⅰ:=STRCAT('【支撐Ⅰ】',CON2STR(2*(H+L+C)/3-HIGH,2));
壓力Ⅱ:=STRCAT('【壓力Ⅱ】',CON2STR((H+L+C)/3+(REF(HIGH,1)-REF(LOW,1)),2));
支撐Ⅱ:=STRCAT('【支撐Ⅱ】',CON2STR((H+L+C)/3-(REF(HIGH,1)-REF(LOW,1)),2));
套牢盤%:=STRCAT('【套牢盤%】',CON2STR((1-WINNER(C))*100,2));
獲利盤%:=STRCAT('【獲利盤%】',CON2STR(100*WINNER(C),2));
籌碼分析:=STRCAT('【籌碼分析】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(平均成本,主力成本),重心),壓力Ⅰ),支撐Ⅰ),壓力Ⅱ),支撐Ⅱ),套牢盤%),獲利盤%));
DRAWTEXT_FIX(ISLASTBAR,0,0,0,所屬板塊),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,財務(wù)分析),COLORFFFFBF;DRAWTEXT_FIX(ISLASTBAR,0.00,0.18,0,當(dāng)前業(yè)績),COLORFFFFBF;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.24,0,籌碼分析),COLORFF99FF;
山還是山:SMA(C,125,1),COLORYELLOW;
B1:=MA(C,1);
B2:SMA(SMA(SMA(B1,2,1),2,1),2,1),COLORRED;
SMA2:MA(B2,2),COLORCYAN;
箱頂:HHV(MA(B2,2),58),COLOR00AAFF;
IF(B2<SMA2,SMA2,DRAWNULL),COLORFFA93F,LINETHICK2;
１０:=EMA(CLOSE,10);
２５:EMA(CLOSE,25),COLORWHITE;
４０:EMA(CLOSE,40),COLOR00AA00;
８０:EMA(CLOSE,80),COLORFFFF00;
１２５:SMA(C,125,1),COLORYELLOW;
VAR1:=(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));
分水嶺:SMA(MA(C,5),430,1),COLORB48F33,LINETHICK2;
買:DRAWTEXT(CROSS(VAR1,MA(VAR3,VAR1)) AND B2>SMA2,(LOW * 0.97),'←⊙買'),COLORRED;
DRAWTEXT(CROSS(C,１０) AND VAR3>1 AND B2>SMA2,L*0.99,'←※'),COLORWHITE,LINETHICK2;
DRAWTEXT(CROSS(C,２５) AND VAR3>1 AND B2>SMA2,L*0.99,'←◇'),COLORGREEN,LINETHICK2;
DRAWTEXT(CROSS(C,４０) AND VAR3>1 AND B2>SMA2,L*0.99,'←□'),COLORRED,LINETHICK2;
DRAWTEXT(CROSS(C,８０) AND VAR3>1 AND B2>SMA2,L*0.99,'←○'),COLORCCFF66,LINETHICK2;
DRAWTEXT(CROSS(C,１２５) AND VAR1>1,L*0.99,'←△'),COLORYELLOW,LINETHICK2;
{牛熊界:MA(CLOSE,49),LINETHICK2,COLORGRAY;};
{.財務(wù)板塊}
DRAWTEXT_FIX(1,0.65,0.018,0,'市盈率:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.7,0.018,0,CONST(DYNAINFO(39))),COLORYELLOW;
DRAWTEXT_FIX(1,0.76,0.02,0,'市凈率:'),COLOR0080FF;
DRAWNUMBER_FIX(1,0.81,0.02,0,CONST(C/FINANCE(34))),COLOR0080FF;
DRAWTEXT_FIX(1,0.86,0.018,0,'每股收益(元):'),COLORFF00FF;
DRAWNUMBER_FIX(1,0.95,0.018,0,CONST(FINANCE(33))),COLORFF00FF;
該公式包含未來函數(shù):WINNER
未發(fā)現(xiàn):LWINNER...
未發(fā)現(xiàn):PWINNER...
該公式包含未來函數(shù):COST
未發(fā)現(xiàn):CAPITAL...
該公式包含未來函數(shù):DYNAINFO
該公式包含未來函數(shù):FINANCE
注：
館內(nèi)各種公式為學(xué)習(xí)編程而保存，實戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔(dān)。
發(fā)文不易，如獲益，歡迎贊賞，贊賞必復(fù)！
