def cab_parm
array x_b(4,3), z_b(4,3)
y0 = -3
x_b(1,1) = 0.8
x_b(2,1) = 2.1
x_b(3,1) = 3.5
x_b(4,1) = 5.5
z_b(1,1) = 5.5
z_b(2,1) = 2.4
z_b(3,1) = 4.7
z_b(4,1) = 1.5
x_b(1,2) = 0.8
x_b(2,2) = 0.8
x_b(3,2) = 3.5
x_b(4,2) = 5.5
z_b(1,2) = 0.6
z_b(2,2) = 4.0
z_b(3,2) = 2.4
z_b(4,2) = 0.6
x_b(1,3) = 0.8
x_b(2,3) = 2.6
x_b(3,3) = 5.0
x_b(4,3) = 3.5
z_b(1,3) = 2.4
z_b(2,3) = 4.0
z_b(3,3) = 3.0
z_b(4,3) = 0.6
end
def inip
x1 = x_b(1,iidx)
x2 = x_b(2,iidx)
x3 = x_b(3,iidx)
x4 = x_b(4,iidx)
z1 = z_b(1,iidx)
z2 = z_b(2,iidx)
z3 = z_b(3,iidx)
z4 = z_b(4,iidx)
end
cab_parm