图片

图片

图片

图片

图片

X := 10;笔参数 := 5;段参数 := 6;// 界说笔的高下点判断条目笔低A := LOW <= LLV(LOW, 笔参数), NODRAW;笔高A := HIGH >= HHV(HIGH, 笔参数), NODRAW;笔低 := 笔低A AND 笔高A = 0, NODRAW;笔高 := 笔高A AND 笔低A = 0, NODRAW;// 狡计笔的肇始和范围点VP1 := BACKSET(笔高, BARSLAST(笔低) + 1);VP2 := BACKSET(笔低, BARSLAST(笔高) + 1);VP3 := (笔低A AND VP2 AND VP1) OR (CROSS(BACKSET(BARSTATUS = 2, BARSLAST(笔低A) + 1), 0.5));VP4 := (VP1 AND 笔高A AND VP2) OR (CROSS(BACKSET(BARSTATUS = 2, BARSLAST(笔高A) + 1), 0.5));// 绘图笔的线段DRAWLINE1(VP3, LOW, VP4, HIGH, 0), NODRAW;DRAWLINE1(VP4, HIGH, VP3, LOW, 0), NODRAW;// 界说段的高下点判断条目段低A := LOW <= LLV(LOW, 段参数 * 笔参数), NODRAW;段高A := HIGH >= HHV(HIGH, 段参数 * 笔参数), NODRAW;段低 := 段低A AND 段高A = 0;段高 := 段高A AND 段低A = 0;// 狡计段的肇始和范围点VP5 := BACKSET(段高, BARSLAST(段低) + 1);VP6 := BACKSET(段低, BARSLAST(段高) + 1);VP7 := (段低A AND VP6 AND VP5) OR (CROSS(BACKSET(BARSTATUS = 2, BARSLAST(段低A) + 1), 0.5));VP8 := (VP5 AND 段高A AND VP6) OR (CROSS(BACKSET(BARSTATUS = 2, BARSLAST(段高A) + 1), 0.5));// 绘图段的线段DRAWLINE1(VP7, LOW, VP8, HIGH, 0), COLORYELLOW,LINETHICK3;DRAWLINE1(VP8, HIGH, VP7, LOW, 0), COLORCYAN,LINETHICK3;DRAWKLINE1(H,O,L,C);DRAWSL(BARSLAST(VP7)<BARSLAST(VP8),REF(L,BARSLAST(VP7)),0,1,0,COLORYELLOW),LINETHICK3;DRAWSL(BARSLAST(VP7)>BARSLAST(VP8),REF(H,BARSLAST(VP8)),0,1,0,COLORCYAN),LINETHICK3; 本站仅提供存储工作，通盘骨子均由用户发布，如发现存害或侵权骨子，请点击举报。