Page 13 - Demo

Add-on Creator 2%uf09f %uf09f RCP Consult 2021-2026 Page 13 * trim(StrurelIMET),trim(StrurelIOPT) call GnuplotPut(nf, trim(buffer)//c_) write(buffer,\ * \ * \ * 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,\ * \ * \! Legend for invoked values write(buffer, \ * \ * trim(Strength$), * trim(outV(Strength,s_XP_(2),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(Diameter$), * trim(outV(Diameter,s_XP_(3),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(Load$), * trim(outV(Load,s_XP_(1),1,StrurelMode)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(PAR1$), * trim(outV(PAR1,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(PAR2$), * trim(outV(PAR2,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(Strength$), * trim(outV(Strength,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(Diameter$), * trim(outV(Diameter,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * trim(Load$), * trim(outV(Load,0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) write(buffer, \ * \ * \ * trim(outV(FLIM(13),0.d0,0,0)) call GnuplotPut(nf, trim(buffer)//c_) if(StrurelMode.eq.2) then write(buffer, * \ * \ * StrurelRun call GnuplotPut(nf, trim(buffer)//c_)! Achieved thickness of wire t=(Strength*(Diameter**2))/(s_XP_(2)*s_XP_(3)**2)