相關標簽:

?

趨勢主圖（阻力、支撐）input: k(2,0,2),n(10,1,255),p1(3,1,255);
cxh9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3))
or ref(c,1)=hhv(c,4) and close>=ref(c,2)
or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1)
or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
紅持:cxh9Q,color0000ff,LINETHICK0;
cxhaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
粉變:cxhaQ,colorff99ff,LINETHICK0;
cxhbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3))
or ref(c,1)=llv(c,4) and c<ref(c,2)
or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1)
or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
灰跌:cxhbQ,color888888,LINETHICK0;
cxhcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4)
and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
綠買:cxhcQ,color00ff00,LINETHICK0;
cxhdQ:=ref(c,1)=hhv(c,4) and c<ref(c,2)
or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3)
or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2))
and ref(c,2)>=ref(c,4) and c<ref(c,1);
藍拋:cxhdQ,colorff9900,LINETHICK0;
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
今日阻力:REF(明日阻力 , 1),LINETHICK0;
今日支撐:REF(明日支撐 , 1),LINETHICK0;
STICKLINE(BARSTATUS=2and c>=今日阻力,今日阻力,今日阻力,20,0),Color0000FF;
STICKLINE(BARSTATUS=2and c<今日阻力,今日阻力,今日阻力,20,0),Color00FF00;
STICKLINE(BARSTATUS=2and c>=今日支撐,今日支撐,今日支撐,20,0),ColorFF00FF;
STICKLINE(BARSTATUS=2and c<今日支撐,今日支撐,今日支撐,20,0),ColorFF0000;
{M30:EMA(C,30);
M60:EMA(C,60);}
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
IF DATATYPE=8 AND K=1 then begin
partline(c*2-ref(c,3),c>0),MOVE3,color008888,LAYER7;
partline(ref(c,1)*2-ref(c,4),c>0),MOVE2,color008800,LAYER7;
partline(ref(c,2)*2-ref(c,5),c>0),MOVE1,color883388,LAYER7;
M30:EMA(C,30),color660066;
M60:EMA(C,60),color000066;
END;
wWj:='';
wyy1:=WEEKDAY;
if C>0 then begin;
wWj:=' 星期';
IF wyy1=5 then wWj:= wWj+'五';
IF wyy1=4 then wWj:= wWj+'四';
IF wyy1=3 then wWj:= wWj+'三';
IF wyy1=2 then wWj:= wWj+'二';
IF wyy1=1 then wWj:= wWj+'一';
end;
wWl:='';
wWh:='';
wyy2:=LMONTH;
wyy3:=LDAY;
IF BARSTATUS=2 then wWw:=' 農(nóng)歷 '+NUMTOSTRN(wyy2,0)+'月 '+NUMTOSTRN(wyy3,0)+'日';
IF BARSTATUS=2 then wWh:=NUMTOSTRN(date+1000000,0);
IF BARSTATUS=2 then wWl:=wWj;
DRAWTEXTREL(20 ,40 ,' '+wWh+wWl+wWw),LINETHICK3,ColorFFFF80;
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
DRAWTEXTREL(20,30,'趨勢主圖'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,30,STKLABEL+' '+STKNAME),LINETHICK6,ColorFFFF80;
if DISPSTATUS=2 then begin;
cxh100:='所屬板塊:';
if inblock('電力')=1 then cxh100:=cxh100+' 電力';
if inblock('電腦')=1 then cxh100:=cxh100+' 電腦';
if inblock('電器')=1 then cxh100:=cxh100+' 電器';
if inblock('電子信息')=1 then cxh100:=cxh100+' 電子信息';
if inblock('房地產(chǎn)')=1 then cxh100:=cxh100+' 房地產(chǎn)';
if inblock('紡織服裝')=1 then cxh100:=cxh100+' 紡織服裝';
if inblock('鋼鐵')=1 then cxh100:=cxh100+' 鋼鐵';
if inblock('工程建筑')=1 then cxh100:=cxh100+' 工程建筑';
if inblock('供水供氣')=1 then cxh100:=cxh100+' 供水供氣';
if inblock('化工')=1 then cxh100:=cxh100+' 化工';
if inblock('化纖')=1 then cxh100:=cxh100+' 化纖';
if inblock('機械')=1 then cxh100:=cxh100+' 機械';
if inblock('建材')=1 then cxh100:=cxh100+' 建材';
if inblock('交通工具')=1 then cxh100:=cxh100+' 交通工具';
if inblock('交通設施')=1 then cxh100:=cxh100+' 交通設施';
if inblock('教育傳媒')=1 then cxh100:=cxh100+' 教育傳媒';
if inblock('金融')=1 then cxh100:=cxh100+' 金融';
if inblock('旅游酒店')=1 then cxh100:=cxh100+' 旅游酒店';
if inblock('煤炭石油')=1 then cxh100:=cxh100+' 煤炭石油';
if inblock('釀酒食品')=1 then cxh100:=cxh100+' 釀酒食品';
if inblock('農(nóng)林牧漁')=1 then cxh100:=cxh100+' 農(nóng)林牧漁';
if inblock('其他行業(yè)')=1 then cxh100:=cxh100+' 其他行業(yè)';
if inblock('汽車')=1 then cxh100:=cxh100+' 汽車';
if inblock('汽配')=1 then cxh100:=cxh100+' 汽配';
if inblock('商業(yè)連鎖')=1 then cxh100:=cxh100+' 商業(yè)連鎖';
if inblock('石化')=1 then cxh100:=cxh100+' 石化';
if inblock('通信')=1 then cxh100:=cxh100+' 通信';
if inblock('外貿(mào)')=1 then cxh100:=cxh100+' 外貿(mào)';
if inblock('醫(yī)藥')=1 then cxh100:=cxh100+' 醫(yī)藥';
if inblock('儀電儀表')=1 then cxh100:=cxh100+' 儀電儀表';
if inblock('有色金屬')=1 then cxh100:=cxh100+' 有色金屬';
if inblock('運輸物流')=1 then cxh100:=cxh100+' 運輸物流';
if inblock('造紙印刷')=1 then cxh100:=cxh100+' 造紙印刷';
if inblock('安徽')=1 then cxh100:=cxh100+' 安徽';
if inblock('北京')=1 then cxh100:=cxh100+' 北京';
if inblock('福建')=1 then cxh100:=cxh100+' 福建';
if inblock('甘肅')=1 then cxh100:=cxh100+' 甘肅';
if inblock('廣東')=1 then cxh100:=cxh100+' 廣東';
if inblock('廣西')=1 then cxh100:=cxh100+' 廣西';
if inblock('貴州')=1 then cxh100:=cxh100+' 貴州';
if inblock('海南')=1 then cxh100:=cxh100+' 海南';
if inblock('河北')=1 then cxh100:=cxh100+' 河北';
if inblock('河南')=1 then cxh100:=cxh100+' 河南';
if inblock('黑龍江')=1 then cxh100:=cxh100+' 黑龍江';
if inblock('湖北')=1 then cxh100:=cxh100+' 湖北';
if inblock('湖南')=1 then cxh100:=cxh100+' 湖南';
if inblock('吉林')=1 then cxh100:=cxh100+' 吉林';
if inblock('江蘇')=1 then cxh100:=cxh100+' 江蘇';
if inblock('江西')=1 then cxh100:=cxh100+' 江西';
if inblock('遼寧')=1 then cxh100:=cxh100+' 遼寧';
if inblock('內(nèi)蒙古')=1 then cxh100:=cxh100+' 內(nèi)蒙古';
if inblock('寧夏')=1 then cxh100:=cxh100+' 寧夏';
if inblock('青海')=1 then cxh100:=cxh100+' 青海';
if inblock('山東')=1 then cxh100:=cxh100+' 山東';
if inblock('山西')=1 then cxh100:=cxh100+' 山西';
if inblock('陜西')=1 then cxh100:=cxh100+' 陜西';
if inblock('上海')=1 then cxh100:=cxh100+' 上海';
if inblock('深圳')=1 then cxh100:=cxh100+' 深圳';
if inblock('四川')=1 then cxh100:=cxh100+' 四川';
if inblock('天津')=1 then cxh100:=cxh100+' 天津';
if inblock('***')=1 then cxh100:=cxh100+' ***';
if inblock('新疆')=1 then cxh100:=cxh100+' 新疆';
if inblock('云南')=1 then cxh100:=cxh100+' 云南';
if inblock('浙江')=1 then cxh100:=cxh100+' 浙江';
if inblock('重慶')=1 then cxh100:=cxh100+' 重慶';
if inblock('3G')=1 then cxh100:=cxh100+' 3G';
if inblock('H股')=1 then cxh100:=cxh100+' H股';
if inblock('QFII持股')=1 then cxh100:=cxh100+' QFII持股';
if inblock('ST')=1 then cxh100:=cxh100+' ST';
if inblock('奧運')=1 then cxh100:=cxh100+' 奧運';
if inblock('創(chuàng)投')=1 then cxh100:=cxh100+' 創(chuàng)投';
if inblock('次新股')=1 then cxh100:=cxh100+' 次新股';
if inblock('大盤')=1 then cxh100:=cxh100+' 大盤';
if inblock('股權改革')=1 then cxh100:=cxh100+' 股權改革';
if inblock('股權投資')=1 then cxh100:=cxh100+' 股權投資';
end;
{TH:=DYNAINFO(39);}
換手率:=100*v/capital;
RH:=H-L;
R:=DYNAINFO(13)*100;
IF C>0 AND DISPSTATUS=2THEN
DRAWTEXTREL(20,840,'當日振幅:'+NUMTOSTRN(R,2)+'% &

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?

 

有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友

可聯(lián)系技術人員 QQ: 262069696  或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數(shù)限制，QQ或微信請選擇方便的一個聯(lián)系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)

（怎么收費，代編流程等詳情請點擊查閱！）

(注：由于人數(shù)限制，QQ或微信請選擇方便的一個聯(lián)系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)