当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：《射线+黄金分割》主图源码
软件名称：[B]《射线+黄金分割》主图源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：12.0 KB
官方主页：Home Page
更新时间：2015-12-06 00:43:16
软件简介:
{射线加黄金分割}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),COLORRED;
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,8,0),COLORRED;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),COLORCYAN;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,8,0),COLORCYAN;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
{WWW.70822.com_大智慧股票指标公式}
LC:=REF(C,1);
卖黄金:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
STICKLINE(CROSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00FFFF,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00FFFF,LAYER0;
X:=BARSLAST(DISPSTATUS=1)+1;
AH:=HHVALL(HHV(H,X));
AL:=LLVALL(LLV(L,X));
NNL:=DISPSTATUS=2;
DRAWLINE(H>=AH,AH,AH,AH,1),COLOR0000FF,LINETHICK1;
DRAWLINE(H>=AH,AH,AL>=L,AL,1),COLOR9999FF,LINETHICK1;
DRAWLINE(H>=AH,AH,AH,AH*0.999,1);
DRAWLINE(H>=AH,AH,AH,AH*0.997,1);
DRAWLINE(H>=AH,AH,AH,AH*0.995,1);
DRAWLINE(H>=AH,AH,AH,AH*0.993,1);
DRAWLINE(H>=AH,AH,AH,AH*0.991,1);
DRAWLINE(H>=AH,AH,AH,AH*0.989,1);
DRAWLINE(H>=AH,AH,AH,AH*0.987,1);
DRAWLINE(H>=AH,AH,AH,AH*0.984,1);
DRAWLINE(H>=AH,AH,AH,AH*0.981,1);
DRAWLINE(H>=AH,AH,AH,AH*0.976,1);
DRAWLINE( AL>=L,AL,AL , AL,1),COLOR00FF00,LINETHICK1;
DRAWLINE(AL>=L,AL,NNL ,AH,1),COLOR00FFFF,LINETHICK1;
DRAWLINE( AL>=L,AL,AL ,AL*1.15,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.09,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.06,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.04,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.03,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.025,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.02,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.015,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.011,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.007,1);
DRAWLINE( AL>=L,AL,AL ,AL*1.003,1);
AHL:=AH-AL;
Q191:=AL+AHL*0.191;
Q382:=AL+AHL*0.382;
Q500:=AL+AHL*0.500;
Q618:=AL+AHL*0.618;
Q809:=AL+AHL*0.809;
DRAWTEXT(NNL,AH,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000FF;
DRAWTEXT(NNL,Q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;
DRAWTEXT(NNL,Q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;
DRAWTEXT(NNL,Q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORFF00FF;
DRAWTEXT(NNL,Q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;
DRAWTEXT(NNL,Q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;
DRAWTEXT(NNL,AL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00FF00;
DRAWTEXT(NNL,AH*0.998,'最高价：'+AH+'元'),ALIGN0,COLOR0047FF,LINETHICK2;
DRAWTEXT(NNL,Q809,'80.9%：' +Q809+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;
DRAWTEXT(NNL,Q618,'61.8%：'+Q618+'元'),ALIGN0,COLOR0047FF,LINETHICK2;
DRAWTEXT(NNL,Q500,'50%：'+Q500+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;
DRAWTEXT(NNL,Q382,'38.2%：'+Q382+'元'),ALIGN0,COLOR0047FF,LINETHICK2;
DRAWTEXT(NNL,Q191,'19.1%：'+Q191+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;
DRAWTEXT(NNL,AL*1.01,'最低价：'+AL+'元'),ALIGN0,VALIGN2,COLOR0047FF,LINETHICK2;
BBI:=(2*C+H+L+O/2)/4.5;
心:EMA(((SLOPE(BBI,18)*27)+BBI),45),COLOR00FFFF,DOTLINE;
PARTLINE(心,心>REF(心,1),RGB(255,0,0)),LINETHICK4,LAYER0;
诚:(8*BBI+7*REF(BBI,1)+6*REF(BBI,2)+5*REF(BBI,3)+4*REF(BBI,4)+3*REF(BBI,5)+2*REF(BBI,6)+1*REF(BBI,7))/36,COLORFF00FF,LINETHICK2;
PARTLINE(诚,诚<REF(诚,1),RGB(0,255,0)),LINETHICK3,LAYER0;
DRAWGBK(心>REF(心,1),STRIP(RGB(0,0,255),RGB(120,0,80),0)),LAYER0;
[url=http://www.70822.com/soft/sort013/sort03/down-91947.html]《射线+黄金分割》主图源码[/url]