不错的三角形面积，偶改动后的三角形态副图 源码 说明

回到未来58所发三角形面积，偶改动后形成大小三角形形态，在此感谢回到未来的思路。
 

源码

DH:=(MIN(C,O)+2*H)/3;XL:=(MAX(C,O)+2*l)/3;
重心:=(DH+XL)/2;
均价:=AMOUNT/(VOL*100);
折价:=if(INDEXC=C,重心,(重心+均价)/2);
高价线:=(24*H+23*REF(H,1)+22*REF(H,2)+21*REF(H,3)+20*REF(H,4)+19*REF(H,5)+18*REF(H,6)+17*REF(H,7)
+16*REF(H,8)+15*REF(H,9)+14*REF(H,10)+13*REF(H,11)+12*REF(H,12)+11*REF(H,13)+10*REF(H,14)
+9*REF(H,15)+8*REF(H,16)+7*REF(H,17)+6*REF(H,18)+5*REF(H,19)+4*REF(H,20)+3*REF(H,21)+2*REF(H,22)
+REF(H,23))/300,COLORBLUE,LINETHICK1;
低价线:=(24*L+23*REF(L,1)+22*REF(L,2)+21*REF(L,3)+20*REF(L,4)+19*REF(L,5)+18*REF(L,6)+17*REF(L,7)
+16*REF(L,8)+15*REF(L,9)+14*REF(L,10)+13*REF(L,11)+12*REF(L,12)+11*REF(L,13)+10*REF(L,14)
+9*REF(L,15)+8*REF(L,16)+7*REF(L,17)+6*REF(L,18)+5*REF(L,19)+4*REF(L,20)+3*REF(L,21)+2*REF(L,22)
+REF(L,23))/300;
G90:=EMA(高价线,72);
D90:=EMA(低价线,72);
高低线:=(G90+D90)/2;
M3:=MA(折价,3);LM9:=REF(LLV(M3,9),1);
金叉点:=BARSLAST(CROSS(M3,LM9));
XP:=IF(M3>LM9,金叉点,0);
LMX:=LLV(M3,XP);
高:=M3-LMX;
底长:=XP/10;
小三角:底长*高/2,COLORWHITE,LINETHICK2;
FILLRGN(小三角>0,0,小三角),COLORBROWN;
大金:=BARSLAST(CROSS(M3,高低线));
XP1:=IF(M3>高低线,大金,0);
高2:=M3-REF(高低线,XP1);
底长2:=XP1/100;
大三角:底长2*高2/2,COLORRED,LINETHICK;
STICKLINE(大三角>0,0,大三角,6,1),COLORGRAY;
MS2:MA(小三角,2),COLORGREEN;
M1:=MA(折价,1);
高1:=M1-LMX;
底长1:=XP/10;
S三角:=底长1*高1/2,COLORWHITE,LINETHICK1;
STICKLINE(C>=REF(C,1),REF(S三角,1),S三角,3,0),COLORRED;
STICKLINE(C<REF(C,1),REF(S三角,1),S三角,3,0),COLORCYAN;