Page 14 - Demo

Add-on Creator 2%uf09f %uf09f RCP Consult 2021-2025 Page 14 write(buffer, * \ * int(12*t) call GnuplotPlot(nf, trim(buffer)//c_, * \_) call GnuplotPlot(nf, * \_, * \_)! Achieved size of circle (load) l=Load/s_XP_(1) r=0.6d0*l write(buffer,\ * 2.d0,2.d0-r+0.6d0,r call GnuplotPlot(nf, * \ * \_, * trim(buffer)//c_) end if! Invoked version of engine write(buffer,\ * \ at 0.1,0.1 font ''Arial,8''')\ * trim(StrurelEngine) call GnuplotPut(nf, trim(buffer)//c_);! Show a plot call GnuplotShow(nf) call GnuplotEnd() end if end if end if StoneCircularPlot = 0. ier=0 end function! Output function for initial and calculated values character*200 function outV(vc,vi,n,m) real*8 vc, vi integer n,m character*200 buf if(n.eq.0) then write(buf,\vc else buf=\ if(m.eq.2) then write(buf,\vc/vi*100.-100. end if end if outV=buf end functionEach item in the list view contains the full name of the export function with corresponding argumens. The last argument %u2018ier%u2019 is an integer indicating an error during evaluation. It must be set to 0 if everything is Ok. Otherwise set it to a positive number for debugging purposes. This argument is hidden in the description of a DEFFUNC and will be ignored in the count of arguments NA in the list view. The default state of Comment will be taken from comment part of DEFFUNC definition in the Symbolic Editor. Finally, About may be defined manually by selection a RTF formatted file containing description of functionality of the export function of interest. The values in columns %u2013 Comment and About can be altered. A double left mouse click on the cell creates an input edit control to (re-)define the text.