江恩轮中轮（新画法）(飞狐)_指标之家—公式指标程序代码分享—公式指标网

ihzx 发表于 2021-8-21 12:52:37

江恩轮中轮（新画法）(飞狐)

{江恩轮中轮} 
a1:=前M个波谷位置(2,0.1,1); 
a2:=前M个波峰位置(1,0.1,1); 
光标位置:=系统参数(1); 
cldis:=a1[系统参数(1)]; 
chdis:=a2[系统参数(1)]; 
tcl:=光标位置-cldis; 
tch:=光标位置-chdis; 
K1:=IF(tcl>tch,tcl,tch); 
PH:=H; 
PL:=L; 
P1:=IF(tcl>=tch,PL,PH); 
VERTLINE(数据位置=K1),COLORYELLOW,LINEDOT; 
{DRAWTEXT(数据位置=K1,SYSPARAM(4)*0.95,'转\n \n折\n \n点'),COLORYELLOW;} 
IF tcl>=tch THEN BEGIN 
画分段线(数据位置>K1,P1*1.042),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.042,' 15°'+数字转化为字符串(P1*1.042,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.083),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.083,' 30°'+数字转化为字符串(P1*1.083,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.125),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.125,' 45°'+数字转化为字符串(P1*1.125,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.167),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.167,' 60°'+数字转化为字符串(P1*1.167,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.208),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.208,' 75°'+数字转化为字符串(P1*1.208,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.25),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.25,' 90°'+数字转化为字符串(P1*1.25,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.292),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.292,' 105° '+数字转化为字符串(P1*1.292,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.33),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.33,' 120° '+数字转化为字符串(P1*1.33,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.375),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.375,' 135° '+数字转化为字符串(P1*1.375,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.417),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.417,' 150° '+数字转化为字符串(P1*1.417,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.458),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.458,' 165° '+数字转化为字符串(P1*1.458,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.5),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.5,' 180° '+数字转化为字符串(P1*1.5,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.542),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.542,' 195° '+数字转化为字符串(P1*1.542,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.583),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.583,' 210° '+数字转化为字符串(P1*1.583,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.625),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.625,' 225° '+数字转化为字符串(P1*1.625,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.667),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.667,' 240° '+数字转化为字符串(P1*1.667,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.708),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.708,' 255° '+数字转化为字符串(P1*1.708,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.75),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.75,' 270° '+数字转化为字符串(P1*1.75,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.792),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.792,' 285° '+数字转化为字符串(P1*1.792,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.833),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.833,' 300° '+数字转化为字符串(P1*1.833,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.875),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.875,' 315° '+数字转化为字符串(P1*1.875,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.917),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.917,' 330° '+数字转化为字符串(P1*1.917,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*1.958),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*1.958,' 345° '+数字转化为字符串(P1*1.958,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1*2),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1*2,' 360° '+数字转化为字符串(P1*2,3)),COLORYELLOW; 
END; 
{ELSE BEGIN} 
IF tcl<tch THEN BEGIN 
画分段线(数据位置>K1,P1-P1*0.042),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.042,' 15°'+数字转化为字符串(P1-P1*0.042,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.083),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.083,' 30°'+数字转化为字符串(P1-P1*0.083,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.125),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.125,' 45°'+数字转化为字符串(P1-P1*0.125,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.167),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.167,' 60°'+数字转化为字符串(P1-P1*0.167,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.208),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.208,' 75°'+数字转化为字符串(P1-P1*0.208,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.25),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.25,' 90°'+数字转化为字符串(P1-P1*0.25,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.292),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.292,' 105° '+数字转化为字符串(P1-P1*0.292,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.33),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.33,' 120° '+数字转化为字符串(P1-P1*0.33,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.375),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.375,' 135° '+数字转化为字符串(P1-P1*0.375,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.417),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.417,' 150° '+数字转化为字符串(P1-P1*0.417,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.458),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.458,' 165° '+数字转化为字符串(P1-P1*0.458,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.5),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.5,' 180° '+数字转化为字符串(P1-P1*0.5,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.542),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.542,' 195° '+数字转化为字符串(P1-P1*0.542,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.583),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.583,' 210° '+数字转化为字符串(P1-P1*0.583,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.625),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.625,' 225° '+数字转化为字符串(P1-P1*0.625,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.667),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.667,' 240° '+数字转化为字符串(P1-P1*0.667,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.708),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.708,' 255° '+数字转化为字符串(P1-P1*0.708,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.75),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.75,' 270° '+数字转化为字符串(P1-P1*0.75,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.792),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.792,' 285° '+数字转化为字符串(P1-P1*0.792,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.833),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.833,' 300° '+数字转化为字符串(P1-P1*0.833,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.875),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.875,' 315° '+数字转化为字符串(P1-P1*0.875,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.917),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.917,' 330° '+数字转化为字符串(P1-P1*0.917,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1*0.958),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1*0.958,' 345° '+数字转化为字符串(P1-P1*0.958,3)),COLORYELLOW; 
画分段线(数据位置>K1,P1-P1),COLOR00CCFF,LINEDOT; 
显示文字(数据位置=K1,P1-P1,' 360° '+数字转化为字符串(P1-P1,3)),COLORYELLOW; 
END;

页: [1]

指标之家—公式指标程序代码分享—公式指标网's Archiver

江恩轮中轮（新画法）(飞狐)