mi_clearselected()
mi_selectsegment(23, 10
mi_selectsegment(36, 18)
mi_selectsegment(40, 10
mi_selectsegment(36, 0)
mi_setsegmentprop("", 0, 1, 0, 3)

x = 30.4

handle = openfile("F_x.txt","a")
handle1 = openfile("F_y.txt","a")

for i = 1, 301 do

mi_clearselected()

mi_analyse(0)

mi_loadsolution()

mo_selectblock(x-1,6)
x_Force = mo_blockintegral(18)
y_Force = mo_blockintegral(19)

write(handle,format("%.5f",x_Force),"\n")
write(handle1,format("%.5f",y_Force),"\n")

mi_selectlabel(x, 10.5)
mi_selectgroup(3)
mi_movetranslate(0.1, 0)

x = x + 0.1


end

closefile(handle)
closefile(handle1)