Search
 
 
  Engleski
 
 
 
Open in this window (click to change)
Forum@DeGiorgi: Početna
Forum za podršku nastavi na PMF-MO
Login Registracija FAQ Smajlići Članstvo Pretražnik Forum@DeGiorgi: Početna

Brzina u Mathematici
Idite na 1, 2  Sljedeće
Moja sarma
 
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Računala (općenito)
Prethodna tema :: Sljedeća tema  
Autor/ica Poruka
predrag
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 02. 04. 2008. (15:35:11)
Postovi: (4)16
Sarma = la pohva - posuda
0 = 0 - 0
Lokacija: Zagreb
PostPostano: 11:11 uto, 20. 5. 2008    Naslov: Brzina u Mathematici Citirajte i odgovorite
Ovo je topic za testiranje brzine kojom Mathematica obavlja proračune.
Možete raditi (dapače poželjno je) i komparaciju iste sa drugim alatima (npr. Matlab-om) ,na istim hardverskim konfiguracijama.
Za početak dajte Mathematici da izračuna

[i]sin(ln(3))[/i]

sa točnošću rezultata na :

a) 10000 decimalih mjesta
b) 100000 decimalnih mjesta

Osim vremena izvršavanja ,navedite osnovne podatke hardvera na kojem je izvršen proračun i verziju Mathematice.
Hvala.
Ovo je topic za testiranje brzine kojom Mathematica obavlja proračune.
Možete raditi (dapače poželjno je) i komparaciju iste sa drugim alatima (npr. Matlab-om) ,na istim hardverskim konfiguracijama.
Za početak dajte Mathematici da izračuna

sin(ln(3))

sa točnošću rezultata na :

a) 10000 decimalih mjesta
b) 100000 decimalnih mjesta

Osim vremena izvršavanja ,navedite osnovne podatke hardvera na kojem je izvršen proračun i verziju Mathematice.
Hvala.


[Vrh]
Korisnički profil Pošaljite privatnu poruku
vsego
Site Admin
Site Admin


Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3562)16
Spol: zombi
Sarma = la pohva - posuda
854 = 1068 - 214
Lokacija: /sbin/init
PostPostano: 12:42 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: P4 1.7GHz
RAM: 512MB RIMM
OS: Fedora 8
Mathematica: 5.1

[code:1]t=Timing[N[Sin[Log[3]],10000]]; t[[1]]
t=Timing[N[Sin[Log[3]],100000]]; t[[1]]

0.743887 Second
28.1417 Second[/code:1]

:)
Procesor: P4 1.7GHz
RAM: 512MB RIMM
OS: Fedora 8
Mathematica: 5.1

Kod:
t=Timing[N[Sin[Log[3]],10000]]; t[[1]]
t=Timing[N[Sin[Log[3]],100000]]; t[[1]]

0.743887 Second
28.1417 Second


Smile



_________________
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. Drzim prodike
[Vrh]
Korisnički profil Pošaljite privatnu poruku
Kruno
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 07. 11. 2003. (18:06:24)
Postovi: (7B)16
Spol: muško
Sarma = la pohva - posuda
29 = 29 - 0
Lokacija: RC
PostPostano: 14:21 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: Intel(R) Pentium(R) 4 CPU 3.00GHz
RAM: 1 GB
OS: Ubuntu 8.04

[code:1]
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]

0.364023
5.84037
[/code:1]
Procesor: Intel(R) Pentium(R) 4 CPU 3.00GHz
RAM: 1 GB
OS: Ubuntu 8.04

Kod:

t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t1 = Timing[N[Sin[Log[3]], 100000]]; t1[[1]]

0.364023
5.84037



_________________
Kruno
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
goranm
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 12. 11. 2002. (20:09:12)
Postovi: (906)16
Spol: kućni ljubimac
Sarma = la pohva - posuda
218 = 249 - 31
PostPostano: 18:27 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: AMD Athlon 64 X2 4000+ Dual-Core 2.11 GHz
RAM: 2 GB
OS: Win XP
Mathematica 5.2

[code:1]
Timing[SetPrecision[Sin[Log[3]], 10000];]
0.11 Second
Timing[SetPrecision[Sin[Log[3]], 100000];]
5.328 Second
[/code:1]
Procesor: AMD Athlon 64 X2 4000+ Dual-Core 2.11 GHz
RAM: 2 GB
OS: Win XP
Mathematica 5.2

Kod:

Timing[SetPrecision[Sin[Log[3]], 10000];]
0.11 Second
Timing[SetPrecision[Sin[Log[3]], 100000];]
5.328 Second



_________________
The Dude Abides

