用钻孔数据求岩层产状的BASIC程序

本程序可对一个钻孔连续三次进尺资料的计算,确定在该三次进尺内地下岩层的产状。具速度快、精度高和使用方便的优点,并对在三次进尺内岩层产状有逐渐变化和在度量数据时的人为误差具有一定的处理和纠正能力。例1某钻孔连续三次进尺的数据见表1。该实例在三次进尺内岩层产状逐渐变缓,在赤平投影图上三个小圆既不相交也不相切,需要人为取折中值作为产状。本程序