Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
Path: blob/devel/fem/tests/Beam_3D_Spring/wire2spring.m
5225 views
1
load spring/mesh.nodes
2
t=mesh(:,3);
3
s=(2+10*pi)*t-1;
4
x=cos(s);
5
y=sin(s);
6
z=0.1*s/pi;
7
dz=1.0-10*pi;
8
9
s1=0.0;
10
msk=find(s<s1);
11
x(msk)=cos(s1);
12
y(msk)=sin(s1);
13
z(msk)=s(msk);
14
15
s2=10*pi;
16
msk=find(s>s2);
17
x(msk)=cos(2*s2);
18
y(msk)=sin(2*s2);
19
z(msk)=s(msk)+dz;
20
21
mesh(:,3)=x;
22
mesh(:,4)=y;
23
mesh(:,5)=z;
24
25
n=size(s);
26
27
28
file_id = fopen('spring/mesh.nodes', 'w');
29
for i=1:n
30
fprintf(file_id,"%d %d %f %f %f\n",i,-1,x(i),y(i),z(i));
31
endfor
32
fclose(file_id);
33
34