File: temperature.fbl

package info (click to toggle)
calculix-cgx 2.17%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 65,048 kB
  • sloc: ansic: 99,922; cpp: 3,016; sh: 70; makefile: 35
file content (32 lines) | stat: -rw-r--r-- 520 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
# read geo and mesh
read ../geometry.fbd
elty all he8i
mesh all
# get the number of nodes
stack on
prnt info
stack off
valu nnodes pop 3
prnt v
# generate a new dataset
ds g TEMP 1
# loop over all nodes and use the z coordinate to generate a temperature value
valu nod 0
while nod < nnodes 
  valu nod + nod 1
  valu nod int nod
  stack on
  prnt n nod
  stack off
  valu nz pop 5
  valu temp + nz 293.15
  node nod v temp
endwhile
# set entity parameter
ds e T
# finish the dataset
ds f
# show it
ds 1 e 1
plot fv all