{"id":25591,"date":"2012-09-21T16:21:00","date_gmt":"2012-09-21T16:21:00","guid":{"rendered":"https:\/\/www.padtinc.com\/2012\/09\/21\/other-stuff-every-user-should-know-about-tables-in-ansys-mechanical-apdl-nesting-and-4-or-5-dimension-tables\/"},"modified":"2022-03-29T19:05:48","modified_gmt":"2022-03-29T19:05:48","slug":"other-stuff-every-user-should-know-about-tables-in-ansys-mechanical-apdl-nesting-and-4-or-5-dimension-tables","status":"publish","type":"post","link":"https:\/\/www.padtinc.com\/2012\/09\/21\/other-stuff-every-user-should-know-about-tables-in-ansys-mechanical-apdl-nesting-and-4-or-5-dimension-tables\/","title":{"rendered":"Other Stuff Every User Should Know about Tables in ANSYS Mechanical APDL: Nesting and 4 or 5 Dimension Tables"},"content":{"rendered":"

\"complicated<\/p>\n

About a month ago we published an article<\/a> on \u201cWhat Every User Should Know About Tables in ANSYS Mechanical APDL\u201d\u00a0 At the end of that article we had a section on \u201cOther Stuff\u201d\u00a0 and expressed our hope to cover those subjects in the future. The future is now.\u00a0 If you are not very familiar with table arrays, make sure you review the previous article before delving into nesting and 4\/5 dimension tables in this article.<\/p>\n

By the way, the funky table at the end of the article got a lot of good feedback, so I\u2019ve googled around and found some other interesting tables. The one here at the top is what you get if you google \u201ccomplicated table\u201d<\/p>\n

\"\"Nested Tables<\/h1>\n

As you will remember from memorizing the previous article, a common use for tables is the set them up to give you a value for a given \u201cprimary variable\u201d that is determined by the solver at a given point in the solution.\u00a0 Possible primary variables are: TIME, FREQ, X, Y, Z, TEMP, VELOCITY, PRESSURE and SECTOR. But what if you want to use one of those primary variables to look up a value, then use that value to then interpolate a second value?<\/p>\n

A good example is that you have a piece of rotating equipment and the value of the heat transfer coefficient (HF) is a function of RPM and the radius of a given element face.\u00a0 But RPM varies over time.\u00a0 What you can do is make the HF table point to and RPM table that is based on the primary variable time:<\/p>\n

\n
*DIM,MYCNV,TABLE,3,3,,RPM,X,,1\n*taxis,mycnv(1,1),1,0,1000,20.01e6\n*taxis,mycnv(1,1),2,0,1,2\nmycnv(1,1) = .25,4,10\nmycnv(1,2) = .35,7,15\nmycnv(1,3) = .45,10,28\n\n*DIM,RPM,TABLE,4,1,1,TIME\nRPM(1,0)=0.0,10.0,40.0,60.0\nRPM(1,1)=0.0,5.0,20.0,30.0\n\nwrttbl,'mycnv','foo4.txt'\nwrttbl, 'rpm','foo5.txt'\n\nSF,ALL,CONV,%mycnv%<\/pre>\n<\/div>\n
This macro is missing stuff, like a model and selecting the nodes to apply the SF command to.<\/p>\n
The tables look like this:<\/p>\n
\n
Table: mycnv    RPM      vs X       \n\n          | 0.000     1.000     2.000    \n          |------------------------------\n 0.000    |0.2500    0.3500    0.4500    \n 1000.    | 4.000     7.000     10.00    \n0.2001E+08| 10.00     15.00     28.00<\/pre>\n<\/div>\n
and<\/p>\n
\n
Table: rpm      TIME     vs         \n\n          |0.7889E-30\n          |----------\n 0.000    | 0.000    \n 10.00    | 5.000    \n 40.00    | 20.00    \n 60.00    | 30.00<\/pre>\n<\/div>\n
(We\u2019ll cover the wrttbl macro below.)<\/p>\n
So at a given substep, the program will take time and figure out what RPM needs to be.\u00a0 Then it will use RPM and the radius (X in CSYS 1) to figure out the convection coefficient for each node.<\/p>\n
As you can imagine, you can get pretty sophisticated with this. The key is that the name of the table you use for the calculated value is input into the variables to interpolate on for the second table, using the *DIM command.<\/p>\n
Another common use is scaling tables based on some value. Let say you have a pressure table and the total pressure is scaled over time, based on time.\u00a0 You would make a pressure table that is dependent on say X and y. It would have two planes. One with 0 values and one with the max values. Then you would make a scale table that scales from 0 to 1 based on time.\u00a0 It would look like this:<\/p>\n
\n
*DIM,pscl,table,5,,,time    !Row label is CPTAB, the table of Cps\n*taxis,pscl(1,1),1,0,1,5,10,30        \npscl(1,1) = .25,.5,1,1,.333\n\n*DIM,ptab,TABLE,4,4,2,X,Y,pscl\n*taxis,ptab(1,1),1,0,1.35,2.75\n*taxis,ptab(1,1),2,-7.2,-3.2,6.5,10.6\n*taxis,ptab(1,1),3,0,1\nptab(1,1,1) = 0,0,0,0\nptab(1,2,1) = 0,0,0,0\nptab(1,3,1) = 0,0,0,0\nptab(1,4,1) = 0,0,0,0\nptab(1,1,2) = 72,48,97,123\nptab(1,2,2) = 53,48,88,98\nptab(1,3,2) = 43,38,77,88\nptab(1,4,2) = 33,28,55,77\n\nSF,ALL,PRESS,%ptab%<\/pre>\n<\/div>\n
<\/h1>\n
As always with tables, double check things and make sure you have your\u00a0 rows and columns correct.\u00a0 Start simple, and then add more detail. Testing out on a 2×2 or 3×3 tables is a good way to start.<\/p>\n
\"\" <\/picture>4 and 5 Dimension Arrays and Tables<\/h1>\n
<\/div>\n
This section applies to both arrays and tables, so it is a bit beyond the scope of the title, but I hope you will forgive me.<\/div>\n
Most users will simply use a one, two, or even three dimension array or table (row, column, plane). However, both arrays and tables support two more dimensions: books and shelves. Because this capability is a later addition to the program, it behaves a little differently. You need to add values for the size of the book (KMAX) and the shelf (MMAX) as well as variable names for each: VAR4 and VAR5<\/p>\n
The first difference is in the *DIM command. For normal arrays and tables you use:<\/p>\n
\n
*DIM, Par, ARRAY, IMAX, JMAX, KMAX, Var1, Var2, Var3, CSYSID \n\n*DIM, Par, TABLE, IMAX, JMAX, KMAX, Var1, Var2, Var3, CSYSID \n\n<\/pre>\n<\/div>\n
For 4 dimension arrays or tables you use:<\/p>\n
\n
\n
*DIM,Par,ARR4,IMAX,JMAX,KMAX,LMAX,Var1,Var2,Var3,Var4,CSYSID\n*DIM,Par,TAB4,IMAX,JMAX,KMAX,LMAX,Var1,Var2,Var3,Var4,CSYSID<\/pre>\n<\/div>\n
For 5 dimension arrays or tables you use:<\/p>\n
\n
*DIM,Par,ARR5,IMAX,JMAX,KMAX,LMAX,MMAX,Var1,Var2,Var3,Var4,Var5,CSYSID\n*DIM,Par,TAB5,IMAX,JMAX,KMAX,LMAX,MMAX,Var1,Var2,Var3,Var4,Var5,CSYSID<\/pre>\n<\/div>\n
It is important to be aware of this because if you look at the manual entry for *DIM it only lists the 3 dimension version of the command, and these variations are covered in the notes.<\/p>\n
Once the array or table is defined you have to fill it using APDL commands, this size is not supported in the user interface. The same commands are used, but instead of supplying one, two or three indices values, you supply four or five.<\/p>\n
The following is an example of defining a table in terms of location (X,Y,Z), Time, and Temperature. This is the most common usage of a five dimension table:<\/p>\n
\n
*dim,ldval,tab5,3,3,3,3,3,X,Y,Z,TIME,TEMP    ! table\n*taxis,ldval(1,1,1,1,1),1,-2.3,0,3.4      ! X Range\n*taxis,ldval(1,1,1,1,1),2,-1.2,0,1.8      ! Y Range\n*taxis,ldval(1,1,1,1,1),3,-3.6,0,4.5      ! Z Range\n*taxis,ldval(1,1,1,1,1),4,0,5,10          ! Time Range\n*taxis,ldval(1,1,1,1,1),5,32,320,500      ! Temp Range\n\n*do,ii,1,3\n  *do,jj,1,3\n    *do,kk,1,3\n      *do,ll,1,3\n        *do,mm,1,3\n          !silly made up equation to fill the table with\n          ldval(ii,jj,kk,ll,mm) = ii*.123+jj\/.2+ll*kk+mm*JJ*JJ\n        *enddo\n      *enddo\n    *enddo\n  *enddo\n*enddo<\/pre>\n<\/div>\n
\"sancal-elipse-floating-coffee-table-rafa-garcia-11\" <\/picture>Writing a Table to a File<\/h1>\n
For simple 2D tables with up to 10 columns, I use a cheesy macro I wrote called wrttbl.mac. It was used above.\u00a0 It is a bit of a brute force method, because it has code blocks for from 0 to 10 columns.\u00a0 A more general approach would build the actual *VWRITE commands with *VWRITES\u2026 It should also be expanded to do Planes.\u00a0 Maybe for a future article.<\/p>\n
Anyhow, here it is, maybe you will find it useful.<\/p>\n
\n
ttbl = arg1\nfname = arg2     \n*get,nrw,parm,%ttbl%,dim,X\n*get,ncl,parm,%ttbl%,dim,Y\n*get,xax,parm,%ttbl%,var,1\n*get,yax,parm,%ttbl%,var,2\n\nnmcl = nint((ncl*10)\/2)\nnmrw = nint(nrw\/2)\n\n*cfopen,%fname%\n\n*vwrite,ttbl,xax,yax\n('Table: ',A,' ',A,' vs ',A) \n*vwrite,\n(x)\n*if,ncl,eq,1,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',10('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii  ,1)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,2,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',20('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,3,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',30('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,4,then\n    \/gopr\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',40('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,5,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',50('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,6,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5),%ttbl%(0,6)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',60('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5),%ttbl%(ii,6)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,7,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5),%ttbl%(0,6),%ttbl%(0,7)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',70('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5),%ttbl%(ii,6),%ttbl%(ii,7)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,8,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5),%ttbl%(0,6),%ttbl%(0,7),%ttbl%(0,8)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',80('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5),%ttbl%(ii,6),%ttbl%(ii,7),%ttbl%(ii,8)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,9,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5),%ttbl%(0,6),%ttbl%(0,7),%ttbl%(0,8),%ttbl%(0,9)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',90('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5),%ttbl%(ii,6),%ttbl%(ii,7),%ttbl%(ii,8),%ttbl%(ii,9)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*if,ncl,eq,10,then\n    *vlen,1\n    *vwrite,%ttbl%(0,1),%ttbl%(0,2),%ttbl%(0,3),%ttbl%(0,4),%ttbl%(0,5),%ttbl%(0,6),%ttbl%(0,7),%ttbl%(0,8),%ttbl%(0,9),%ttbl%(0,10)\n    (10x,'|',10g10.4)\n    *vwrite\n    (10x,'|',100('-'))          |\n    *do,ii,1,nrw\n        *vlen,1\n        *vwrite,%ttbl%(ii,0),%ttbl%(ii,1),%ttbl%(ii,2),%ttbl%(ii,3),%ttbl%(ii,4),%ttbl%(ii,5),%ttbl%(ii,6),%ttbl%(ii,7),%ttbl%(ii,8),%ttbl%(ii,9),%ttbl%(ii,10)\n        (g10.4,'|',10g10.4) \n    *enddo\n*endif\n*cfclose<\/pre>\n<\/div>\n
And with that, I think we have beaten the table topic to death.<\/p>\n
\"naturalistic-curved-wood-table-design-z\" <\/picture><\/p>\n","protected":false},"excerpt":{"rendered":"
About a month ago we published an article on \u201cWhat Every User Should Know About Tables in ANSYS Mechanical APDL\u201d\u00a0 […]<\/p>\n","protected":false},"author":33,"featured_media":2299,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2323],"tags":[],"post-podcast":[],"_links":{"self":[{"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/posts\/25591"}],"collection":[{"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/users\/33"}],"replies":[{"embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/comments?post=25591"}],"version-history":[{"count":0,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/posts\/25591\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/media\/2299"}],"wp:attachment":[{"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/media?parent=25591"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/categories?post=25591"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/tags?post=25591"},{"taxonomy":"post-podcast","embeddable":true,"href":"https:\/\/www.padtinc.com\/wp-json\/wp\/v2\/post-podcast?post=25591"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}