Zadnja promjena: goranm; 22:59 uto, 20. 5. 2008; ukupno mijenjano 1 put.
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
pero
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 02. 02. 2005. (17:13:37)
Postovi: (81)16
Spol: muško
Sarma = la pohva - posuda
11 = 14 - 3
PostPostano: 19:35 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
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]
Korisnički profil Pošaljite privatnu poruku
Novi
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 17. 07. 2007. (12:08:32)
Postovi: (11F)16
Spol: muško
Sarma = la pohva - posuda
60 = 69 - 9
PostPostano: 20:34 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
[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? Laughing


[Vrh]
Korisnički profil Pošaljite privatnu poruku
Markec
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 20. 02. 2003. (14:49:45)
Postovi: (134)16
Spol: muško
Sarma = la pohva - posuda
-3 = 37 - 40
PostPostano: 20:48 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: AMD Turion 64 Mobile MK-36 1.6GHz
RAM: 1GB
OS:Win XP
Mathematica: 5.0

[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.25 Second
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
7.953 Second[/code:1]

vsego ima najsporiju kantu :rotfl2:
Procesor: AMD Turion 64 Mobile MK-36 1.6GHz
RAM: 1GB
OS:Win XP
Mathematica: 5.0

Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.25 Second
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
7.953 Second


vsego ima najsporiju kantu Rolling on the floor laughing


[Vrh]
Korisnički profil Pošaljite privatnu poruku
rafaelm
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 24. 12. 2006. (13:30:11)
Postovi: (21F)16
Spol: muško
Sarma = la pohva - posuda
76 = 86 - 10
Lokacija: Zagreb
PostPostano: 21:25 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
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]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
Luuka
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 13. 02. 2007. (20:34:54)
Postovi: (925)16
Spol: muško
Sarma = la pohva - posuda
188 = 301 - 113
Lokacija: Hakuna Matata
PostPostano: 21:43 uto, 20. 5. 2008    Naslov: Citirajte i odgovorite
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 Very Happy
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
alen
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 14. 10. 2005. (23:25:58)
Postovi: (221)16
Sarma = la pohva - posuda
132 = 230 - 98
PostPostano: 6:09 sri, 21. 5. 2008    Naslov: Citirajte i odgovorite
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]
Korisnički profil Pošaljite privatnu poruku
matmih
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 07. 12. 2006. (22:57:42)
Postovi: (1A4)16
Spol: muško
Sarma = la pohva - posuda
36 = 51 - 15
Lokacija: {Zg, De , Ri}
PostPostano: 10:38 sri, 21. 5. 2008    Naslov: Citirajte i odgovorite
Intel Core 2 Duo 2.4 GHz
1 GB RAM
Mathematica 6.0
Win XP

[code:1] t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.156
3.906
[/code:1]

:D
Intel Core 2 Duo 2.4 GHz
1 GB RAM
Mathematica 6.0
Win XP

Kod:
 t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.156
3.906
 


Very Happy


[Vrh]
Korisnički profil Pošaljite privatnu poruku MSNM
Smith
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 30. 10. 2004. (23:30:23)
Postovi: (178)16
Spol: muško
Sarma = la pohva - posuda
12 = 18 - 6
Lokacija: {Tamo Gore}^{TM}
PostPostano: 17:35 sri, 21. 5. 2008    Naslov: Citirajte i odgovorite
AMD64 3200+ Venice @2GHz
1GiB RAM
Gentoo Linux 2007.0 (2.6.24-gentoo-r3)
Mathematica 5.2

[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.116982 Second
4.12637 Second[/code:1]
AMD64 3200+ Venice @2GHz
1GiB RAM
Gentoo Linux 2007.0 (2.6.24-gentoo-r3)
Mathematica 5.2

Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.116982 Second
4.12637 Second



_________________
We only have one candle
To burn down to the handle...
- Sonata Arctica, Weballergy
[Vrh]
Korisnički profil Pošaljite privatnu poruku Posjetite Web stranice
predrag
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 02. 04. 2008. (15:35:11)
Postovi: (4)16
Sarma = la pohva - posuda
0 = 0 - 0
Lokacija: Zagreb
PostPostano: 18:00 sri, 21. 5. 2008    Naslov: Citirajte i odgovorite
[quote="Markec"]Procesor: AMD Turion 64 Mobile MK-36 1.6GHz
RAM: 1GB
OS:Win XP
Mathematica: 5.0

[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.25 Second
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
7.953 Second[/code:1]

vsego ima najsporiju kantu :rotfl2:[/quote]

Očigledno,ali nemoj ga izazivati.Posve moguće da on može složiti program u FORTRAN-u koji će na njegovoj kanti ovo raditi 10x brže nego najbrža kanta ovdje sa Mathematicom 6.0. :)
Jel,netko probo iskemijati ovo sa Matlab-om ?
Markec (napisa):
Procesor: AMD Turion 64 Mobile MK-36 1.6GHz
RAM: 1GB
OS:Win XP
Mathematica: 5.0

Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
0.25 Second
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]
7.953 Second


vsego ima najsporiju kantu Rolling on the floor laughing


Očigledno,ali nemoj ga izazivati.Posve moguće da on može složiti program u FORTRAN-u koji će na njegovoj kanti ovo raditi 10x brže nego najbrža kanta ovdje sa Mathematicom 6.0. Smile
Jel,netko probo iskemijati ovo sa Matlab-om ?


