|
編程思路破譯 AMAP賦值:(收盤價*3+開盤價+最高價+最低價)/6 AMA0賦值:以1/3為權重AMAP的自適應均線 AMA1賦值:以1/9為權重AMA0的自適應均線 AMA2賦值:以1/21為權重AMA0的自適應均線 AMA3賦值:以1/60為權重AMA0的自適應均線 畫帶狀線 畫帶狀線 畫帶狀線 畫帶狀線 畫帶狀線 畫帶狀線 畫帶狀線 當滿足條件最高價>=最低價時,在獲利盤為00.01%的成本分布和獲利盤為99.99%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR101010 當滿足條件最高價>=最低價時,在獲利盤為1%的成本分布和獲利盤為99%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR131313 當滿足條件最高價>=最低價時,在獲利盤為2%的成本分布和獲利盤為98%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR161616 當滿足條件最高價>=最低價時,在獲利盤為4%的成本分布和獲利盤為96%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR191919 當滿足條件最高價>=最低價時,在獲利盤為6%的成本分布和獲利盤為94%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR1C1C1C 當滿足條件最高價>=最低價時,在獲利盤為8%的成本分布和獲利盤為92%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR1F1F1F 當滿足條件最高價>=最低價時,在獲利盤為10%的成本分布和獲利盤為90%的成本分布位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR222222 畫帶狀線 畫帶狀線 輸出NOTEXTC1:獲利盤為1%的成本分布,COLOR202020 輸出NOTEXTC2:獲利盤為2%的成本分布,COLOR202020 輸出NOTEXTC3:獲利盤為4%的成本分布,COLOR202020 輸出NOTEXTC4:獲利盤為6%的成本分布,COLOR202020 輸出NOTEXTC5:獲利盤為8%的成本分布,COLOR202020 輸出NOTEXTC6:獲利盤為10%的成本分布,COLOR282828 輸出NOTEXTC7:獲利盤為12%的成本分布,COLOR282828 輸出NOTEXTC8:獲利盤為14%的成本分布,COLOR282828 輸出NOTEXTC9:獲利盤為16%的成本分布,COLOR282828 輸出NOTEXTC10:獲利盤為18%的成本分布,COLOR282828 輸出NOTEXTC11:獲利盤為20%的成本分布,COLOR303030 輸出NOTEXTC12:獲利盤為22%的成本分布,COLOR303030 輸出NOTEXTC13:獲利盤為24%的成本分布,COLOR303030 輸出NOTEXTC14:獲利盤為26%的成本分布,COLOR303030 輸出NOTEXTC15:獲利盤為28%的成本分布,COLOR303030 輸出NOTEXTC16:獲利盤為30%的成本分布,COLOR303030 輸出NOTEXTC17:獲利盤為32%的成本分布,COLOR303030 輸出NOTEXTC18:獲利盤為34%的成本分布,COLOR303030 輸出NOTEXTC19:獲利盤為36%的成本分布,COLOR303030 輸出NOTEXTC20:獲利盤為38%的成本分布,COLOR303030 輸出NOTEXTC21:獲利盤為40%的成本分布,COLOR303030 輸出NOTEXTC22:獲利盤為42%的成本分布,COLOR303030 輸出NOTEXTC23:獲利盤為44%的成本分布,COLOR303030 輸出NOTEXTC24:獲利盤為46%的成本分布,COLOR303030 輸出NOTEXTC25:獲利盤為48%的成本分布,COLOR303030 輸出NOTEXTC26:獲利盤為50%的成本分布,COLOR303030 輸出NOTEXTC27:獲利盤為52%的成本分布,COLOR303030 輸出NOTEXTC28:獲利盤為54%的成本分布,COLOR303030 輸出NOTEXTC29:獲利盤為56%的成本分布,COLOR303030 輸出NOTEXTC30:獲利盤為58%的成本分布,COLOR303030 輸出NOTEXTC31:獲利盤為60%的成本分布,COLOR303030 輸出NOTEXTC32:獲利盤為62%的成本分布,COLOR303030 輸出NOTEXTC33:獲利盤為64%的成本分布,COLOR303030 輸出NOTEXTC34:獲利盤為66%的成本分布,COLOR303030 輸出NOTEXTC35:獲利盤為68%的成本分布,COLOR303030 輸出NOTEXTC36:獲利盤為70%的成本分布,COLOR303030 輸出NOTEXTC37:獲利盤為72%的成本分布,COLOR303030 輸出NOTEXTC38:獲利盤為74%的成本分布,COLOR303030 輸出NOTEXTC39:獲利盤為76%的成本分布,COLOR303030 輸出NOTEXTC40:獲利盤為78%的成本分布,COLOR303030 輸出NOTEXTC41:獲利盤為80%的成本分布,COLOR303030 輸出NOTEXTC42:獲利盤為82%的成本分布,COLOR282828 輸出NOTEXTC43:獲利盤為84%的成本分布,COLOR282828 輸出NOTEXTC44:獲利盤為86%的成本分布,COLOR282828 輸出NOTEXTC45:獲利盤為88%的成本分布,COLOR282828 輸出NOTEXTC46:獲利盤為90%的成本分布,COLOR282828 輸出NOTEXTC47:獲利盤為92%的成本分布,COLOR282828 輸出NOTEXTC48:獲利盤為94%的成本分布,COLOR282828 輸出NOTEXTC49:獲利盤為96%的成本分布,COLOR202020 輸出NOTEXTC50:獲利盤為98%的成本分布,COLOR202020 輸出NOTEXTC51:獲利盤為99%的成本分布,COLOR202020 畫帶狀線 畫帶狀線 輸出NOTEXTA3:AMA3,COLOR3C3C4C 輸出NOTEXTA3K:如果AMA3>AMAP,返回AMA3,否則返回無效數(shù),COLOR3C3C2C 輸出NOTEXTA2:AMA2,COLOR4C4C8C 輸出NOTEXTA2K:如果AMA2>AMAP,返回AMA2,否則返回無效數(shù),COLOR6C6C2C 輸出NOTEXTA1:AMA1,COLOR4C4CFC 輸出NOTEXTA1K:如果AMA1>AMAP,返回AMA1,否則返回無效數(shù),COLORBCBC2C 輸出NOTEXTA0:AMA0,COLORC8C8C8 KC賦值:如果模糊匹配品種代碼,返回1,否則返回0 BJ賦值:如果模糊匹配品種代碼,返回1,否則返回0+如果模糊匹配品種代碼,返回1,否則返回0 CY賦值:如果模糊匹配品種代碼,返回1,否則返回0*如果日期對應的轉換天數(shù)-1200824對應的轉換天數(shù)>0,返回1,否則返回0 ST賦值:如果上次(收盤價=HANDC=計算漲停價)OR(收盤價=LANDC=計算跌停價)距今天數(shù)<上次最高價>計算漲停價ORL<計算跌停價距今天數(shù),返回1,否則返回0 ZT20賦值:如果KC>0ORCY>0,返回計算漲停價,否則返回0 ZT30賦值:如果BJ>0,返回計算漲停價,否則返回0 ZT05賦值:如果ST>0AND(ZT20=0ORZT20=無效數(shù)),返回計算漲停價,否則返回0 ZT10賦值:如果(ZT30=0ORZT30=無效數(shù))AND(ZT20=0ORZT20=無效數(shù))AND(ZT05=0ORZT05=無效數(shù)),返回計算漲停價,否則返回0 ZTXX賦值:如果ZT05=無效數(shù),返回0,否則返回ZT05和如果ZT10=無效數(shù),返回0,否則返回ZT10的較大值和如果ZT20=無效數(shù),返回0,否則返回ZT20的較大值和如果ZT30=無效數(shù),返回0,否則返回ZT30的較大值 GOLD賦值:如果收盤價=HANDC=ZTXX,返回1,否則返回0 K線 當滿足條件GOLD=1時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件GOLD=1ANDC<=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件GOLD=1ANDC>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,COLOR00FFFF K線 當滿足條件最高價>=最低價時,在橫軸0縱軸0位置書寫文字,COLOR885533 當滿足條件最高價>=最低價時,在橫軸0縱軸0位置書寫文字,COLORDD6633 當滿足條件最高價>=最低價時,在橫軸0縱軸0位置書寫文字,COLOR6C6C6C 當滿足條件最高價>=最低價時,在橫軸0縱軸0位置書寫文字,COLOR505050 程序源碼 {價格定義} AMAP:=(C*3+O+H+L)/6; AMA0:=AMA(AMAP,1/3); AMA1:=AMA(AMA0,1/9); AMA2:=AMA(AMA0,1/21); AMA3:=AMA(AMA0,1/60); {多空透明} DRAWBAND(COST(00.01),RGB(10,10,10),COST(99.99),RGB(10,10,10)); DRAWBAND(COST(1),RGB(13,13,13),COST(99),RGB(13,13,13)); DRAWBAND(COST(2),RGB(16,16,16),COST(98),RGB(16,16,16)); DRAWBAND(COST(4),RGB(19,19,19),COST(96),RGB(19,19,19)); DRAWBAND(COST(6),RGB(22,22,22),COST(94),RGB(22,22,22)); DRAWBAND(COST(8),RGB(25,25,25),COST(92),RGB(25,25,25)); DRAWBAND(COST(10),RGB(25,25,25),COST(90),RGB(25,25,25)); STICKLINE(H>=L,COST(00.01),COST(99.99),0,0),COLOR101010; STICKLINE(H>=L,COST(1),COST(99),0,0),COLOR131313; STICKLINE(H>=L,COST(2),COST(98),0,0),COLOR161616; STICKLINE(H>=L,COST(4),COST(96),0,0),COLOR191919; STICKLINE(H>=L,COST(6),COST(94),0,0),COLOR1C1C1C; STICKLINE(H>=L,COST(8),COST(92),0,0),COLOR1F1F1F; STICKLINE(H>=L,COST(10),COST(90),0,0),COLOR222222; DRAWBAND(AMAP,RGB(60,30,30),AMA3,RGB(20,40,40)); DRAWBAND(AMAP,RGB(90,20,20),AMA2,RGB(15,60,60)); {籌碼散線} NOTEXTC1:COST(1),COLOR202020; NOTEXTC2:COST(2),COLOR202020; NOTEXTC3:COST(4),COLOR202020; NOTEXTC4:COST(6),COLOR202020; NOTEXTC5:COST(8),COLOR202020; NOTEXTC6:COST(10),COLOR282828; NOTEXTC7:COST(12),COLOR282828; NOTEXTC8:COST(14),COLOR282828; NOTEXTC9:COST(16),COLOR282828; NOTEXTC10:COST(18),COLOR282828; NOTEXTC11:COST(20),COLOR303030; NOTEXTC12:COST(22),COLOR303030; NOTEXTC13:COST(24),COLOR303030; NOTEXTC14:COST(26),COLOR303030; NOTEXTC15:COST(28),COLOR303030; NOTEXTC16:COST(30),COLOR303030; NOTEXTC17:COST(32),COLOR303030; NOTEXTC18:COST(34),COLOR303030; NOTEXTC19:COST(36),COLOR303030; NOTEXTC20:COST(38),COLOR303030; NOTEXTC21:COST(40),COLOR303030; NOTEXTC22:COST(42),COLOR303030; NOTEXTC23:COST(44),COLOR303030; NOTEXTC24:COST(46),COLOR303030; NOTEXTC25:COST(48),COLOR303030; NOTEXTC26:COST(50),COLOR303030; NOTEXTC27:COST(52),COLOR303030; NOTEXTC28:COST(54),COLOR303030; NOTEXTC29:COST(56),COLOR303030; NOTEXTC30:COST(58),COLOR303030; NOTEXTC31:COST(60),COLOR303030; NOTEXTC32:COST(62),COLOR303030; NOTEXTC33:COST(64),COLOR303030; NOTEXTC34:COST(66),COLOR303030; NOTEXTC35:COST(68),COLOR303030; NOTEXTC36:COST(70),COLOR303030; NOTEXTC37:COST(72),COLOR303030; NOTEXTC38:COST(74),COLOR303030; NOTEXTC39:COST(76),COLOR303030; NOTEXTC40:COST(78),COLOR303030; NOTEXTC41:COST(80),COLOR303030; NOTEXTC42:COST(82),COLOR282828; NOTEXTC43:COST(84),COLOR282828; NOTEXTC44:COST(86),COLOR282828; NOTEXTC45:COST(88),COLOR282828; NOTEXTC46:COST(90),COLOR282828; NOTEXTC47:COST(92),COLOR282828; NOTEXTC48:COST(94),COLOR282828; NOTEXTC49:COST(96),COLOR202020; NOTEXTC50:COST(98),COLOR202020; NOTEXTC51:COST(99),COLOR202020; {多空不透明} DRAWBAND(AMAP,RGB(120,0,0),AMA1,RGB(0,100,100)); DRAWBAND(AMA0,RGB(100,0,0),AMA1,RGB(0,80,80)); {均線繪制} NOTEXTA3:AMA3,COLOR3C3C4C; NOTEXTA3K:IF(AMA3>AMAP,AMA3,DRAWNULL),COLOR3C3C2C; NOTEXTA2:AMA2,COLOR4C4C8C; NOTEXTA2K:IF(AMA2>AMAP,AMA2,DRAWNULL),COLOR6C6C2C; NOTEXTA1:AMA1,COLOR4C4CFC; NOTEXTA1K:IF(AMA1>AMAP,AMA1,DRAWNULL),COLORBCBC2C; NOTEXTA0:AMA0,COLORC8C8C8; {漲停標記} KC:=IF(CODELIKE('68'),1,0); BJ:=IF(CODELIKE('83'),1,0)+IF(CODELIKE('87'),1,0); CY:=IF(CODELIKE('30'),1,0)*IF(DATETODAY(DATE)-DATETODAY(1200824)>0,1,0); ST:=IF(BARSLAST((C=H AND C=ZTPRICE(REF(C,1),0.05)) OR (C=L AND C=DTPRICE(REF(C,1),0.05)))<BARSLAST(H>ZTPRICE(REF(C,1),0.05) OR L<DTPRICE(REF(C,1),0.05)),1,0); ZT20:=IF(KC>0 OR CY>0,ZTPRICE(REF(C,1),0.20),0); ZT30:=IF(BJ>0,ZTPRICE(REF(C,1),0.30),0); ZT05:=IF(ST>0 AND (ZT20=0 OR ZT20=DRAWNULL),ZTPRICE(REF(C,1),0.05),0); ZT10:=IF((ZT30=0 OR ZT30=DRAWNULL) AND (ZT20=0 OR ZT20=DRAWNULL) AND (ZT05=0 OR ZT05=DRAWNULL),ZTPRICE(REF(C,1),0.10),0); ZTXX:=MAX(MAX(MAX(IF(ZT05=DRAWNULL,0,ZT05),IF(ZT10=DRAWNULL,0,ZT10)),IF(ZT20=DRAWNULL,0,ZT20)),IF(ZT30=DRAWNULL,0,ZT30)); GOLD:=IF(C=H AND C=ZTXX,1,0); DRAWKLINE(H,O,L,C); STICKLINE(GOLD=1,H,L,0,0),COLOR00FFFF; STICKLINE(GOLD=1 AND C<=O,C,O,2,0),COLOR00FFFF; STICKLINE(GOLD=1 AND C>=O,C,O,2,1),COLOR00FFFF; DRAWKLINE(IF(GOLD=0,H,DRAWNULL),IF(GOLD=0,O,DRAWNULL),IF(GOLD=0,L,DRAWNULL),IF(GOLD=0,C,DRAWNULL)); {輸出文字} DRAWTEXT_FIX(H>=L,0,0,0,STRCAT(STRCAT(STRCAT('[所屬板塊] ',MOREHYBLOCK),' '),STRCAT(SUBSTR(DYBLOCK,1,IF(STRLEN(DYBLOCK)=8,4,6)),STRCAT(' ',GNBLOCK)))),COLOR885533; DRAWTEXT_FIX(H>=L,0,0,0,STRCAT('[所屬板塊] ',MOREHYBLOCK)),COLORDD6633; DRAWTEXT_FIX(H>=L,0,0,0,STRCAT('[所屬板塊]&[公司地位] ',EXTERNSTR(1,10010))),COLOR6C6C6C; DRAWTEXT_FIX(H>=L,0,0,0,STRCAT('&&[曾用名稱] ',IF(STRLEN(EXTERNSTR(1,10018))>4,EXTERNSTR(1,10018),'無'))),COLOR505050; 注： 館內各種公式為學習編程而保存，實戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔。 發(fā)文不易，如獲益，歡迎贊賞，贊賞必復！ |
|
|
