请教如何实现如下功能

百越商用-石

   从本周期第二根k线开始，逐根向前比较最高价和最低价，如果当前k最高价<前K最高价 并且 当前k最低价<前k最低价，则画一条从前k最高点到当前k最低点的线段，如果当前k最高价>前K最高价 并且 当前k最低价>前k最低价，则画一条从前k最低点到当前k最高点的线段，如果前k和当前k的最高价和最低价存在包含关系，则将二者按前面线段的方向做出一根新的虚拟k线，如果前线段是向上的，则此k的价格范围为两根包含k线的最大的最高价和最大的最低价，并记录，等待新k线出现后再与此虚拟k线进行比较继续画线，同理前线段向下的 。  使用perl语言如何大体实现，麻烦给下思路和大体的实现方法  谢谢！

技术009

“则将二者按前面线段的方向做出一根新的虚拟k线” 这个处理不了的，现有的函数没有能处理这个的。后续基于这虚拟K线的逻辑也都无法处理。在虚拟K基础上画线更无法操作了。
你这个需求整体下来并不是一个简单需求的。我们的pel函数绝对部分都是面向交易下单指标的，这种看盘类的需求的实现，局限性很大。