Prethodna tema :: Sljedeća tema |
Autor/ica |
Poruka |
predrag Forumaš(ica)
Pridružen/a: 02. 04. 2008. (15:35:11) Postovi: (4)16
Lokacija: Zagreb
|
|
[Vrh] |
|
vsego Site Admin
Pridružen/a: 06. 10. 2002. (22:07:09) Postovi: (3560)16
Spol:
Lokacija: /sbin/init
|
|
[Vrh] |
|
Kruno Forumaš(ica)
Pridružen/a: 07. 11. 2003. (18:06:24) Postovi: (7B)16
Spol:
Lokacija: RC
|
|
[Vrh] |
|
goranm Forumaš(ica)
Pridružen/a: 12. 11. 2002. (20:09:12) Postovi: (906)16
Spol:
|
|
[Vrh] |
|
pero Forumaš(ica)
Pridružen/a: 02. 02. 2005. (17:13:37) Postovi: (81)16
Spol:
|
Postano: 19:35 uto, 20. 5. 2008 Naslov: |
|
|
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Win XP
[code:1]
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.188
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.563
[/code:1]
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Ubuntu 8.04
[code:1]
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.296018
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.7203
[/code:1]
Procesor: Intel Core 2 Duo T7100 1800 MHz
RAM: 2 MB
OS: Win Vista
[code:1]
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.172
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.68 [/code:1]
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Win XP
Kod: |
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.188
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.563
|
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Ubuntu 8.04
Kod: |
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.296018
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.7203
|
Procesor: Intel Core 2 Duo T7100 1800 MHz
RAM: 2 MB
OS: Win Vista
Kod: |
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.172
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.68 |
|
|
[Vrh] |
|
Novi Forumaš(ica)
Pridružen/a: 17. 07. 2007. (12:08:32) Postovi: (11F)16
Spol:
|
Postano: 20:34 uto, 20. 5. 2008 Naslov: |
|
|
[quote]Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Win XP
Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.188
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.563
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Ubuntu 8.04
Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.296018
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.7203
[/quote]
Jel ce ovo rec da je XP brzi od Ubuntua? :lol:
Citat: | Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Win XP
Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.188
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.563
Procesor: AMD Athlon 64 3000+, 1800 MHz
RAM: 512 MB
OS: Ubuntu 8.04
Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.296018
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]
4.7203
|
Jel ce ovo rec da je XP brzi od Ubuntua?
|
|
[Vrh] |
|
Markec Forumaš(ica)
Pridružen/a: 20. 02. 2003. (14:49:45) Postovi: (134)16
Spol:
|
|
[Vrh] |
|
rafaelm Forumaš(ica)
Pridružen/a: 24. 12. 2006. (13:30:11) Postovi: (21F)16
Spol:
Lokacija: Zagreb
|
Postano: 21:25 uto, 20. 5. 2008 Naslov: |
|
|
Celeron 1.5GHz, 512 RAM, WinXP
[code:1]
Timing[SetPrecision[Sin[Log[3]],10000];]
{0.266 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{10.375 Second,Null}[/code:1]
Celeron 1.5GHz, 512 RAM, WinXP
Kod: |
Timing[SetPrecision[Sin[Log[3]],10000];]
{0.266 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{10.375 Second,Null} |
_________________ Rafael Mrđen
|
|
[Vrh] |
|
Luuka Forumaš(ica)
Pridružen/a: 13. 02. 2007. (20:34:54) Postovi: (925)16
Spol:
Lokacija: Hakuna Matata
|
Postano: 21:43 uto, 20. 5. 2008 Naslov: |
|
|
AMD Athlon 2500+ @1.84GHz
512MB RAM
Win XP
Mathematica 5.0
[code:1]Timing[SetPrecision[Sin[Log[3]],10000];]
{0.25 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{8.406 Second,Null}
[/code:1]
Intel CoredDuo @1.66GHz
2GB RAM
Win XP
Mathematica 5.0
[code:1]Timing[SetPrecision[Sin[Log[3]],10000];]
{0.469 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{14.125 Second,Null}[/code:1]
AMD Athlon 2500+ @1.84GHz
512MB RAM
Win XP
Mathematica 5.0
Kod: | Timing[SetPrecision[Sin[Log[3]],10000];]
{0.25 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{8.406 Second,Null}
|
Intel CoredDuo @1.66GHz
2GB RAM
Win XP
Mathematica 5.0
Kod: | Timing[SetPrecision[Sin[Log[3]],10000];]
{0.469 Second,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{14.125 Second,Null} |
_________________ "Bolje bi prolazio na faxu da sam na drogama nego na netu" - by a friend of mine
"Poslije spavanja doma spavanje bilo di mi je najdraža stvar" - by the same guy
|
|
[Vrh] |
|
alen Forumaš(ica)
Pridružen/a: 14. 10. 2005. (23:25:58) Postovi: (221)16
|
Postano: 6:09 sri, 21. 5. 2008 Naslov: |
|
|
Intel Core 2 Duo 1.87 GHz
3GB RAM
Win XP
Mathematica 6.0
[code:1]Timing[SetPrecision[Sin[Log[3]],10000];]
{0.156,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{4.344,Null}
[/code:1]
Intel Core 2 Duo 1.87 GHz
3GB RAM
Win XP
Mathematica 6.0
Kod: | Timing[SetPrecision[Sin[Log[3]],10000];]
{0.156,Null}
Timing[SetPrecision[Sin[Log[3]],100000];]
{4.344,Null}
|
_________________ Između ostalog, mislim da bi kolegij mjera i integral trebao imati svoj podforum među kolegijima treće godine
|
|
[Vrh] |
|
matmih Forumaš(ica)
Pridružen/a: 07. 12. 2006. (22:57:42) Postovi: (1A4)16
Spol:
Lokacija: {Zg, De , Ri}
|
|
[Vrh] |
|
Smith Forumaš(ica)
Pridružen/a: 30. 10. 2004. (23:30:23) Postovi: (178)16
Spol:
Lokacija: {Tamo Gore}^{TM}
|
|
[Vrh] |
|
predrag Forumaš(ica)
Pridružen/a: 02. 04. 2008. (15:35:11) Postovi: (4)16
Lokacija: Zagreb
|
|
[Vrh] |
|
luce Forumaš(ica)
Pridružen/a: 08. 02. 2006. (19:47:22) Postovi: (5A)16
Spol:
|
|
[Vrh] |
|
HijenA Forumaš(ica)
Pridružen/a: 23. 01. 2004. (16:46:04) Postovi: (3D2)16
Spol:
Lokacija: Prazan skup ;-)
|
|
[Vrh] |
|
darioo Forumaš(ica)
Pridružen/a: 06. 02. 2005. (14:26:16) Postovi: (9)16
|
|
[Vrh] |
|
mibo Forumaš(ica)
Pridružen/a: 04. 10. 2007. (14:52:50) Postovi: (51)16
Spol:
Lokacija: /var/tmp
|
Postano: 15:20 pet, 23. 5. 2008 Naslov: The Winner (for now) |
|
|
:bis:[b]And the winner is:[/b]:bis:
CPU: AMD Turion (tm) 64 X2 1,6 GHz
RAM: 896 MB
OS: M$ Win XP Professional [b]x64[/b] SP1
Mathematica 6.0.2.0
[code:1]Timing[SetPrecision[Sin[Log[3]], 10000];]
Timing[SetPrecision[Sin[Log[3]], 100000];]
{0.094, Null}
{2.265, Null}[/code:1]
And the winner is:
CPU: AMD Turion (tm) 64 X2 1,6 GHz
RAM: 896 MB
OS: M$ Win XP Professional x64 SP1
Mathematica 6.0.2.0
Kod: | Timing[SetPrecision[Sin[Log[3]], 10000];]
Timing[SetPrecision[Sin[Log[3]], 100000];]
{0.094, Null}
{2.265, Null} |
_________________ WAR IS PEACE
FREEDOM IS SLAVERY
IGNORANCE IS STRENGTH
George Orwell: 1984
|
|
[Vrh] |
|
vsego Site Admin
Pridružen/a: 06. 10. 2002. (22:07:09) Postovi: (3560)16
Spol:
Lokacija: /sbin/init
|
Postano: 15:39 pet, 23. 5. 2008 Naslov: |
|
|
Kod mene je [tt]SetPrecision[][/tt] ~20% brzi od [tt]N[][/tt], pa bi bilo lijepo da probas kao i ostali, jer ovako nije usporedivo. :?
[code:1]t=Timing[N[Sin[Log[3]],10000]];t[[1]]
t=Timing[N[Sin[Log[3]],100000]];t[[1]]
Timing[SetPrecision[Sin[Log[3]],10000];]
Timing[SetPrecision[Sin[Log[3]],100000];]
0.767882 Second
28.6087 Second
{0.589911 Second,Null}
{23.1535 Second,Null}[/code:1]
Usput, zanimljiva kolicina RAMa. :D
@Markec: Meni vise imponira da mogu dobro iskoristiti 7 godina staru masinu (neki dijelovi su i znatno stariji), nego da imam neku gejmersku konfiguraciju. :P Nabrijavanje konfiguracija i hvaljenje time me podsjeca na lijecenje nekih kompleksa nabrijavanjem auta i sl. :twisted:
Kod mene je SetPrecision[] ~20% brzi od N[], pa bi bilo lijepo da probas kao i ostali, jer ovako nije usporedivo.
Kod: | t=Timing[N[Sin[Log[3]],10000]];t[[1]]
t=Timing[N[Sin[Log[3]],100000]];t[[1]]
Timing[SetPrecision[Sin[Log[3]],10000];]
Timing[SetPrecision[Sin[Log[3]],100000];]
0.767882 Second
28.6087 Second
{0.589911 Second,Null}
{23.1535 Second,Null} |
Usput, zanimljiva kolicina RAMa.
@Markec: Meni vise imponira da mogu dobro iskoristiti 7 godina staru masinu (neki dijelovi su i znatno stariji), nego da imam neku gejmersku konfiguraciju. Nabrijavanje konfiguracija i hvaljenje time me podsjeca na lijecenje nekih kompleksa nabrijavanjem auta i sl.
_________________ U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju.
|
|
[Vrh] |
|
mibo Forumaš(ica)
Pridružen/a: 04. 10. 2007. (14:52:50) Postovi: (51)16
Spol:
Lokacija: /var/tmp
|
Postano: 15:49 pet, 23. 5. 2008 Naslov: B-) |
|
|
[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
0.203
2.688[/code:1]
Čini se da je 64-bitnost OS-a ovdje velika prednost -- i dalje držim rekord na [tt]Out[2][/tt] 8)
P.S. @ vsego: integrirana :( graficka (128MB) na [i]jeftinom [/i]laptopu
Kod: | t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
0.203
2.688 |
Čini se da je 64-bitnost OS-a ovdje velika prednost – i dalje držim rekord na Out[2]
P.S. @ vsego: integrirana graficka (128MB) na jeftinom laptopu
_________________ WAR IS PEACE
FREEDOM IS SLAVERY
IGNORANCE IS STRENGTH
George Orwell: 1984
|
|
[Vrh] |
|
alen Forumaš(ica)
Pridružen/a: 14. 10. 2005. (23:25:58) Postovi: (221)16
|
Postano: 14:14 pet, 3. 10. 2008 Naslov: |
|
|
Evo ovako, imam 2 koda, jedan u mathematici 6.01, drugi u matlabu R2007b. Trebaju napraviti prvo potpuni graf s N0 vrhova, a dalje u svakom koraku dodavati jedan vrh s m bridova koji idu iz njega i spajaju se na već postojeće vrhove na slučajan način tako da je vjerojatnost spajanja svakog od bridova na već postojeće vrhove proporcionalna stupnjevima tih vrhova i nijedna dva brida ot tih m se nemogu spojiti na isti vrh. Postupak se ponavlja dok novonastali graf nema N vrhova (BA model slučajnog grafa).
U matlabu to izgleda ovak:
[code:1]N0=input ('unesite pocetni broj vrhova: ');
m=input ('unesite broj veza ostvarenih pri svakoj iteraciju kod \
evolucije: ');
I=input ('unesite novi broj vrhova mreze: ');
tic;
N=N0+I;
br_cv=N;
E=2*N0*(N0-1)+2*I*m;
d=zeros (1,N0+I);% postavljanje inicijalnih stpnjeva
A=spalloc (N,N,E);
% pocetni potpuni graf sa N0 cvorova
for i = 1:N0
d (i)=N0-1; % inicijalni stupnjevi potpunog grafa
for j=1:N0
if i~=j
A (i,j)=1;
end;
end;
end;
rand ('twister', sum (100*clock)); % iniciranje seed-a za random
dv=zeros (1,sum (d));
q=zeros (1,N0+I);
for i=1:I
% stvaranje distribucijskog vektora q
suma=sum (d);
q (1)=d (1)/suma;
q_prije=q (1);
for j=2:(N0+i-1)% optimizacija
q (j)=q_prije+(d (j)/suma);
q_prije=q (j);
end;
j=1;
% dodavanje novog cvora preferencijalno
p=rand (m,1);
for edge=1:m
while (q (j)<=p (edge))
j=1;
p=rand (m,1);
while (j<N0+i)&(q (j)<=p (edge))
j=j+1;
end;
end;
novi=i+N0;
stari=j;
q (stari)=0;
A (stari,novi)=1;
A (novi,stari)=1;
d (stari)=d (stari)+1;
d (novi)=d (novi)+1;
end;
if mod (i,1000)==0
disp (i);
end;
end;[/code:1]
U mathematici ovak (N0 početnih, m bridova se dodaje u svakom koraku dok nema II vrhova u grafu)
[code:1]
<< Combinatorica`
Needs["GraphUtilities`"]
N0 = 4;
II = 5000;
m = 3;
G = CompleteGraph[N0];
a = Degrees[G];
G = AddVertices[G, II - N0];
For[k = N0 + 1, k <= II, k++,
If[Mod[k, 100] == 0, Print[k], {}];
If[k == 2, prefodbrid = {1},
prefodbrid = RandomSample[a -> Range[k - 1], m];];
For[j = 1, j <= m, j++, G = AddEdge[G, {prefodbrid[[j]], k}];
a[[prefodbrid[[j]]]]++;]; a = Append[a, m];][/code:1]
Ovaj u mathematici je dost sporiji pa ak ima neko ko se dobro snalazi i u matlabu i mathematici da predloži kak ubrzat izvođenje, bio bih mu/joj zahvalan.
Evo ovako, imam 2 koda, jedan u mathematici 6.01, drugi u matlabu R2007b. Trebaju napraviti prvo potpuni graf s N0 vrhova, a dalje u svakom koraku dodavati jedan vrh s m bridova koji idu iz njega i spajaju se na već postojeće vrhove na slučajan način tako da je vjerojatnost spajanja svakog od bridova na već postojeće vrhove proporcionalna stupnjevima tih vrhova i nijedna dva brida ot tih m se nemogu spojiti na isti vrh. Postupak se ponavlja dok novonastali graf nema N vrhova (BA model slučajnog grafa).
U matlabu to izgleda ovak:
Kod: | N0=input ('unesite pocetni broj vrhova: ');
m=input ('unesite broj veza ostvarenih pri svakoj iteraciju kod \
evolucije: ');
I=input ('unesite novi broj vrhova mreze: ');
tic;
N=N0+I;
br_cv=N;
E=2*N0*(N0-1)+2*I*m;
d=zeros (1,N0+I);% postavljanje inicijalnih stpnjeva
A=spalloc (N,N,E);
% pocetni potpuni graf sa N0 cvorova
for i = 1:N0
d (i)=N0-1; % inicijalni stupnjevi potpunog grafa
for j=1:N0
if i~=j
A (i,j)=1;
end;
end;
end;
rand ('twister', sum (100*clock)); % iniciranje seed-a za random
dv=zeros (1,sum (d));
q=zeros (1,N0+I);
for i=1:I
% stvaranje distribucijskog vektora q
suma=sum (d);
q (1)=d (1)/suma;
q_prije=q (1);
for j=2:(N0+i-1)% optimizacija
q (j)=q_prije+(d (j)/suma);
q_prije=q (j);
end;
j=1;
% dodavanje novog cvora preferencijalno
p=rand (m,1);
for edge=1:m
while (q (j)<=p (edge))
j=1;
p=rand (m,1);
while (j<N0+i)&(q (j)<=p (edge))
j=j+1;
end;
end;
novi=i+N0;
stari=j;
q (stari)=0;
A (stari,novi)=1;
A (novi,stari)=1;
d (stari)=d (stari)+1;
d (novi)=d (novi)+1;
end;
if mod (i,1000)==0
disp (i);
end;
end; |
U mathematici ovak (N0 početnih, m bridova se dodaje u svakom koraku dok nema II vrhova u grafu)
Kod: |
<< Combinatorica`
Needs["GraphUtilities`"]
N0 = 4;
II = 5000;
m = 3;
G = CompleteGraph[N0];
a = Degrees[G];
G = AddVertices[G, II - N0];
For[k = N0 + 1, k <= II, k++,
If[Mod[k, 100] == 0, Print[k], {}];
If[k == 2, prefodbrid = {1},
prefodbrid = RandomSample[a -> Range[k - 1], m];];
For[j = 1, j <= m, j++, G = AddEdge[G, {prefodbrid[[j]], k}];
a[[prefodbrid[[j]]]]++;]; a = Append[a, m];] |
Ovaj u mathematici je dost sporiji pa ak ima neko ko se dobro snalazi i u matlabu i mathematici da predloži kak ubrzat izvođenje, bio bih mu/joj zahvalan.
_________________ Između ostalog, mislim da bi kolegij mjera i integral trebao imati svoj podforum među kolegijima treće godine
|
|
[Vrh] |
|
|