|
編程思路破譯 VA1賦值:引用0號ID的序列數(shù)據(jù) VA2賦值:VA1/10000的整數(shù)部分 VA3賦值:VA1-VA2*10000 VA4賦值:如果VA3=1231,返回VA2,否則返回VA2-1 輸出凈利潤1:專業(yè)財(cái)務(wù)數(shù)據(jù)(指定日期)/100000000 NODRAW 輸出凈利潤2:專業(yè)財(cái)務(wù)數(shù)據(jù)(指定日期)/100000000 NODRAW 輸出凈利潤3:專業(yè)財(cái)務(wù)數(shù)據(jù)(指定日期)/100000000 NODRAW 輸出股東數(shù):引用1號ID的序列數(shù)據(jù)/10000 NODRAW 輸出流通市值:收盤價*引用266號ID的序列數(shù)據(jù)/100000000,NODRAW,畫淡藍(lán)色 當(dāng)天流通值賦值:當(dāng)前流通股本(手)*收盤價 交易額賦值:成交額(元) 輸出交易占比:交易額/當(dāng)天流通值 NODRAW 輸出每股收益:每股收益(最近一期) NODRAW 輸出利潤比:利潤同比% NODRAW 輸出市盈TTM:市盈(TTM) NODRAW 輸出市盈動: 市盈(動) NODRAW ZDJS賦值:如果模糊匹配品種代碼,返回1,否則返回0 M10賦值:如果ZDJS=0,返回收盤價的10日簡單移動平均,否則返回?zé)o效數(shù) M21賦值:如果ZDJS=0,返回收盤價的21日簡單移動平均,否則返回?zé)o效數(shù) 輸出M25:如果ZDJS=0,返回收盤價的25日簡單移動平均,否則返回?zé)o效數(shù),畫黃色 輸出M60:如果ZDJS=0,返回收盤價的60日簡單移動平均,否則返回?zé)o效數(shù),畫紅色 M300賦值:如果ZDJS=0,返回收盤價的300日簡單移動平均,否則返回?zé)o效數(shù) W1賦值:3 W0賦值:0 CYB賦值:如果屬于某板塊,返回1,否則返回0 ZDF賦值:如果屬于某板塊,返回0.2,否則返回如果屬于某板塊,返回0.05,否則返回0.1 ZT賦值:計(jì)算漲停價 DT賦值:計(jì)算跌停價 ZT1賦值:計(jì)算漲停價 ZT2賦值:計(jì)算漲停價 DT1賦值:計(jì)算跌停價 DT2賦值:計(jì)算跌停價 NOCYB賦值:CYB=0 AND ZDJS=0 當(dāng)滿足條件(NOCYBANDC>=ZTANDC=最高價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱.,畫黃色 當(dāng)滿足條件(NOCYBANDC<=DTANDC=最低價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱.,畫綠色 當(dāng)滿足條件(NOCYBANDL<=DTANDC<ZTANDC>最低價)時,在最低價和收盤價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,畫綠色 當(dāng)滿足條件(NOCYBANDC<ZTANDH=ZTANDC>DTANDC<開盤價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLORFF4D88 當(dāng)滿足條件(NOCYBANDC<ZTANDH=ZTANDC>開盤價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLORFF4DFF GGR賦值:1200824 當(dāng)滿足條件日期=GGRAND(CYB=1ORCODELIKE('8808'))時,在120日內(nèi)最低價的最低值的最后一日取值設(shè)為常數(shù)和120日內(nèi)最高價的最高值的最后一日取值設(shè)為常數(shù)位置之間畫柱狀線,寬度為W0,0不為0則畫空心柱.,COLOR5C979C 當(dāng)滿足條件(CYB=1ANDDATE>=GGRANDC>=ZT2ANDC=最高價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., 畫黃色 當(dāng)滿足條件(CYB=1ANDDATE<GGRANDC>=ZTANDC=最高價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., 畫黃色 當(dāng)滿足條件(CYB=1ANDDATE<GGRANDC<=DTANDC=最低價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., 畫綠色 當(dāng)滿足條件(CYB=1ANDDATE<GGRANDC<ZTANDH=ZTANDC>DTANDC<開盤價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLORFF4DFF 當(dāng)滿足條件(CYB=1ANDDATE<GGRANDC<ZTANDH=ZTANDC>開盤價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLORFF4DFF 當(dāng)滿足條件(CYB=1ANDDATE>=GGRANDC<ZTANDH=ZT2ANDC>DTANDC<開盤價)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLORFF4DFF 當(dāng)滿足條件(收盤價>ZT1ANDC<ZT2ANDC>OANDZDJS=0)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLOR00AAFF 當(dāng)滿足條件(收盤價<HANDC>ZT2ANDC>OANDZDJS=0)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., COLOR0066CC 當(dāng)滿足條件(收盤價<=DT1ANDC<OANDZDJS=0)時,在開盤價和收盤價位置之間畫柱狀線,寬度為W1,0不為0則畫空心柱., 畫綠色 Z1賦值:字符串相加 Z2賦值:字符串相加 Z3賦值:字符串相加 當(dāng)滿足條件1時,在橫軸0縱軸0位置書寫文字COLOR00CCFF 當(dāng)滿足條件是否最后一個周期時,在橫軸0.05縱軸0位置書寫文字,畫黃色 當(dāng)滿足條件1時,在橫軸0縱軸0.05位置書寫文字COLOR00CCFF 當(dāng)滿足條件是否最后一個周期時,在橫軸0.05縱軸0.05位置書寫文字,COLOR00CCFF 當(dāng)滿足條件1時,在橫軸0縱軸0.10位置書寫文字COLOR00CCFF 當(dāng)滿足條件是否最后一個周期時,在橫軸0.05縱軸0.10位置書寫文字,畫紅色 當(dāng)滿足條件1時,在橫軸0縱軸0.15位置書寫文字COLOR00CCFF 當(dāng)滿足條件是否最后一個周期時,在橫軸0.05縱軸0.15位置書寫文字,畫綠色 當(dāng)滿足條件1時,在橫軸0縱軸0.20位置書寫文字COLOR00CCFF 當(dāng)滿足條件是否最后一個周期時,在橫軸0.05縱軸0.20位置書寫文字,畫綠色 程序源碼 {歸屬凈利潤} VA1:=FINVALUE(0); VA2:=INTPART(VA1/10000); VA3:=VA1-VA2*10000; VA4:=IF(VA3=1231,VA2,VA2-1); 凈利潤1:FINONE(95,VA4,1231)/100000000 NODRAW; 凈利潤2:FINONE(95,VA4-1,1231)/100000000 NODRAW; 凈利潤3:FINONE(95,VA4-2,1231)/100000000 NODRAW; 股東數(shù):GPJYVALUE(1,1,1)/10000 NODRAW; 流通市值:C*FINVALUE(266)/100000000,NODRAW,COLORLIBLUE{億}; 當(dāng)天流通值:=CAPITAL*C ; 交易額:=AMOUNT ; 交易占比:交易額/當(dāng)天流通值 NODRAW; 每股收益:FINANCE(38) NODRAW; 利潤比:FINANCE(43) NODRAW; 市盈TTM:DYNAINFO(40) NODRAW; 市盈動: DYNAINFO(39) NODRAW; ZDJS:=IF(CODELIKE('880005'), 1, 0); M10:=IF(ZDJS=0,MA(C,10),DRAWNULL); M21:=IF(ZDJS=0,MA(C,21),DRAWNULL); M25:IF(ZDJS=0,MA(C,25),DRAWNULL),COLORYELLOW; M60:IF(ZDJS=0,MA(C,60),DRAWNULL),COLORRED; M300:=IF(ZDJS=0,MA(C,300),DRAWNULL); {填充線寬度} W1:=3; W0:=0; {判斷漲跌幅限制，漲跌停價格} CYB:=IF(INBLOCK('創(chuàng)業(yè)板'), 1, 0); ZDF:=IF(INBLOCK('科創(chuàng)板'),0.2,IF(INBLOCK('ST板塊'), 0.05, 0.1)); ZT:=ZTPRICE(REF(CLOSE,1), ZDF); DT:=DTPRICE(REF(CLOSE,1), ZDF); ZT1:=ZTPRICE(REF(CLOSE,1), 0.1); ZT2:=ZTPRICE(REF(CLOSE,1), 0.2); DT1:=DTPRICE(REF(CLOSE,1), 0.1); DT2:=DTPRICE(REF(CLOSE,1), 0.2); {非創(chuàng)業(yè)板漲跌停} NOCYB:=CYB=0 AND ZDJS=0; STICKLINE((NOCYB AND C>=ZT AND C=H), O, C, W1, 0),COLORYELLOW; STICKLINE((NOCYB AND C<=DT AND C=L), O, C, W1, 0),COLORGREEN; STICKLINE((NOCYB AND L<=DT AND C<ZT AND C>L), L, C, 0, 0),COLORGREEN;{曾跌停陽線} {炸板} STICKLINE((NOCYB AND C<ZT AND H=ZT AND C>DT AND C<O),O, C, W1, 0), COLORFF4D88; STICKLINE((NOCYB AND C<ZT AND H=ZT AND C>O), O, C, W1, 0), COLORFF4DFF; {創(chuàng)業(yè)板改革日分割線} GGR:=1200824;{改革日} STICKLINE(DATE=GGR AND (CYB=1 OR CODELIKE('8808')), CONST(LLV(L,120)), CONST(HHV(H,120)), W0, 0),COLOR5C979C; {創(chuàng)業(yè)板漲停跌停} STICKLINE((CYB=1 AND DATE>=GGR AND C>=ZT2 AND C=H), O, C, W1, 0), COLORYELLOW; STICKLINE((CYB=1 AND DATE<GGR AND C>=ZT AND C=H), O, C, W1, 0), COLORYELLOW; STICKLINE((CYB=1 AND DATE<GGR AND C<=DT AND C=L), O, C, W1, 0), COLORGREEN; {炸板} STICKLINE((CYB=1 AND DATE<GGR AND C<ZT AND H=ZT AND C>DT AND C<O),O, C, W1, 0), COLORFF4DFF; STICKLINE((CYB=1 AND DATE<GGR AND C<ZT AND H=ZT AND C>O), O, C, W1, 0), COLORFF4DFF; STICKLINE((CYB=1 AND DATE>=GGR AND C<ZT AND H=ZT2 AND C>DT AND C<O),O, C, W1, 0), COLORFF4DFF; {所有板塊：漲跌幅大于10個點(diǎn)} STICKLINE((C>ZT1 AND C<ZT2 AND C>O AND ZDJS=0), O, C, W1, 0), COLOR00AAFF; STICKLINE((C<H AND C>ZT2 AND C>O AND ZDJS=0), O, C, W1, 0), COLOR0066CC; STICKLINE((C<=DT1 AND C<O AND ZDJS=0), O, C, W1, 0), COLORGREEN; {自定義數(shù)據(jù)} Z1:=STRCAT(HYBLOCK,' '); Z2:=STRCAT(Z1,DYBLOCK); Z3:=STRCAT(Z2,' '); DRAWTEXT_FIX(1,0,0,0,'股東數(shù)據(jù)：')COLOR00CCFF; DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,EXTERNSTR(0,503)),COLORYELLOW;{股東數(shù)據(jù)} DRAWTEXT_FIX(1,0,0.05,0,'概念：')COLOR00CCFF; DRAWTEXT_FIX(ISLASTBAR,0.05,0.05,0,STRCAT(Z3,GNBLOCK)),COLOR00CCFF; DRAWTEXT_FIX(1,0,0.10,0,'實(shí)際控制人：')COLOR00CCFF; DRAWTEXT_FIX(ISLASTBAR,0.05,0.10,0,EXTERNSTR(0,500)),COLORRED;{實(shí)控人} DRAWTEXT_FIX(1,0,0.15,0,'公司亮點(diǎn)：')COLOR00CCFF; DRAWTEXT_FIX(ISLASTBAR,0.05,0.15,0,EXTERNSTR(0,501)),COLORGREEN;{企業(yè)亮點(diǎn)} DRAWTEXT_FIX(1,0,0.20,0,'主營業(yè)務(wù)：')COLOR00CCFF; DRAWTEXT_FIX(ISLASTBAR,0.05,0.20,0,EXTERNSTR(0,502)),COLORGREEN;{個股股性}; 該公式包含未來函數(shù):CAPITAL 注： 館內(nèi)各種公式為學(xué)習(xí)編程而保存,，實(shí)戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率,，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔(dān),。 發(fā)文不易,，如獲益,，歡迎贊賞，贊賞必復(fù),！ |
|
|
