photoblog.pl
Załóż konto
Dodane 5 GRUDNIA 2010
1129
Dodano: 5 GRUDNIA 2010

 

 

 

 

 

 

 

jest SUPER

Komentarze

~xxxxx [es,et]=plants(ex,ey,ep,D,ed)
[ef]=plantf(ex,ey,ep,es)


X=[es(5,1) es(5,1) es(4,1) es(9,1) es(8,1) es(12,1) es(11,1) es(14,1) es(13,1) es(13,1)]
Y=[0,0.25,0.75,1.25,1.75,2.25,2.75,3.25,3.75,4]
plot2d(X,Y,2)
02/06/2015 14:40:28
~xxxxxxx ey=[
0,0,1;
0,0,1;
0,1,1;
0,1,1;
0,0,1;
1,1,2;
1,2,2;
1,2,2;
1,1,2;
2,2,3;
2,3,3;
2,2,3;
3,4,4;
3,3,4;]


eldraw2(ex,ey,Edof(:,1))


ep=[2,t]

D=hooke(2,E,ni)

//obliczenie macierzy sztywnosci el.
Ke1=plante(ex(1,:),ey(1,:),ep,D)
Ke2=plante(ex(2,:),ey(2,:),ep,D)
Ke3=plante(ex(3,:),ey(3,:),ep,D)
Ke4=plante(ex(4,:),ey(4,:),ep,D)
Ke5=plante(ex(5,:),ey(5,:),ep,D)
Ke6=plante(ex(6,:),ey(6,:),ep,D)
Ke7=plante(ex(7,:),ey(7,:),ep,D)
Ke8=plante(ex(8,:),ey(8,:),ep,D)
Ke9=plante(ex(9,:),ey(9,:),ep,D)
Ke10=plante(ex(10,:),ey(10,:),ep,D)
Ke11=plante(ex(11,:),ey(11,:),ep,D)
Ke12=plante(ex(12,:),ey(12,:),ep,D)
Ke13=plante(ex(13,:),ey(13,:),ep,D)
Ke14=plante(ex(14,:),ey(14,:),ep,D)


K=zeros(28,28)


K=assem(Edof(1,:),K,Ke1)
K=assem(Edof(2,:),K,Ke2)
K=assem(Edof(3,:),K,Ke3)
K=assem(Edof(4,:),K,Ke4)
K=assem(Edof(5,:),K,Ke5)
K=assem(Edof(6,:),K,Ke6)
K=assem(Edof(7,:),K,Ke7)
K=assem(Edof(8,:),K,Ke8)
K=assem(Edof(9,:),K,Ke9)
K=assem(Edof(10,:),K,Ke10)
K=assem(Edof(11,:),K,Ke11)
K=assem(Edof(12,:),K,Ke12)
K=assem(Edof(13,:),K,Ke13)
K=assem(Edof(14,:),K,Ke14)

f=zeros(28,1)
f(25)=100


bc=[1 0;2 0;3 0;4 0;5 0;6 0;7 0;8 0]

[a,r]=solveq(K,f,bc)

ed=extract(Edof,a)

eldisp2(ex,ey,ed)

[es,et]=plants(ex,ey,ep,D,ed)
[ef]=plantf(ex,ey,ep,es)


X=[es(5,1) es(5,1) es(4,1) es(9,1) es(8,1) es(12,1) es(11,1) es(14,1) es(13,1) es(13,1)]
Y=[0,0.25,0.75,1.25,1.75,2.25,2.75,3.25,3.75,4]
plot2d(X,Y,2)
02/06/2015 14:40:05
~xxxxx clear
exec('H:\STUDIA SEM 6\metody\Calfem\eldraw2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\eldisp2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\coordxtr.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\solveq.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\hooke.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\planqe.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\plante.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\assem.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\extract.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\plants.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\statcon.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\plani4s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\plani4e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\planqs.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\bar2e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\bar2s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem\plantf.sci');

E=40000000
ni=0.16667
t=1

Edof=[
1,1,2,3,4,9,10;
2,3,4,5,6,9,10;
3,5,6,11,12,9,10;
4,5,6,13,14,11,12;
5,5,6,7,8,13,14;
6,9,10,11,12,15,16;
7,11,12,17,18,15,16;
8,11,12,19,20,17,18;
9,11,12,13,14,19,20;
10,15,16,17,18,21,22;
11,17,18,23,24,21,22;
12,17,18,19,20,23,24;
13,21,22,27,28,25,26;
14,21,22,23,24,27,28;]

