這個(gè)能幫 我寫(xiě)成文華程序嗎 [文華財(cái)經(jīng)]
- 咨詢內(nèi)容：
通達(dá)信的程序
<!--EndFragment-->
0;
SJV:=FINANCE(34);{每股凈資產(chǎn)}
市凈率:C/SJV,NODRAW,COLOR00FF00;
每股稅后利潤(rùn):=(FINANCE(1)/FINANCE(29));
市盈率:C/FINANCE(33),NODRAW,COLORFFFF00;
DIF:=EMA(CLOSE,10)-EMA(CLOSE,22);
DE:=EMA(DIF,7.5);
MACDA:=2*(DIF-DE),;
HZL:=CROSS(MACDA,0);
LZH:=CROSS(0,MACDA);
BC:=BARSLAST(HZL OR LZH)+1;
ZGHZ:=IF(MACDA>0,HHV(MACDA,BC),0);
ZGLZ:=IF(MACDA<0,LLV(MACDA,BC),0);
DRAWBAND(ZGHZ,RGB(105,77,77),0,RGB(77,77,77));
DRAWBAND(ZGLZ,RGB(80,0,0),0,RGB(66,88,66));
DIFF:EMA(CLOSE,10)-EMA(CLOSE,22),COLORFFFFFF;
DEA:EMA(DIFF,7.5),COLOR00FFFF;
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK0;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,1.5,1),COLORRED;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,1.5,0),COLOR90FF00;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,1.5,1),COLOREFFF00;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,1.5,0),COLORFFAAFF;
↑:TROUGHBARS(3,3,1),COLOR0000FF,NODRAW;
↓:PEAKBARS(3,3,1),COLOR00FF00,NODRAW; - 文華技術(shù)人員：
低:IF(↑=0,DIFF,IF(↓<↑,TROUGH(3,3,1),REF(TROUGH(3,3,1),1))),COLOR00FFFF,NODRAW;
高:IF(↓=0,DIFF,IF(↑<↓,PEAK(3,3,1),REF(PEAK(3,3,1),1))),COLOR00FF00,NODRAW;
STICKLINE(↑=0 AND DIFF<0 AND DIFF<DEA,0,DIFF,0,0),COLORFFAAFF;
STICKLINE(↓=0 AND DIFF>0 AND DIFF>DEA,DIFF,0,0,0),COLOR00FF00;
DRAWTEXT(↑=0 AND DIFF<0 AND DIFF<DEA,DIFF,'低'),COLORFFAAFF;
DRAWTEXT(↓=0 AND DIFF>0 AND DIFF>DEA,DIFF,'高'),COLOR00FF00;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
AA1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=(REF(L,AA1+1)>L OR REF(C,AA1+1)>C) AND (L,DIFF)>REF((L,DIFF),AA1+1) AND CROSS(DIFF,DEA);
DRAWLINE(AA1=0,DEA,底背離,DEA,0),COLOR0000FF,LINETHICK1;
AA2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=(REF(C,AA2+1)<C OR REF(H,AA2+1)<H) AND REF((H,DIFF),AA2+1)>(H,DIFF) AND CROSS(DEA,DIFF);
DRAWLINE(AA2=0,DEA,頂背離,DEA,0),COLORGREEN,LINETHICK1;
DRAWICON(CROSS(DIFF,DEA) AND DIFF>0,DEA,36);
DRAWICON(CROSS(DEA,DIFF) AND DIFF>0,DEA,37);
DRAWICON(CROSS(DIFF,DEA) AND DIFF<0,DEA,1);
DRAWICON(二次金叉,DEA*0.9,36) ;
解盤(pán)1:=CONST(IF(MACD>0,1,0));
解盤(pán)2:=CONST(IF(MACD<0,1,0));
解盤(pán)A:=IF(解盤(pán)1=1,'【精華8個(gè)字 買(mǎi)小賣小，縮頭縮腳】 當(dāng)股價(jià)一波比一波高時(shí)，反而紅柱的堆，
一堆比一堆小，證明產(chǎn)生了頂背離現(xiàn)象，應(yīng)該及時(shí)賣出',
IF(解盤(pán)2=1,'【精華8個(gè)字 買(mǎi)小賣小，縮頭縮腳】 當(dāng)股價(jià)一波比一波低時(shí)，
反而綠柱的堆一堆比一堆小，證明產(chǎn)生了底背離，應(yīng)該買(mǎi)進(jìn)',
DRAWNULL));
DRAWTEXT_FIX((解盤(pán)1=1 OR 解盤(pán)2=1),0.16,0,0,解盤(pán)A),COLORFFEE00; - 文華客服：
抱歉 您模型中用到的
SJV:=FINANCE(34);{每股凈資產(chǎn)}
市凈率:C/SJV,NODRAW,COLOR00FF00;
每股稅后利潤(rùn):=(FINANCE(1)/FINANCE(29));
市盈率:C/FINANCE(33),NODRAW,COLORFFFF00;
等股票中的概念 目前暫無(wú)可代替函數(shù) 從而暫無(wú)法實(shí)現(xiàn)改寫(xiě) 我們會(huì)在未來(lái)考慮增加函數(shù)來(lái)實(shí)現(xiàn)更多想法
- 網(wǎng)友回復(fù)：
按照這個(gè)思路運(yùn)用到期貨橡膠中來(lái)，把那同個(gè)指標(biāo)去掉，根據(jù)這個(gè)思路，行不行。
- 網(wǎng)友回復(fù)：
兩個(gè)軟件函數(shù)差別較大 改寫(xiě)后會(huì)有較大差別 您酌情使用
DIF:=EMA(CLOSE,10)-EMA(CLOSE,22);
DE:=EMA(DIF,7.5);
MACDA:=2*(DIF-DE);
HZL:=CROSS(MACDA,0);
LZH:=CROSS(0,MACDA);
BC:=BARSLAST(HZL OR LZH)+1;
ZGHZ:=IF(MACDA>0,HHV(MACDA,BC),0);
ZGLZ:=IF(MACDA<0,LLV(MACDA,BC),0);
DIFF:EMA(CLOSE,10)-EMA(CLOSE,22);
DEA:EMA(DIFF,7.5);
MACD:2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,COLORRED,1);
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,COLORGREEN,0);
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,COLORGREEN,1);
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,COLORRED,0);
SHANG:TROUGHBARS(C,3,1,1),NODRAW;
XIA:PEAKBARS(C,3,1,1),NODRAW;
DI:IF(SHANG=0,DIFF,IF(XIA<SHANG,TROUGH(C,3,1,1),REF(TROUGH(C,3,1,1),1))),NODRAW;
GAO:IF(XIA=0,DIFF,IF(SHANG<XIA,PEAK(C,3,1,1),REF(PEAK(C,3,1,1),1))),NODRAW;
STICKLINE(SHANG=0 AND DIFF<0 AND DIFF<DEA,0,DIFF,COLORGREEN,0);
STICKLINE(XIA=0 AND DIFF>0 AND DIFF>DEA,DIFF,0,COLORRED,0);
DRAWTEXT(SHANG=0 AND DIFF<0 AND DIFF<DEA,DIFF,'低');
DRAWTEXT(XIA=0 AND DIFF>0 AND DIFF>DEA,DIFF,'高');
DWJC:=CROSS(DIFF,DEA) AND DIFF<-0.1;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
ECJC:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
AA1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
DBL:=(REF(L,AA1+1)>L OR REF(C,AA1+1)>C) AND L>REF(L,AA1+1) &&DIFF>REF(DIFF,AA1+1) AND CROSS(DIFF,DEA);
AA2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
DINGBL:=(REF(C,AA2+1)<C OR REF(H,AA2+1)<H) AND REF(H,AA2+1)>H &&REF(DIFF,AA2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWICON(CROSS(DIFF,DEA) AND DIFF>0,DEA,'ICO36');
DRAWICON(CROSS(DEA,DIFF) AND DIFF>0,DEA,'ICO37');
DRAWICON(CROSS(DIFF,DEA) AND DIFF<0,DEA,'ICO1');
DRAWICON(ECJC,DEA*0.9,'ICO36') ;模型僅供參考
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)