DevProTalk

Forumi IT profesionalaca
web development, web design, e-business, SEO


Idite nazad   DevProTalk > Web development i web aplikacije > Code snippets
Želite da se reklamirate ekskluzivno na ovoj poziciji? Javite se

Code snippets Razmena snippets, funkcija, dodataka, algoritama,... pod uslovom je da ste vi autor ili imate dozvolu autora ili da navedete autora uz odgovarajucu licencu.

Odgovori
 
Alati teme Način prikaza
Staro 20. 01. 2011.   #11
webarto
expert
Grand Master
 
Avatar webarto
 
Datum učlanjenja: 11.04.2010
Poruke: 998
Hvala: 141
959 "Hvala" u 153 poruka
webarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished road
Default

PHP kôd:
//Beograd
$grad mysql_query("SELECT * FROM srbija WHERE grad = 'Beograd' LIMIT 1");
$grad mysql_fetch_assoc($grad);
$lat $grad["lat"]; $lon $grad["lon"];

$radius 10// 10 kilometara
$radius round($radius 1117); // 1 stepen = 60 nautičkih milja ~ 111km, zemlja nije krug ali je razlika 0.3%

$sql mysql_query("SELECT * FROM srbija WHERE lat BETWEEN ($lat - $radius) AND ($lat + $radius) AND lon BETWEEN ($lon - $radius) AND ($lon + $radius)");
while(
$red mysql_fetch_assoc($sql)){
    echo 
$grad["grad"]." - ".$red["grad"]." = ".haversine($lat$lon$red["lat"], $red["lon"])."<br />";

Citat:
Beograd - Alt-Borscha = 5.79316506111
Beograd - Bárányos = 9.35219525075
Beograd - Belgrad = 0
Beograd - Belgrade = 0
Beograd - Belgrado = 0
Beograd - Beograd = 0
Beograd - Bezanija = 7.20118432749
Beograd - Borca = 5.79316506111
Beograd - Borcsa = 5.79316506111
Beograd - Bubanj Potok = 11.085803226
Beograd - Cukarica = 5.50759465291
Beograd - Dorcol = 0.242342119582
Beograd - Filmski Grad = 7.29055150674
Beograd - Gisellenhain = 9.35219525075
Beograd - Jajince = 8.8637130281
Beograd - Jajinci = 8.8637130281
Beograd - Kaluderica = 10.0123750758
Beograd - Kaludirica = 10.0123750758
Beograd - Kalugjerica = 10.0123750758
Beograd - Karaburma = 2.66566666921
Beograd - Kumodraz = 9.39940017819
Beograd - Mala Ciganti = 4.38736003825
Beograd - Mali Mokri Lug = 7.03790686951
Beograd - Mokri Lug = 8.23222134719
Beograd - Novi Beograd = 3.75416324228
Beograd - Ovca = 9.35219525075
Beograd - Ovcsa = 9.35219525075
Beograd - Reva = 5.46912292882
Beograd - Rospi Cuprija = 4.62338905561
Beograd - Sajmiste = 1.93995055969
Beograd - Savski Venac = 4.52617380096
Beograd - Semlin = 5.93785726157
Beograd - Singidunum = 0
Beograd - Stara Borca = 5.79316506111
Beograd - Stari Grad = 1.68389610582
Beograd - Taurunum = 5.93785726157
Beograd - Tosin Bunar = 5.03993677578
Beograd - Veliki Mokri Lug = 8.23222134719
Beograd - Vojna Basta = 9.27635855118
Beograd - Vozdivac = 4.52055022048
Beograd - Vozdovac = 4.52055022048
Beograd - Vracar = 3.96300110998
Beograd - Zarkovo = 7.83593874715
Beograd - Zeleznicka Kolonja = 6.9968568556
Beograd - Zemlén = 5.93785726157
Beograd - Zemun = 5.93785726157
Beograd - Zimony = 5.93785726157
Beograd - Zvezdara = 5.76970836174
Novi Sad

Citat:
Novi Sad - Kamanc = 3.18673675777
Novi Sad - Kamancz = 3.18673675777
Novi Sad - Kamenicz = 3.18673675777
Novi Sad - Kamenitz = 3.18673675777
Novi Sad - Kamonc = 3.18673675777
Novi Sad - Neoplanta = 0
Novi Sad - Neusatz = 0
Novi Sad - Novi Ledinci = 5.23735837334
Novi Sad - Novi Rakovac = 7.48661578121
Novi Sad - Novi Sad = 0
Novi Sad - Nový Sad = 0
Novi Sad - Ó-péterváradja = 0
Novi Sad - Pasuljiste = 4.70016657699
Novi Sad - Pétervárad = 3.37320414099
Novi Sad - Peterwardein = 3.37320414099
Novi Sad - Petrovaradin = 3.37320414099
Novi Sad - Sremska Kamenica = 3.18673675777
Novi Sad - Újvidék = 0
Novi Sad - Varadinum Petri = 0
Novi Sad - Vásáros-Várad = 0
Novi Sad - Veternik = 6.06948254759
Izvinjavam se na dužem postu
webarto je offline   Odgovorite uz citat
Staro 20. 01. 2011.   #12
uros
novi član
 
Avatar uros
 
Datum učlanjenja: 06.11.2010
Poruke: 9
Hvala: 0
2 "Hvala" u 2 poruka
uros is on a distinguished road
Default

preciscena verzija... za slucaj da jos neko ne zeli Rospi Cupriju, Tosin Bunar etc...

gradove sam pokupio sa belih strana...

Kôd:
CREATE TABLE `gradovi` (
   `id` int(11) not null auto_increment,
   `grad` varchar(100) not null,
   `lat` varchar(10) not null,
   `lon` varchar(10) not null,
   PRIMARY KEY (`id`),
   KEY `grad` (`grad`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=34;

INSERT INTO `gradovi` (`id`, `grad`, `lat`, `lon`) VALUES 
('1', 'Beograd', '44.818611', '20.468056'),
('2', 'Bor', '44.078333', '22.095278'),
('3', 'Cacak', '43.891389', '20.349722'),
('4', 'Gnjilane', '42.468889', '21.463333'),
('5', 'Jagodina', '43.981389', '21.262222'),
('6', 'Kikinda', '45.641111', '20.414167'),
('7', 'Kosovska Mitrovica', '42.883333', '20.866667'),
('8', 'Kragujevac', '44.016667', '20.916667'),
('9', 'Kraljevo', '43.725833', '20.689444'),
('10', 'Krusevac', '43.58', '21.333889'),
('11', 'Leskovac', '42.998056', '21.946111'),
('12', 'Nis', '43.324722', '21.903333'),
('13', 'Novi Pazar', '43.136667', '20.512222'),
('14', 'Novi Sad', '45.251667', '19.836944'),
('15', 'Pancevo', '44.870833', '20.640278'),
('16', 'Pec', '42.66', '20.292222'),
('17', 'Pirot', '43.153056', '22.586111'),
('18', 'Pozarevac', '44.615278', '21.1825'),
('19', 'Prijepolje', '43.371944', '19.640556'),
('20', 'Pristina', '42.666667', '21.166667'),
('21', 'Prizren', '42.213889', '20.739722'),
('22', 'Prokuplje', '43.234167', '21.588056'),
('23', 'Sabac', '44.746667', '19.69'),
('24', 'Smederevo', '44.662778', '20.93'),
('25', 'Sombor', '45.774167', '19.112222'),
('26', 'Sremska Mitrovica', '44.976389', '19.612222'),
('27', 'Subotica', '46.1', '19.666667'),
('28', 'Urosevac', '42.370556', '21.155278'),
('29', 'Uzice', '43.855833', '19.841111'),
('30', 'Valjevo', '44.270833', '19.884167'),
('31', 'Vranje', '42.551389', '21.900278'),
('32', 'Zajecar', '43.904167', '22.284722'),
('33', 'Zrenjanin', '45.383611', '20.381944');
uros je offline   Odgovorite uz citat
Staro 20. 01. 2011.   #13
webarto
expert
Grand Master
 
Avatar webarto
 
Datum učlanjenja: 11.04.2010
Poruke: 998
Hvala: 141
959 "Hvala" u 153 poruka
webarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished road
Default

Sa Wikipedia ali bez LL

PHP kôd:
INSERT INTO gradovi(gradVALUES('Beograd');
INSERT INTO gradovi(gradVALUES('Niš');
INSERT INTO gradovi(gradVALUES('Kragujevac');
INSERT INTO gradovi(gradVALUES('Čačak');
INSERT INTO gradovi(gradVALUES('Kraljevo');
INSERT INTO gradovi(gradVALUES('Šabac');
INSERT INTO gradovi(gradVALUES('Smederevo');
INSERT INTO gradovi(gradVALUES('Valjevo');
INSERT INTO gradovi(gradVALUES('Kruševac');
INSERT INTO gradovi(gradVALUES('Zaječar');
INSERT INTO gradovi(gradVALUES('Užice');
INSERT INTO gradovi(gradVALUES('Vranje');
INSERT INTO gradovi(gradVALUES('Novi Pazar');
INSERT INTO gradovi(gradVALUES('Požarevac');
INSERT INTO gradovi(gradVALUES('Pirot');
INSERT INTO gradovi(gradVALUES('Bor');
INSERT INTO gradovi(gradVALUES('Jagodina');
INSERT INTO gradovi(gradVALUES('Prokuplje');
INSERT INTO gradovi(gradVALUES('Paraćin');
INSERT INTO gradovi(gradVALUES('Smederevska Palanka');
INSERT INTO gradovi(gradVALUES('Aranđelovac');
INSERT INTO gradovi(gradVALUES('Gornji Milanovac');
INSERT INTO gradovi(gradVALUES('Lazarevac');
INSERT INTO gradovi(gradVALUES('Obrenovac');
INSERT INTO gradovi(gradVALUES('Mladenovac');
INSERT INTO gradovi(gradVALUES('Loznica');
INSERT INTO gradovi(gradVALUES('Ćuprija');
INSERT INTO gradovi(gradVALUES('Priboj');
INSERT INTO gradovi(gradVALUES('Novi Sad');
INSERT INTO gradovi(gradVALUES('Subotica');
INSERT INTO gradovi(gradVALUES('Zrenjanin');
INSERT INTO gradovi(gradVALUES('Pančevo');
INSERT INTO gradovi(gradVALUES('Sombor');
INSERT INTO gradovi(gradVALUES('Kikinda');
INSERT INTO gradovi(gradVALUES('Sremska Mitrovica');
INSERT INTO gradovi(gradVALUES('Vršac');
INSERT INTO gradovi(gradVALUES('Ruma');
INSERT INTO gradovi(gradVALUES('Bačka Palanka');
INSERT INTO gradovi(gradVALUES('Inđija');
INSERT INTO gradovi(gradVALUES('Vrbas');
INSERT INTO gradovi(gradVALUES('Bečej');
INSERT INTO gradovi(gradVALUES('Senta');
INSERT INTO gradovi(gradVALUES('Kula');
INSERT INTO gradovi(gradVALUES('Apatin');
INSERT INTO gradovi(gradVALUES('Temerin');
INSERT INTO gradovi(gradVALUES('Priština');
INSERT INTO gradovi(gradVALUES('Prizren');
INSERT INTO gradovi(gradVALUES('Peć');
INSERT INTO gradovi(gradVALUES('Đakovica');
INSERT INTO gradovi(gradVALUES('Kosovska Mitrovica');
INSERT INTO gradovi(gradVALUES('Gnjilane');
INSERT INTO gradovi(gradVALUES('Podujevo');
INSERT INTO gradovi(gradVALUES('Uroševac');
INSERT INTO gradovi(gradVALUES('Kosovo Polje');
INSERT INTO gradovi(gradVALUES('Orahovac'); 
webarto je offline   Odgovorite uz citat
Staro 20. 01. 2011.   #14
jablan
VD IT Direktora
Invented the damn thing
 
Avatar jablan
 
Datum učlanjenja: 08.06.2005
Lokacija: Beograd
Poruke: 2.118
Hvala: 503
1.307 "Hvala" u 282 poruka
jablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamenjablan je pravi dragi kamen
Default

Citat:
Originalno napisao webarto Pogledajte poruku
Zelene su iste, kvadrat se može posmatrati kao 2 jednakostranična trougla i vidi da hipotenuza nije ista kao dužine stranica (normalno).
Jesi li na to mislio?
Hmm, ne. Tvoj query gleda praktično pripadnost kvadratu opisanom oko kružnice radijusa R. To praktično znači da ako tražiš radijus od 100 km oko Beograda, u njega će upasti i tačka koja je 140km od beograda (u pravcu dijagonale). Nema veze.
__________________
blog
jablan je offline   Odgovorite uz citat
"Hvala" jablan za poruku:
Staro 20. 01. 2011.   #15
vidak
Banned
Expert
 
Datum učlanjenja: 29.09.2007
Poruke: 458
Hvala: 131
71 "Hvala" u 44 poruka
vidak is on a distinguished road
Default

evo linka sa oko 1600 mesta u Republici Srbiji.
Osim Srbije u bazi su države exYU i njihovi gradovi i mesta.

Poslednja izmena od vidak : 20. 01. 2011. u 17:20.
vidak je offline   Odgovorite uz citat
Staro 20. 01. 2011.   #16
ivanhoe
Ivan Dilber
Sir Write-a-Lot
 
Avatar ivanhoe
 
Datum učlanjenja: 18.10.2005
Lokacija: Bgd
Poruke: 5.320
Hvala: 104
2.344 "Hvala" u 583 poruka
ivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svimaivanhoe je ime poznato svima
Pošaljite poruku preko Skype™ za ivanhoe
Default

za ovakve stvari postoji podrska za spatial indekse u mysqlu, to je mnogo brze od ove DIY trigonometrije
http://dev.mysql.com/doc/refman/5.0/...-database.html
__________________
Leadership is the art of getting people to want to do what you know must be done.
ivanhoe je offline   Odgovorite uz citat
Staro 20. 01. 2011.   #17
webarto
expert
Grand Master
 
Avatar webarto
 
Datum učlanjenja: 11.04.2010
Poruke: 998
Hvala: 141
959 "Hvala" u 153 poruka
webarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished road
Default



U pravu si jablane, ide od -1 do 1

PHP kôd:
function grad_radius($grad$radius "10"){
   
    
$sql mysql_query("
    SELECT g1 . * 
    FROM gradovi AS g1
    INNER JOIN gradovi AS g2 ON POW( (
    g1.lat - g2.lat
    ), 2 ) + POW( (
    g1.lon - g2.lon
    ), 2 ) < POW( ( 
$radius / 111.12 ) , 2 ) 
    WHERE g2.grad =  '
$grad'");
    
    return 
mysql_fetch_assoc($sql);


webarto je offline   Odgovorite uz citat
Staro 16. 06. 2011.   #18
webarto
expert
Grand Master
 
Avatar webarto
 
Datum učlanjenja: 11.04.2010
Poruke: 998
Hvala: 141
959 "Hvala" u 153 poruka
webarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished roadwebarto is on a distinguished road
Default

PHP kôd:
class Radius{
   
    public 
$table "routes";
    public 
$column_lat "lat";
    public 
$column_lon "lon";
    public 
$order "distance";
    public 
$order_direction "ASC";
    public 
$kilometers true;
    
    public function 
build_query($lat$lon$distance){
        
        if(
$kilometers){
            
$multiplier 112.12;
        }else{
            
$multiplier 69.0467669;
        }
        
        
$query 
        
"SELECT *, (SQRT(POW(($this->column_lat - $lat), 2) + POW(($this->column_lon - $lon), 2)) * $multiplier) AS distance
        FROM 
$this->table 
        WHERE POW((
$this->column_lat - $lat), 2) + POW(($this->column_lon - $lon), 2) < POW(($distance / $multiplier), 2) 
        ORDER BY 
$this->order $this->order_direction";
        
        return 
$query;
    
    }
    

PHP kôd:
$lat 44.818611;
$lon 20.468056;

$radius = new Radius;
$query $radius->build_query($lat$lon10);
/** 
SELECT *, (SQRT(POW((lat - 44.818611), 2) + POW((lon - 20.468056), 2)) * 112.12) AS distance 
FROM routes 
WHERE POW((lat - 44.818611), 2) + POW((lon - 20.468056), 2) < POW((10 / 112.12), 2) 
ORDER BY distance ASC */

$result mysql_query($query);
while(
$row mysql_fetch_assoc($result)){
    


(Picture unrelated)

I tako to
webarto je offline   Odgovorite uz citat
"Hvala" webarto za poruku:
Odgovori



Pravila pisanja
Možete ne započinjati nove teme
Možete ne slati odgovore
Možete ne slati priloge
Možete ne izmeniti svoje poruke
vB kôd je Uključen
Smajliji su Uključen
[IMG] kod je Uključen
HTML kôd je Isključen
Pogledajte forum


Vreme je GMT +2. Trenutno vreme je 02:11.


Powered by vBulletin® Verzija 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright © DevProTalk. All Rights Reserved.
Mišljenja, saveti, izjave, ponude ili druge informacije ili sadržaji nastali na Sajtu su vlasništvo onoga ko ih je kreirao, a ne DevProTalk.com, tako da ne morate da se oslanjate na njih.
Autori poruka su jedini odgovorni za ovakve sadržaje. DevProTalk.com ne garantuje tačnost, kompletnost ili upotrebnu vrednost informacija, stavova, saveta ili datih izjava. Ne postoje uslovi pod kojima bi mi bili odgovorni za štetu ili gubitak koji je posledica bilo čijeg oslanjanja na nepouzdane informacije, ili bilo kakve informacije nastale kroz komunikaciju između registrovanih članova.
Web sajt može sadržavati linkove na druge web sajtove na Internetu ili neke druge sadržaje. Ne kontrolišemo niti podržavamo te druge web sajtove, niti smo pregledali bilo kakve sadržaje na takvim sajtovima. Mi nećemo biti odgovorni za legalnost, tačnost ili prikladnost bilo kog sadržaja, oglasa, proizvoda, usluga ili informacije lociranim na ili distribuiranih kroz druge web sajtove, niti za bilo kakvu štetu nastalu kao posledica takvih informacija. DevProTalk.com drži i čuva druga prava vlasništva na web sajtu. Web sajt sadrže materijale zaštićene copyright-om, zaštitne znakove i druge informacije o pravu vlasništva ili softver. Članovi mogu poslatu informacije zaštićene pravima vlasništva njihovih nosilaca i ona ostaju zaštićena bez obzira da li su oni koji prenose te informacije to naveli ili ne. Osim informacija koje su u javnom vlasništvu ili za koje dobijete dozvolu, nemate pravo da kopirate, modifikujete ili na bilo koji način menjate, objavljujete, prenosite, distribuirate, izvršavate, prikazujete ili prodajte bilo koju informaciju zaštićenu pravima vlasništva. Slanjem informacija ili sadržaja na bilo koji deo DevProTalk.com, Vi automatski dozvoljavate i predstavljate garanciju da imate pravo da dozvolite DevProTalk.com ili članovima DevProTalk.com bespovratnu, kontinualnu, neograničenu, globalnu dozvolu da koriste, kopiraju, izvršavaju, prikazuju i distribuiraju takve informacije i sadržaje i da iz takvih sadžaja koriste bilo koji deo u bilo koje svrhe, kao i pravo i dozvolu da koriste gore navedene sadržaje. Svi zaštitni znakovi (trademarks), logotipi, oznake usluga, firme ili imena proizvoda koji se pominju na ovom web sajtu su vlasništvo kojim raspolažu njihovi vlasnici.