ex=[
0,1,1;
1,3,1;
3,3,1;
3,5,3;
3,5,5;
1,3,2;
3,3,2;
3,5,3;
3,5,5;
2,3,3;
3,5,3;
3,5,5;
3,5,3;
3,5,5;]


ey=[
0,0,1;
02/06/2015 14:39:22
~xxxxx E=40000000000
ni=0.16667
t=1

Edof=[
1,1,2,9,10,7,8;
2,1,2,3,4,9,10;
3,3,4,5,6,9,10;
4,7,8,9,10,13,14;
5,7,8,13,14,11,12;
6,11,12,13,14,17,18;
7,11,12,17,18,15,16]

ex=[
0,3,0;
0,3,3;
3,4,3;
0,3,2;
0,2,0;
0,2,2;
0,2,0]


ey=[
0,1,1;
0,0,1;
0,0,1;
1,1,3;
1,3,3;
3,3,5;
3,5,5]


eldraw2(ex,ey,Edof(:,1))


ep=[2,t]

D=hooke(2,E,ni)

//obliczenie macierzy sztywnosci el.
Ke1=plante(ex(1,:),ey(1,:),ep)
Ke2=plante(ex(2,:),ey(2,:),ep)
Ke3=plante(ex(3,:),ey(3,:),ep)
Ke4=plante(ex(4,:),ey(4,:),ep)
Ke5=plante(ex(5,:),ey(5,:),ep)
Ke6=plante(ex(6,:),ey(6,:),ep)
Ke7=plante(ex(7,:),ey(7,:),ep)


K=zeros(18,18)


K=assem(Edof(1,:),K,Ke1)
K=assem(Edof(2,:),K,Ke2)
K=assem(Edof(3,:),K,Ke3)
K=assem(Edof(4,:),K,Ke4)
K=assem(Edof(5,:),K,Ke5)
K=assem(Edof(6,:),K,Ke6)
K=assem(Edof(7,:),K,Ke7)

f=zeros(18,1)
f(11)=5
f(15)=10

bc=[1 0;2 0;3 0;4 0;5 0;6 0]

[a,r]=solveq(K,f,bc)

ed=extract(Edof,a)

eldisp2(ex,ey,ed)

[es,et]=plants(ex,ey,ep,D,ed)
[ef]=plantf(ex,ey,ep,es)
02/06/2015 14:24:16
~xxxxxx ex=[
0,1,1;
1,3,1;
3,3,1;
3,5,3;
3,5,5;
1,3,2;
3,3,2;
3,5,3;
3,5,5;
2,3,3;
3,5,3;
3,5,5;
3,5,3;
3,5,5]


ey=[
0,0,1;
0,0,1;
0,1,1;
0,1,1;
0,0,1;
1,1,2;
1,2,2;
1,2,2;
1,1,2;
2,2,3;
2,3,3;
2,2,3;
3,4,4;
3,3,4]


eldraw2(ex,ey,Edof(:,1))


ep=[2,t]

D=hooke(2,E,ni)

//obliczenie macierzy sztywnosci el.
Ke1=plante(ex(1,:),ey(1,:),ep)
Ke2=plante(ex(2,:),ey(2,:),ep)
Ke3=plante(ex(3,:),ey(3,:),ep)
Ke4=plante(ex(4,:),ey(4,:),ep)
Ke5=plante(ex(5,:),ey(5,:),ep)
Ke6=plante(ex(6,:),ey(6,:),ep)
Ke7=plante(ex(7,:),ey(7,:),ep)
Ke8=plante(ex(8,:),ey(8,:),ep)
Ke9=plante(ex(9,:),ey(9,:),ep)
Ke10=plante(ex(10,:),ey(10,:),ep)
Ke11=plante(ex(11,:),ey(11,:),ep)
Ke12=plante(ex(12,:),ey(12,:),ep)
Ke13=plante(ex(13,:),ey(13,:),ep)
Ke14=plante(ex(14,:),ey(14,:),ep)


K=zeros(28,28)


K=assem(Edof(1,:),K,Ke1)
K=assem(Edof(2,:),K,Ke2)
K=assem(Edof(3,:),K,Ke3)
K=assem(Edof(4,:),K,Ke4)
K=assem(Edof(5,:),K,Ke5)
K=assem(Edof(6,:),K,Ke6)
K=assem(Edof(7,:),K,Ke7)
K=assem(Edof(8,:),K,Ke8)
K=assem(Edof(9,:),K,Ke9)
K=assem(Edof(10,:),K,Ke10)
K=assem(Edof(11,:),K,Ke11)
K=assem(Edof(12,:),K,Ke12)
K=assem(Edof(13,:),K,Ke13)
K=assem(Edof(14,:),K,Ke14)


f=zeros(28,1)
f(25)=P

bc=[1 0;2 0;3 0;4 0;5 0;6 0;7 0;8 0]

[a,r]=solveq(K,f,bc)

ed=extract(Edof,a)

eldisp2(ex,ey,ed)

[es,et]=plants(ex,ey,ep,D,ed)
[ef]=plantf(ex,ey,ep,es)

E=40000000000
ni=0.16667
t=1

Edof=[
1,1,2,9,10,7,8;
2,1,2,3,4,9,10;
3,3,4,5,6,9,10;
4,7,8,9,10,13,14;
5,7,8,13,14,11,12;
6,11,12,13,14
02/06/2015 14:20:52
~xxxx clear
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\eldraw2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\eldisp2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\coordxtr.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\solveq.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\hooke.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\planqe.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plante.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\assem.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\extract.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plants.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\statcon.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plani4s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plani4e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\planqs.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\bar2e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\bar2s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plantf.sci');


E=40000000
ni=0.16667
t=1
P=100

Edof=[
1,1,2,3,4,9,10;
2,3,4,5,6,9,10;
3,5,6,11,12,9,10;
4,5,6,13,14,11,12;
5,5,6,7,8,13,14;
6,9,10,11,12,15,16;
7,11,12,17,18,15,16;
8,11,12,19,20,17,18;
9,11,12,13,14,19,20;
10,15,16,17,18,21,22;
11,17,18,23,24,21,22;
12,17,18,19,20,23,24;
13,21,22,27,28,25,26;
14,21,22,23,24,27,28]

ex=[
0,1,1;
1,3,1;
3,3,1;
3,5,3;
3,5,5
02/06/2015 14:16:33
~xxxx clear
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\eldraw2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\eldisp2.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\coordxtr.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\solveq.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\hooke.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\planqe.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plante.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\assem.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\extract.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plants.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\statcon.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plani4s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plani4e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\planqs.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\bar2e.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\bar2s.sci');
exec('H:\STUDIA SEM 6\metody\Calfem SEBA\plantf.sci');


E=40000000
ni=0.16667
t=1
P=100

Edof=[
1,1,2,3,4,9,10;
2,3,4,5,6,9,10;
3,5,6,11,12,9,10;
4,5,6,13,14,11,12;
5,5,6,7,8,13,14;
6,9,10,11,12,15,16;
7,11,12,17,18,15,16;
8,11,12,19,20,17,18;
9,11,12,13,14,19,20;
10,15,16,17,18,21,22;
11,17,18,23,24,21,22;
12,17,18,19,20,23,24;
13,21,22,27,28,25,26;
14,21,22,23,24,27,28]

ex=[
0,1,1;
1,3,1;
3,3,1;
3,5,3;
3,5,5
02/06/2015 14:16:08
~gosc Siemanko jajcarze, zapraszam: fbl.me/zdjecia#1507
04/10/2013 17:49:21
~Kulturysta Jajcarze dawaj
01/06/2011 15:21:49
~Kulturysta Jajcarze odezwijće śe
01/06/2011 15:19:35
~Mariusz Siemafakejamaja
01/06/2011 14:30:40
~Kulturysta Kurde faja piszcie coś nudy na pudy mmmaaa
31/05/2011 20:10:57
~Kulturysta Ląj laj pocichu sraj
31/05/2011 20:07:48
~Kulturysta A teraz możemy zacząć pisać do siebie
31/05/2011 20:05:38
~Kulturysta Jestem nowy muj opis chodze na siłownie mam 25.lat waga 135.kg obwud ręki 67.cm wycisk na klate 320.kg wzrost 2.5.m karzdy muwi rze jestem mutantem i karzdy mnie się boji
31/05/2011 20:02:44
~witaaam http://sendables.jibjab.com/view/V6xycNEb9ITx54Hh
31/01/2011 21:45:18
~krolowaxsniegu deeej mi micheee! bedeee RZYGOŁ!
16/12/2010 20:46:57
~mati wybieraj lokal:D
08/12/2010 12:51:23
~pankrzysiu Mati kiedy jakies piwkoo?:D
08/12/2010 8:44:07