Page 13 - Demo

Add-on Creator 2%uf09f %uf09f RCP Consult 2021-2025 Page 13 * trim(StrurelIMET),trim(StrurelIOPT) call GnuplotPut(nf, trim(buffer)//c_) write(buffer,\ * \, Pf=',f9.5,'''\ * \ at 1,4.1 font ''Arial,12''')\ * StrurelBeta,StrurelPf call GnuplotPut(nf, trim(buffer)//c_) end if! Plot initial state - initial thickness of wire call GnuplotPlot(nf, * \_, * \_); call GnuplotPlot(nf, * \_, * \_);! Initial size of circle (load) call GnuplotPlot(nf,\ * \2 fill transparent solid border lt 1 notitle\_, * \_)! Legend for invoked values write(buffer, \ * \ at 2.1,3.2 font ''Arial,12''')\ * trim(Strength$), * trim(outV(Strength,s_XP_(2),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 2.1,3.0 font ''Arial,12''')\ * trim(Diameter$), * trim(outV(Diameter,s_XP_(3),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 2.05,2.0 center font ''Arial,12''')\ * trim(Load$), * trim(outV(Load,s_XP_(1),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,3.7 font ''Arial,12''')\ * trim(PAR1$), * trim(outV(PAR1,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,3.5 font ''Arial,12''')\ * trim(PAR2$), * trim(outV(PAR2,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,3.3 font ''Arial,12''')\ * trim(Strength$), * trim(outV(Strength,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,3.1 font ''Arial,12''')\ * trim(Diameter$), * trim(outV(Diameter,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,2.9 font ''Arial,12''')\ * trim(Load$), * trim(outV(Load,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ at 5,2.5 font ''Arial,12''')\ * \ * trim(outV(FLIM(13),0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) if(StrurelMode.eq.2) then write(buffer, * \ * \ at 5,2.1 font ''Arial,12''')\ * StrurelRun call GnuplotPut(nf, trim(buffer)//c_)! Achieved thickness of wire t=(Strength*(Diameter**2))/(s_XP_(2)*s_XP_(3)**2)