以下是飞狐和通达信一桩系四马副图源码（无源码的请下载附件导入）

飞狐和通达信一桩系四马副图源码

飞狐源码

{来源于: 公式在线网WWW.gszx.com.cn}
N:=6;
均价:=(2*C+(H-L)/2+L+o)/4;
价差:=SUM(均价-REF(均价,1),3)/3;
实价:=(均价+价差);
白马:(-100*(HHV(实价,N*2)-(实价+均价)/2)/(HHV(实价,N*2)-LLV(均价,N*2)))+100,COLORWHITE;
黄马:(-100*(HHV(实价,N*3)-(实价+均价)/2)/(HHV(实价,N*3)-LLV(均价,N*3)))+100,COLORYELLOW;
青马:(-100*(HHV(实价,N*4)-(实价+均价)/2)/(HHV(实价,N*4)-LLV(均价,N*4)))+100,COLORAAAA00;
黑马:(-100*(HHV(实价,N*5)-(实价+均价)/2)/(HHV(实价,N*5)-LLV(均价,N*5)))+100,COLORBROWN,LINETHICK2;
PARTLINE(黑马<ref(黑马,1),黑马),COLORBLACK,LINETHICK2;
马桩:ema(-100*(HHV(实价,N*7)-(实价+均价)/2)/(HHV(实价,N*7)-LLV(均价,N*7)),N*7)+100,COLOR9900FF,linethick2;
PARTLINE(马桩<ref(马桩,1),马桩),COLOR00bb00,LINETHICK2;
20,LINEDOT;
50,LINEDOT;
80;
通达信源码。
N:=6;
均价:=(2*C+(H-L)/2+L+o)/4;
价差:=SUM(均价-REF(均价,1),3)/3;
实价:=(均价+价差);
白马:(-100*(HHV(实价,N*2)-(实价+均价)/2)/(HHV(实价,N*2)-LLV(均价,N*2)))+100,COLORWHITE;
黄马:(-100*(HHV(实价,N*3)-(实价+均价)/2)/(HHV(实价,N*3)-LLV(均价,N*3)))+100,COLORYELLOW;
青马:(-100*(HHV(实价,N*4)-(实价+均价)/2)/(HHV(实价,N*4)-LLV(均价,N*4)))+100,COLORAAAA00;
黑马:(-100*(HHV(实价,N*5)-(实价+均价)/2)/(HHV(实价,N*5)-LLV(均价,N*5)))+100,COLORBROWN,LINETHICK2;
IF(黑马<ref(黑马,1),黑马,DRAWNULL),COLORBLACK,LINETHICK2;
马桩:ema(-100*(HHV(实价,N*7)-(实价+均价)/2)/(HHV(实价,N*7)-LLV(均价,N*7)),N*7)+100,COLOR9900FF,linethick2;
IF(马桩<ref(马桩,1),马桩,DRAWNULL),COLOR00bb00,LINETHICK2;
20;
50;
80;