[Vrh]
Korisnički profil Pošaljite privatnu poruku
luce
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 08. 02. 2006. (19:47:22)
Postovi: (5A)16
Spol: žensko
Sarma = la pohva - posuda
9 = 10 - 1
PostPostano: 19:31 sri, 21. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: Intel Core Duo CPU T2250 @ 1.73GHz
RAM: 512 MB
OS: Debian Etch
Mathematica 6.0

[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.244016
6.3124
[/code:1]
Procesor: Intel Core Duo CPU T2250 @ 1.73GHz
RAM: 512 MB
OS: Debian Etch
Mathematica 6.0

Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

0.244016
6.3124



_________________
Black holes are places where god divided by zero.
[Vrh]
Korisnički profil Pošaljite privatnu poruku
HijenA
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 23. 01. 2004. (16:46:04)
Postovi: (3D2)16
Spol: muško
Sarma = la pohva - posuda
-26 = 44 - 70
Lokacija: Prazan skup ;-)
PostPostano: 8:58 čet, 22. 5. 2008    Naslov: Citirajte i odgovorite
procesor: Intel Core Duo T2400 @1.83 GHz
RAM: 1 GB DDR2
OS: Windows XP
Mathematica 6.0

[code:1]
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]


Out[1]= 0.266

Out[2]= 5.797
[/code:1]
procesor: Intel Core Duo T2400 @1.83 GHz
RAM: 1 GB DDR2
OS: Windows XP
Mathematica 6.0

Kod:

t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]


Out[1]= 0.266

Out[2]= 5.797



_________________
Chuck Norris can divide by zero.

I bow before you Veliki Limun, on je kiseo i zut Bow to the left

[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
darioo
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 06. 02. 2005. (14:26:16)
Postovi: (9)16
Sarma = la pohva - posuda
3 = 3 - 0
PostPostano: 9:24 čet, 22. 5. 2008    Naslov: Citirajte i odgovorite
Procesor: Intel Core 2 Quad Q9300 @2.5 GHz
RAM: 4 GB DDR2
OS: Windows XP
Mathematica 6.0

[code:1]t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

Out[1]= 0.14
Out[2]= 3.641
[/code:1]
Procesor: Intel Core 2 Quad Q9300 @2.5 GHz
RAM: 4 GB DDR2
OS: Windows XP
Mathematica 6.0

Kod:
t = Timing[N[Sin[Log[3]], 10000]]; t[[1]]
t = Timing[N[Sin[Log[3]], 100000]]; t[[1]]

Out[1]= 0.14
Out[2]= 3.641


[Vrh]
Korisnički profil Pošaljite privatnu poruku
mibo
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 04. 10. 2007. (14:52:50)
Postovi: (51)16
Spol: kućni ljubimac
Sarma = la pohva - posuda
3 = 6 - 3
Lokacija: /var/tmp
PostPostano: 15:20 pet, 23. 5. 2008    Naslov: The Winner (for now) Citirajte i odgovorite
: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]
Bis, bis!And the winner is:Bis, bis!

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]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail Posjetite Web stranice
vsego
Site Admin
Site Admin


Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3562)16
Spol: zombi
Sarma = la pohva - posuda
854 = 1068 - 214
Lokacija: /sbin/init
PostPostano: 15:39 pet, 23. 5. 2008    Naslov: Citirajte i odgovorite
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. Confused

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. Very Happy

@Markec: Meni vise imponira da mogu dobro iskoristiti 7 godina staru masinu (neki dijelovi su i znatno stariji), nego da imam neku gejmersku konfiguraciju. Razz Nabrijavanje konfiguracija i hvaljenje time me podsjeca na lijecenje nekih kompleksa nabrijavanjem auta i sl. Twisted Evil



_________________
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. Drzim prodike
[Vrh]
Korisnički profil Pošaljite privatnu poruku
mibo
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 04. 10. 2007. (14:52:50)
Postovi: (51)16
Spol: kućni ljubimac
Sarma = la pohva - posuda
3 = 6 - 3
Lokacija: /var/tmp
PostPostano: 15:49 pet, 23. 5. 2008    Naslov: B-) Citirajte i odgovorite
[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] Cool

P.S. @ vsego: integrirana Sad graficka (128MB) na jeftinom laptopu



_________________
WAR IS PEACE
FREEDOM IS SLAVERY
IGNORANCE IS STRENGTH
George Orwell: 1984
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail Posjetite Web stranice
alen
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 14. 10. 2005. (23:25:58)
Postovi: (221)16
Sarma = la pohva - posuda
132 = 230 - 98
PostPostano: 14:14 pet, 3. 10. 2008    Naslov: Citirajte i odgovorite
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]
Korisnički profil Pošaljite privatnu poruku
Prethodni postovi:   
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Računala (općenito) Vremenska zona: GMT + 01:00.
Idite na 1, 2  Sljedeće
Stranica 1 / 2.

 
Forum(o)Bir:  
Ne možete otvarati nove teme.
Ne možete odgovarati na postove.
Ne možete uređivati Vaše postove.
Ne možete izbrisati Vaše postove.
Ne možete glasovati u anketama.
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2002 phpBB Group
Theme created by Vjacheslav Trushkin
HR (Cro) by Ančica Sečan