Kartan piirrosta

[viesti Survo-keskustelupalstalla (2001-2013)]

Kirjoittaja: Petri Palmu
Sähköposti:    -
Päiväys: 30.3.2006 16:52

Ohessa karttaesitelmäni kevätseminaarissa 06-03-23.
Hommaa ei ole paljonkaan
selitelty, mutta sallittakoon tällaiselta humanistilta nyt
tämän kerran "less is more" ;-) Joten toivottavasti koodista
aukeaa kaikki tarpeellinen...

Hyödyllistä olisi, jos muiden esitelmöitsijöiden esitykset saataisiin
vielä kerran näytille muodossa tai toisessa.

t. Petri

 - Kartan_piirtoa_Marjutin_data_ / laivaseminaari-06

Ongelma 1: Piirtää Suomen kartta varustettuna
alla olevilla erityisillä aluerajoilla

Kunta                Kuntakoodi      Alue

Helsinki                 91          1
Espoo                    49          1
Vantaa                   92          1
Kauniainen              235          1


Tampere                  837         2
Turku                    853         2
Oulu                     564         2
Lahti                    398         2
Kuopio                   297         2
Jyväskylä                179         2
Pori                     609         2
Lappeenranta             405         2
Vaasa                    905         2
Kotka                    285         2
Joensuu                  167         2

Kaikki muut Suomen kunnat            3

....................
F ILE COPY KR TO NEW __KR  / bäkups
F ILE COPY KL TO NEW __KL  /

Väritykset:
FILE SHOW KCOORDS0
FILE COPY KCOORDS0 TO NEW KR
FILE COPY KLABELS1 TO NEW KL
DD *.SVO
FILE SHOW KR   / Kuntarajojen (v.2004) tiedosto
FILE SHOW KL   / ns. label-tiedostot (v.2004) tiedosto

..................

FILE STATUS KR
 Copied from text file Bkuntamap04.txt
FIELDS: (active)
   1 NA_   2 kno04    (#####)
   2 NA_   1 plotord  (#######)
   3 NA_   8 Ykoord   (#######)
   4 NA_   8 Xkoord   (#######)
   5 NA_   2 plotarea (########)
END
Survo data file KR: record=46 bytes, M1=10 L=64  M=5 N=10876

............
FILE SHOW KR
Tehdään "nolla-rivi" jokaisen piirettävän alueen ensimmäiseksi
havainnoksi.
................
FILE COPY KR TO NEW TEMP1  / IND=plotord,1
FILE SHOW TEMP1
VAR plotord,Xkoord,Ykoord TO TEMP1
plotord=0 Xkoord=MISSING Ykoord=MISSING
..................
FILE COPY TEMP1 KR
FILE SORT KR BY plotarea,plotord TO KR1
....................
FILE SHOW KR1
MASK=AAAA----

FILE LOAD KR1,CUR+1 / IND=ORDER,1,190
DATA KR1*,L,\,^
 kno04 plotord  Ykoord  Xkoord
   890       0       -       -
   890       1 7755330 3553040
   890       2 7734970 3543900
   890       3 7724030 3535900
   890       4 7714140 3511840
   890       5 7710040 3509750
   890       6 7676120 3448540
   890       7 7676120 3448540
   890       8 7677400 3448340
   890       9 7684420 3447870
   890      10 7695840 3450080
   890      11 7707420 3452890
   890      12 7720650 3455540
   890      13 7728930 3458520
   890      14 7735530 3457280
   890      15 7738850 3459080
   890      16 7742620 3462970
   890      17 7745200 3467480
   890      18 7748520 3469880
   890      19 7753190 3472420
   890      20 7756210 3475420
   890      21 7763730 3478090
   890      22 7767360 3482290
   890      23 7768280 3486210
   890      24 7767860 3491780
   890      25 7766090 3498260
   890      26 7765520 3503690
   890      27 7767040 3506990
   890      28 7773080 3512240
   890      29 7776720 3518700
   890      30 7780500 3523350
   890      31 7783250 3531770
   890      32 7784160 3533880
   890      33 7784320 3535530
   890      34 7782820 3536440
   890      35 7773980 3539340
   890      36 7767540 3543590
   890      37 7764270 3548120
   890      38 7762180 3551740
   890      39 7756780 3552670
   890      40 7755580 3552520
   890      41 7755330 3553040
   148       0       -       -
   148       1 7755330 3553040
   148       2 7753615 3556630
   148       3 7740430 3584220
   148       4 7715250 3593810
   148       5 7690980 3575540
   148       6 7684210 3574070
   148       7 7677750 3573790
   148       8 7666500 3576860
   148       9 7651690 3560200
   148      10 7650040 3559910
   148      11 7648390 3560970
   148      12 7648410 3563530
   148      13 7648740 3568800
   148      14 7647700 3571520
   148      15 7645910 3573180
   148      16 7632080 3571130
   148      17 7609190 3560540
   148      18 7600400 3562190
   148      19 7599700 3562380
   148      20 7599700 3562380
   148      21 7598040 3555800
   148      22 7599620 3553360
   148      23 7586910 3520490
   148      24 7584000 3468220
   148      25 7578920 3458140
   148      26 7578920 3458140
   148      27 7593049 3419844
   148      28 7593049 3419844
   148      29 7613790 3413990
   148      30 7613790 3413990
   148      31 7613950 3414590
   148      32 7616810 3416230
   148      33 7619370 3418180
   148      34 7620290 3421490
   148      35 7621050 3423140
   148      36 7629010 3423260
   148      37 7634270 3423690
   148      38 7641500 3427420
   148      39 7647090 3432670
   148      40 7649510 3436870
   148      41 7648500 3443050
   148      42 7648960 3445160
   148      43 7652270 3446350
   148      44 7662650 3449470
   148      45 7668510 3449740
   148      46 7676120 3448540
   148      47 7676120 3448540
   148      48 7710040 3509750
   148      49 7714140 3511840
   148      50 7724030 3535900
   148      51 7734970 3543900
   148      52 7755330 3553040
    47       0       -       -
    47       1 7593049 3419844
    47       2 7593120 3419650
    47       3 7593020 3403800
    47       4 7585580 3394980
    47       5 7567860 3382320
    47       6 7565260 3375550
    47       7 7565260 3375550
    47       8 7568710 3375250
    47       9 7572600 3363440
    47      10 7571450 3347880
    47      11 7567560 3345890
    47      12 7567560 3345890
    47      13 7568360 3345660
    47      14 7568640 3341140
    47      15 7569530 3339330
    47      16 7578540 3338540
    47      17 7583930 3336860
    47      18 7588720 3332620
    47      19 7592160 3330050
    47      20 7596200 3327770
    47      21 7597530 3324150
    47      22 7600670 3320970
    47      23 7601700 3317200
    47      24 7604080 3314030
    47      25 7605110 3310110
    47      26 7607650 3307240
    47      27 7608520 3300760
    47      28 7610300 3296840
    47      29 7614790 3294110
    47      30 7618980 3291380
    47      31 7622250 3285640
    47      32 7627340 3282000
    47      33 7633160 3276260
    47      34 7642150 3272150
    47      35 7644240 3269130
    47      36 7649470 3265340
    47      37 7655610 3261400
    47      38 7660980 3254600
    47      39 7664120 3252630
    47      40 7668930 3253060
    47      41 7671780 3251990
    47      42 7675060 3249120
    47      43 7678040 3244130
    47      44 7679240 3242770
    47      45 7679990 3243070
    47      46 7684520 3247870
    47      47 7684530 3249530
    47      48 7677070 3258300
    47      49 7676330 3260260
    47      50 7676930 3261160
    47      51 7682950 3263240
    47      52 7687440 3260960
    47      53 7692090 3259890
    47      54 7695250 3260320
    47      55 7698870 3263770
    47      56 7703730 3272940
    47      57 7703450 3275950
    47      58 7699600 3285910
    47      59 7663960 3305040
    47      60 7658260 3306270
    47      61 7648970 3311280
    47      62 7635610 3311940
    47      63 7635620 3313740
    47      64 7637140 3316900
    47      65 7637000 3318410
    47      66 7630450 3329730
    47      67 7629900 3339220
    47      68 7623920 3343160
    47      69 7624230 3345120
    47      70 7627560 3349770
    47      71 7630140 3355330
    47      72 7632000 3364660
    47      73 7632900 3365860
    47      74 7640430 3368690
    47      75 7643600 3371990
    47      76 7643620 3375450
    47      77 7641090 3379680
    47      78 7632430 3388910
    47      79 7629760 3395540
    47      80 7627100 3402330
    47      81 7622470 3407170
    47      82 7617680 3410810
    47      83 7614090 3412780
    47      84 7613790 3413990
    47      85 7613790 3413990
    47      86 7593049 3419844
   758       0       -       -
   758       1 7599700 3562380
   758       2 7572000 3569890
   758       3 7572000 3570490
   758       4 7571890 3570750
   758       5 7571890 3570750
   758       6 7509370 3535290
   758       7 7498350 3518340

jatkuu....

....................


Tutkimusaineiston aluerajat:


Helsinki                 91          1
Espoo                    49          1
Vantaa                   92          1
Kauniainen              235          1


Tampere                  837         2
Turku                    853         2
Oulu                     564         2
Lahti                    398         2
Kuopio                   297         2
Jyväskylä                179         2
Pori                     609         2
Lappeenranta             405         2
Vaasa                    905         2
Kotka                    285         2
Joensuu                  167         2

Kaikki muut Suomen kunnat            3
................
SEARCH?


CLASSIFY?
VAR?
CLASSIFY KR1,areaclasses1,kno04,Xcoord
CLASSIFICATION areaclasses1
    91:        -1
    49:        -1
    92:        -1
   235:        -1
   837:       -2
   853:       -2
   564:       -2
   398:       -2
   297:       -2
   179:       -2
   609:       -2
   405:       -2
   905:       -2
   285:       -2
   167:       -2
   OTHERS: -3
END
FILE SHOW KR1

.......................

VAR Xplot=if(plotord=0)then(Xcoord)else(Xkoord) TO KR1

FILE SHOW KR1

Data valmis piirtoa varten!

SHOW maptempl1
..................
L OADP maptempl1
......................
Pohja peruskartan piirtämiseksi
area1 = kunta, area2 = seutukunta, area3 = maakunta, area4 = läänitaso
REPLACE "<kartta","Synk",C    / LINES=CUR+9,CUR+54
REPLACE ".ps>",".ps ",C
REPLACE "<area1dat>","KR1",C
REPLACE "<area4dat>","LCOORDS1",C
REPLACE "<area3label>","MLABELS1",C
REPLACE "<Xkoord>","Xplot",C
REPLACE "<Ykoord>","Ykoord",C
REPLACE "<Maakunta>","Maakunta",C
...............................
  l=1200 h=2100
 xdl=0.05 xdc=.9 xdr=0.05 / ydl=0.05 ydc=.9 ydu=0.05
 *xs=3083750,3734160:_ / *ys=6639820,7784320

HEADER=[Swiss(12)],Syntymäkotikunta
FRAME=0   *xl=_   *yl=_ a  MODE=PS

PEN=[line_type(0)][line_width(1)][BLACK][Swiss(10)][move(0,0)][rot(0)]
FILE SHOW LCOORDS1
PLOT KR1,Xplot,Ykoord   / DEVICE=PS,_area1polygon.PS SELECT=KUNNAT
  LINE=[line_type(0)][BLACK][line_width(0.2)],POLYGON,-1,-2,-3  POINT=_
PLOT KR1,Xplot,Ykoord   / DEVICE=PS,_area1lines.PS   SELECT=KUNNAT
  LINE=[line_type(0)][BLACK][line_width(0.05)],1  POINT=_
EPS JOIN Synk K1 K2
PLOT LCOORDS1,Xkoord,Ykoord   / DEVICE=PS,_area4lines.PS
SELECT=LAANIT  LINE=[line_type(0)][BLACK][line_width(.7)],1    POINT=_
PLOT MLABELS1,Xplot,Ykoord / DEVICE=PS,_area3labels.PS  SELECT=MAAK
    LINE=0  POINT=[move(0,10)][Times(10)][BLUE],Maakunta
PLOT _LEGENDAT  / TYPE=HBAR       DEVICE=PS,_legend-box.PS   SELECT=BAR
EPS JOIN Synk K1 K2 K3 K5
K3 K4 K5
/OPEN Synk.ps
/SAVENOW
K1=_area1polygon.PS
K2=_area1lines.PS
K3=_area4lines.PS
K4=_area3labels.PS
K5=_legend-box.PS

/GS-PDF Synk.ps
FILE SHOW KRAJAT
KUNNAT=kno04,0,2000 MAAK=mkno,1,400 LAANIT=laanino,1,100

TEKSTIEN SIJOITTELU:
TEXTS=T1 ,T2
T1=[BLACK][Swiss(9)],<source>,0.4*l,0.025*h
T2=[Swiss(8)],<text>,0.070*l,0.76*h

VÄRITYKSET:
[FILL-1]=1,0,0,.3       FILL(-1)=1,0,0,.3
[FILL-2]=0,1,1,0        FILL(-2)=0,1,1,0
[FILL-3]=0,0,0,0        FILL(-3)=0,0,0,0



SIZE=l,h / XDIV=xdl,xdc,xdr /  YDIV=ydl,ydc,ydu
XSCALE=*xs  XLABEL=*xl  YSCALE=*ys YLABEL=*yl

Aineisto:
DATA _LEGENDAT
APU      Pääk.seutu Suuret_kunnat  Muu_alue       X
MMM      0         0               0              0

MASK=LXXX-
MODE=PS
PLOT _LEGENDAT / TYPE=HBAR  DEVICE=PS,_legend-box.PS / SELECT=BAR
LEGEND=.05*l,.6*h,1 / LEGEND_BOX=90,90,80,80 /
LEGEND_TEXT=[Swiss(11)],110,20
NAMES=- BAR=X,0 SHADING=-1,-2,-3

,-4,-5
/OPEN _legend-box.ps
...................

Ongelma 2:

Kuvataan tutkimushenkilöt pisteinä kartalle

FILE SHOW SYNK0  / Tutkittavat
FILE STATUS SYNK0
 Vuoden 2000 kuntajaolla
FIELDS: (active)
   1 NA_   8 KTL_IDM  (##########)
   2 NA_   2 SKUNTA   (######)
   3 NA_   2 MSKUNTA  (#######)
   4 NA_   2 FSKUNTA  (#######)
   5 NA_   1 KD1      (###)
END
Survo data file SYNK0: record=38 bytes, M1=10 L=64  M=5 N=856


FILE COPY SYNK0 TO NEW SYNK2

Kuntamuutostiedosto
SHOW kuntamuut1.txt

>F INDSTR "563" kuntamuut1.txt

>HELP FINDSTR
>FINDSTR "[0-9][0-9][0-9][0-9][0][0-6]" kuntamuut1.txt  > t


SHOW t

Anttola         014     311200  Mikkeli         491     ks. tämä taulu:
Jäppilä         184     311203  Pieksänmaa      640     ks.tämä taulu:
Kangaslampi     212     311204  Varkaus         915
Karinainen      219     311204  Pöytyä          636
Kiihtelysvaara  251     311204  Joensuu         167     ks.tämä taulu: T
Kullaa          293     311204  Ulvila          886
Kuorevesi       299     311200  Jämsä           182
Loimaan kunta   431     311204  Loimaa          430
Mikkelin mlk    492     311200  Mikkeli         491     ks. tämä taulu:
Pattijoki       582     311202  Raahe           678
Peräseinäjoki   589     311204  Seinäjoki       743
Pieksämäen mlk  594     311203  Pieksänmaa      640     ks.tämä taulu:Jä
Rovaniemen mlk  699     311205  Rovaniemi       698
Saari           728     311204  Parikkala       580     ks. tämä taulu:
Sahalahti       730     311204  Kangasala       211
Temmes          841     311200  Liminka         425
Tuupovaara      856     311204  Joensuu         167     ks. tämä taulu:
Uukuniemi       891     311204  Parikkala       580     ks. tämä taulu:
Vehkalahti      917     311202  Hamina          075
Vehmersalmi     919     311204  Kuopio          297
Virtasalmi      937     311203  Pieksänmaa      640     ks.tämä taulu:Jä
Värtsilä        943     311204  Tohmajärvi      848


................
FILE SHOW SYNK2

P UTEND CUR+1,906,:

Vuoden 2004 mukaiset kuntajaot/-koodit:

CLASSIFY SYNK2,CL-kuntamuut,SKUNTA,kno04
CLASSIFICATION CL-kuntamuut
 14: 491
184: 640
212: 915
219: 636
251: 167
293: 886
299: 182
431: 430
492: 491
582: 678
589: 743
594: 640
699: 698
728: 580
730: 211
841: 425
856: 167
891: 580
917:  75
919: 297
937: 640
943: 848
OTHERS: SAME
END

...................

FILE SHOW SYNK2

FILE SHOW SYNK0
.............
Kuntien maantieteellisten? keskipisteiden koordinaatit
FILE SHOW KLABELS1

FILE STATUS KLABELS1
 Copied from text file Bkuntalab04.txt SORT:kno04
FIELDS: (active)
   1 NA_   2 kno04    (#####)
   2 NA_   8 Ykoord   (#######)
   3 NA_   8 Xkoord   (#######)
   4 SA_  18 Kunta
END
Survo data file KLABELS1: record=65 bytes, M1=9 L=64  M=4 N=444

.................
Siirretään KLABELS1 tiedot SYNK2 dataan

FILE EXPAND SYNK2,6,30
VAR Kunta:S18=MISSING TO SYNK2
VAR kno04:2=SKUNTA TO SYNK2
VAR Xkoord:8=MISSING TO SYNK2
VAR Ykoord:8=MISSING TO SYNK2
..........................

FILE COPY KLABELS1 TO SYNK2
VARS=Kunta,Xkoord,Ykoord MATCH=kno04 MODE=3 ODD=NULL
FILE SHOW SYNK2

.......................
IND=Xkoord,MISSING
F ILE LOAD SYNK2,END+3 / VARS=SKUNTA
...................

>FINDSTR "[0-9][0-9][0-9][0-9][0-9][0-9]" kuntamuut1.txt  > t2

SHOW t2

FILE SHOW KMUUT
FILE COPY _KMUUT TO NEW KMUUT

DATA _KMUUT
Kunta0          nro0    pvm     Kunta1  nro1
Ahlainen        001     _10172  Pori    609
Aitolahti       002     010166  Tampere         837
Akaa            003     010146  Kylmäkoski      310
Alatornio       007     010173  Tornio  851
Alaveteli       008     010169  Kruunupyy       288
Angelniemi      011     010167  Halikko         073
Anjala          012     010175  Sippola         754     ks. taulu II: Si
Anttola         014     311200  Mikkeli         491     ks. tämä taulu:
Bergö           032     010173  Maalahti        475
Björköby        033     010173  Mustasaari      499
Bromarv         034     010177  Hanko   078
Degerby         039     010146  lnkoo   149
Eräjärvi        048     010173  Orivesi         562
Haaga           068     010146  Helsinki        091
Haapasaari      070     010174  Kotka   285
Heinola         088     010197  Heinola         111
Heinolan_mlk    089     010197  Heinola         111
Hiittinen       094     010169  Dragsfjärd      040
Hinnerjoki      096     010170  Eura    050
Honkilahti      100     010170  Eura    050
Huopalahti      104     010146  Helsinki        091
Hyvinkään_mlk   107     010169  Hyvinkää        106
Hämeenlinnan_mlk 110     010148  Hämeenlinna     109
Iisalmen_mlk    141     010170  Iisalmi         140
Ikaalinen       144     010172  Ikaalisten_kunta        143     Ikaaline
Jepua           166     010175  Uusikaarlepyy   893
Jäppilä         184     311203  Pieksänmaa      640     ks.tämä taulu:
Jääski          185     010148  Imatra  153     ks. myös taulu III: Jääs
Kaarlela        203     010177  Kokkola         272
Kajaanin_mlk    206     010177  Kajaani         205
Kakskerta       207     010168  Turku   853
Kalanti         209     010193  Uusikaupunki    895
Kangaslampi     212     311204  Varkaus         915
Karhula         201     010177  Kotka   285
Karinainen      219     311204  Pöytyä  636
Karjaan_mlk     221     010169  Karjaa  220
Karjala         222     010177  Mynämäki        503
Karkku          225     010173  Vammala         912
Karuna          228     010169  Sauvo   738
Karunki         229     010173  Tornio  851
Kauvatsa        237     010169  Kokemäki        271
Keikyä          238     010181  Äetsä   988
Kemijärven_mlk  242     010173  Kemijärvi       320
Kiihtelysvaara  251     311204  Joensuu         167     ks.tämä taulu: T
Kiikka          253     010181  Äetsä   988
Koijärvi        267     010169  Forssa  061
Koivulahti      270     010173  Mustasaari      499
Konginkangas    274     010193  Äänekoski       992
Korpiselkä      278     010146  Tuupovaara      856     ks.myös taulu II
Koskenpää       282     010169  Jämsänkoski     183
Kullaa          293     311204  Ulvila  886
Kulosaaren_huvilakaup.  294     010146  Helsinki        091
Kuopion_mlk     298     010169  Kuopio  297
Kuorevesi       299     311200  Jämsä   182
Kuusisto        307     010146  Kaarina         202
Kymi            311     010177  Kotka   285
Kyyrölä         321     010134  Muolaa  497     ks. taulu III: Muolaa-49
Lappee          404     010167  Lappeenranta    405
Lapväärtti      409     010173  Kristiinankaupunki      287
Lauritsala      411     010167  Lappeenranta    405
Lohja           427     010197  Lohja   444
Lohjan_kunta    428     010197  Lohja   444
Loimaan_kunta   431     311204  Loimaa  430
Lokalahti       432     010181  Uusikaupunki    895
Maaria          477     010167  Turku   853
Messukylä       486     010147  Tampere         837
Metsämaa        487     010176  Loimaan_kunta   431
Mikkelin_mlk    492     311200  Mikkeli         491     ks. tämä taulu:
Munsala         496     010175  Uusikaarlepyy   893
Muuruvesi       502     010171  Juankoski       174
Naantalin_mlk   530     010164  Naantali        529
Nuijamaa        539     010189  Lappeenranta    405
Nurmeksen_mlk   542     010173  Nurmes  541
Oulujoki        565     010165  Oulu    564
Oulunkylä       566     010146  Helsinki        091
Paattinen       574     010173  Turku   853
Paavola         575     010173  Ruukki  708     ks. tämä taulu: Revonlah
Paraisten_mlk   579     010167  Parainen        573
Pattijoki       582     311202  Raahe   678
Peräseinäjoki   589     311204  Seinäjoki       743
Petolahti       590     010173  Maalahti        475
Pieksämäen_mlk  594     311203  Pieksänmaa      640     ks.tämä taulu:Jä
Pielisensuu     596     010154  Joensuu         167
Pielisjärvi     597     010173  Lieksa  422
Pihlajavesi     600     010169  Keuruu  249
Pirkkala        994     010122  Etelä-Pirkkala  604     ks. taulu II:
Pirttikylä      605     010173  Närpiö  545
Pohjaslahti     637     010173  Vilppula        933
Porin_mlk       610     010167  Pori    609
Porvoo          612     010197  Porvoo  638
Porvoon_mlk     613     010197  Porvoo  638
Purmo           621     010177  Pietarsaaren_mlk        599     ks. taul
Pusula          622     010181  Nummi   540     ks. taulu II: Nummi-540
Pyhäjärvi_Ul    627     010169  Karkkila        224
Pyhämaa         629     010174  Uusikaupunki    895
Pälkjärvi       634     010146  Tohmajärvi      848     ks.myös taulu II
Raippaluoto     679     010173  Mustasaari      499
Rauman_mlk      685     010193  Rauma   684
Rautio          688     010173  Kalajoki        208
Revonlahti      693     010173  Ruukki  708     ks. tämä taulu: Paavola-
Riistavesi      695     010173  Kuopio  297
Rovaniemen_mlk  699     311205  Rovaniemi       698
Saari           728     311204  Parikkala       580     ks. tämä taulu:
Sahalahti       730     311204  Kangasala       211
Saloinen        735     010173  Raahe   678
Seinäjoen_mlk   744     010159  Seinäjoki       743
Siipyy          750     010173  Kristiinankaupunki      287
Simpele         752     010173  Rautjärvi       689
Snappertuna     756     010177  Tammisaari      835
Somerniemi      760     010177  Somero  761
Sulva           769     010173  Mustasaari      499
Suoniemi        779     010173  Nokia   536
Säkkijärvi      782     010146  Miehikkälä      489     ks. myös taulu l
Säyneinen       786     010171  Juankoski       174
Säynätsalo      787     010193  Jyväskylä       179
Sääksmäki       788     010173  Valkeakoski     908
Sääminki        789     010173  Punkaharju      618
Tammisaaren_mlk 836     010177  Tammisaari      835
Teerijärvi      839     010169  Kruunupyy       288
Teisko          840     010172  Tampere         837
Temmes          841     311200  Liminka         425
Tenhola         842     010193  Tammisaari      835
Tiukka          847     010173  Kristiinankaupunki      287
Tottijärvi      852     010176  Nokia   536
Tuupovaara      856     311204  Joensuu         167     ks. tämä taulu:
Tyrväntö        860     010171  Hattula         082
Tyrvää          861     010173  Vammala         912
Uskela          888     010167  Salo    734
Uudenkaarlepyyn_mlk     894     010175  Uusikaarlepyy   893
Uudenkaupungin_mlk      896     010169  Uusikaupunki    895
Uukuniemi       891     311204  Parikkala       580     ks. tämä taulu:
Vahviala        907     010146  Lappee          404     1) ks. myös taul
Vanaja  914     010167  Hämeenlinna     109
Vehkalahti      917     311202  Hamina  075
Vehmersalmi     919     311204  Kuopio  297
Virtasalmi      937     311203  Pieksänmaa      640     ks.tämä taulu:Jä
Värtsilä        943     311204  Tohmajärvi      848
Ylimarkku       974     010173  Närpiö  545
Ähtävä  990     010177  Pietarsaaren_mlk        599     ks.taulu II: Pie
Äänekosken_mlk  993     010169  Äänekoski       992
Öja             997     010169  Kaarlela        203     ks. tämä taulu:


...................
VAR APU:S2=MISSING TO KMUUT
VAR str(APU)=str(pvm,5,2) TO KMUUT
VAR APU2=if(APU<6)then(1)else(0) TO KMUUT

FILE SHOW KMUUT
FILE SORT KMUUT BY APU2,APU TO KMUUT2
FILE SHOW KMUUT2

FILE LOAD KMUUT2,CUR+1
DATA KMUUT2*,G,H,I
 Kunta0                 nro0 pvm    Kunta1             nro1 AP    APU2
 Pirkkala                994 010122 Etelä-Pirkkala      604 22   0.000
 Kyyrölä                 321 010134 Muolaa              497 34   0.000
 Akaa                      3 010146 Kylmäkoski          310 46   0.000
 Degerby                  39 010146 lnkoo               149 46   0.000
 Haaga                    68 010146 Helsinki             91 46   0.000
 Huopalahti              104 010146 Helsinki             91 46   0.000
 Korpiselkä              278 010146 Tuupovaara          856 46   0.000
 Kulosaaren_huvilakaup.  294 010146 Helsinki             91 46   0.000
 Kuusisto                307 010146 Kaarina             202 46   0.000
 Oulunkylä               566 010146 Helsinki             91 46   0.000
 Pälkjärvi               634 010146 Tohmajärvi          848 46   0.000
 Säkkijärvi              782 010146 Miehikkälä          489 46   0.000
 Vahviala                907 010146 Lappee              404 46   0.000
 Messukylä               486 010147 Tampere             837 47   0.000
 Hämeenlinnan_mlk        110 010148 Hämeenlinna         109 48   0.000
 Jääski                  185 010148 Imatra              153 48   0.000
 Pielisensuu             596 010154 Joensuu             167 54   0.000
 Seinäjoen_mlk           744 010159 Seinäjoki           743 59   0.000
 Naantalin_mlk           530 010164 Naantali            529 64   0.000
 Oulujoki                565 010165 Oulu                564 65   0.000
 Aitolahti                 2 010166 Tampere             837 66   0.000
 Angelniemi               11 010167 Halikko              73 67   0.000
 Lappee                  404 010167 Lappeenranta        405 67   0.000
 Lauritsala              411 010167 Lappeenranta        405 67   0.000
 Maaria                  477 010167 Turku               853 67   0.000
 Paraisten_mlk           579 010167 Parainen            573 67   0.000
 Porin_mlk               610 010167 Pori                609 67   0.000
 Uskela                  888 010167 Salo                734 67   0.000
 Vanaja                  914 010167 Hämeenlinna         109 67   0.000
 Kakskerta               207 010168 Turku               853 68   0.000
 Alaveteli                 8 010169 Kruunupyy           288 69   0.000
 Hiittinen                94 010169 Dragsfjärd           40 69   0.000
 Hyvinkään_mlk           107 010169 Hyvinkää            106 69   0.000
 Karjaan_mlk             221 010169 Karjaa              220 69   0.000
 Karuna                  228 010169 Sauvo               738 69   0.000
 Kauvatsa                237 010169 Kokemäki            271 69   0.000
 Koijärvi                267 010169 Forssa               61 69   0.000
 Koskenpää               282 010169 Jämsänkoski         183 69   0.000
 Kuopion_mlk             298 010169 Kuopio              297 69   0.000
 Pihlajavesi             600 010169 Keuruu              249 69   0.000
 Pyhäjärvi_Ul            627 010169 Karkkila            224 69   0.000
 Teerijärvi              839 010169 Kruunupyy           288 69   0.000
 Uudenkaupungin_mlk      896 010169 Uusikaupunki        895 69   0.000
 Äänekosken_mlk          993 010169 Äänekoski           992 69   0.000
 Öja                     997 010169 Kaarlela            203 69   0.000
 Hinnerjoki               96 010170 Eura                 50 70   0.000
 Honkilahti              100 010170 Eura                 50 70   0.000
 Iisalmen_mlk            141 010170 Iisalmi             140 70   0.000
 Muuruvesi               502 010171 Juankoski           174 71   0.000
 Säyneinen               786 010171 Juankoski           174 71   0.000
 Tyrväntö                860 010171 Hattula              82 71   0.000
 Ahlainen                  1 _10172 Pori                609 72   0.000
 Ikaalinen               144 010172 Ikaalisten_kunta    143 72   0.000
 Teisko                  840 010172 Tampere             837 72   0.000
 Alatornio                 7 010173 Tornio              851 73   0.000
 Bergö                    32 010173 Maalahti            475 73   0.000
 Björköby                 33 010173 Mustasaari          499 73   0.000
 Eräjärvi                 48 010173 Orivesi             562 73   0.000
 Karkku                  225 010173 Vammala             912 73   0.000
 Karunki                 229 010173 Tornio              851 73   0.000
 Kemijärven_mlk          242 010173 Kemijärvi           320 73   0.000
 Koivulahti              270 010173 Mustasaari          499 73   0.000
 Lapväärtti              409 010173 Kristiinankaupunki  287 73   0.000
 Nurmeksen_mlk           542 010173 Nurmes              541 73   0.000
 Paattinen               574 010173 Turku               853 73   0.000
 Paavola                 575 010173 Ruukki              708 73   0.000
 Petolahti               590 010173 Maalahti            475 73   0.000
 Pielisjärvi             597 010173 Lieksa              422 73   0.000
 Pirttikylä              605 010173 Närpiö              545 73   0.000
 Pohjaslahti             637 010173 Vilppula            933 73   0.000
 Raippaluoto             679 010173 Mustasaari          499 73   0.000
 Rautio                  688 010173 Kalajoki            208 73   0.000
 Revonlahti              693 010173 Ruukki              708 73   0.000
 Riistavesi              695 010173 Kuopio              297 73   0.000
 Saloinen                735 010173 Raahe               678 73   0.000
 Siipyy                  750 010173 Kristiinankaupunki  287 73   0.000
 Simpele                 752 010173 Rautjärvi           689 73   0.000
 Sulva                   769 010173 Mustasaari          499 73   0.000
 Suoniemi                779 010173 Nokia               536 73   0.000
 Sääksmäki               788 010173 Valkeakoski         908 73   0.000
 Sääminki                789 010173 Punkaharju          618 73   0.000
 Tiukka                  847 010173 Kristiinankaupunki  287 73   0.000
 Tyrvää                  861 010173 Vammala             912 73   0.000
 Ylimarkku               974 010173 Närpiö              545 73   0.000
 Haapasaari               70 010174 Kotka               285 74   0.000
 Pyhämaa                 629 010174 Uusikaupunki        895 74   0.000
 Anjala                   12 010175 Sippola             754 75   0.000
 Jepua                   166 010175 Uusikaarlepyy       893 75   0.000
 Munsala                 496 010175 Uusikaarlepyy       893 75   0.000
 Uudenkaarlepyyn_mlk     894 010175 Uusikaarlepyy       893 75   0.000
 Metsämaa                487 010176 Loimaan_kunta       431 76   0.000
 Tottijärvi              852 010176 Nokia               536 76   0.000
 Bromarv                  34 010177 Hanko                78 77   0.000
 Kaarlela                203 010177 Kokkola             272 77   0.000
 Kajaanin_mlk            206 010177 Kajaani             205 77   0.000
 Karhula                 201 010177 Kotka               285 77   0.000
 Karjala                 222 010177 Mynämäki            503 77   0.000
 Kymi                    311 010177 Kotka               285 77   0.000
 Purmo                   621 010177 Pietarsaaren_mlk    599 77   0.000
 Snappertuna             756 010177 Tammisaari          835 77   0.000
 Somerniemi              760 010177 Somero              761 77   0.000
 Tammisaaren_mlk         836 010177 Tammisaari          835 77   0.000
 Ähtävä                  990 010177 Pietarsaaren_mlk    599 77   0.000
 Keikyä                  238 010181 Äetsä               988 81   0.000
 Kiikka                  253 010181 Äetsä               988 81   0.000
 Lokalahti               432 010181 Uusikaupunki        895 81   0.000
 Pusula                  622 010181 Nummi               540 81   0.000
 Nuijamaa                539 010189 Lappeenranta        405 89   0.000
 Kalanti                 209 010193 Uusikaupunki        895 93   0.000
 Konginkangas            274 010193 Äänekoski           992 93   0.000
 Rauman_mlk              685 010193 Rauma               684 93   0.000
 Säynätsalo              787 010193 Jyväskylä           179 93   0.000
 Tenhola                 842 010193 Tammisaari          835 93   0.000
 Heinola                  88 010197 Heinola             111 97   0.000
 Heinolan_mlk             89 010197 Heinola             111 97   0.000
 Lohja                   427 010197 Lohja               444 97   0.000
 Lohjan_kunta            428 010197 Lohja               444 97   0.000
 Porvoo                  612 010197 Porvoo              638 97   0.000
 Porvoon_mlk             613 010197 Porvoo              638 97   0.000
 Anttola                  14 311200 Mikkeli             491 00   1.000
 Kuorevesi               299 311200 Jämsä               182 00   1.000
 Mikkelin_mlk            492 311200 Mikkeli             491 00   1.000
 Temmes                  841 311200 Liminka             425 00   1.000
 Pattijoki               582 311202 Raahe               678 02   1.000
 Vehkalahti              917 311202 Hamina               75 02   1.000
 Jäppilä                 184 311203 Pieksänmaa          640 03   1.000
 Pieksämäen_mlk          594 311203 Pieksänmaa          640 03   1.000
 Virtasalmi              937 311203 Pieksänmaa          640 03   1.000
 Kangaslampi             212 311204 Varkaus             915 04   1.000
 Karinainen              219 311204 Pöytyä              636 04   1.000
 Kiihtelysvaara          251 311204 Joensuu             167 04   1.000
 Kullaa                  293 311204 Ulvila              886 04   1.000
 Loimaan_kunta           431 311204 Loimaa              430 04   1.000
 Peräseinäjoki           589 311204 Seinäjoki           743 04   1.000
 Saari                   728 311204 Parikkala           580 04   1.000
 Sahalahti               730 311204 Kangasala           211 04   1.000
 Tuupovaara              856 311204 Joensuu             167 04   1.000
 Uukuniemi               891 311204 Parikkala           580 04   1.000
 Vehmersalmi             919 311204 Kuopio              297 04   1.000
 Värtsilä                943 311204 Tohmajärvi          848 04   1.000
 Rovaniemen_mlk          699 311205 Rovaniemi           698 05   1.000



............................
VAR?
2005-03-29
SELECT?
F ILE LOAD KMUUT2,CUR+1 / VARS=nro0,nro1 SELECT=!C1 C1=APU:05,06
..............
FILE SHOW SYNK2
CLASSIFY SYNK2,CL-kuntamuut2,SKUNTA,kno04
CLASSIFICATION CL-kuntamuut2
  994: 604
  321: 497
    3: 310
   39: 149
   68:  91
  104:  91
  278: 856
  294:  91
  307: 202
  566:  91
  634: 848
  782: 489
  907: 404
  486: 837
  110: 109
  185: 153
  596: 167
  744: 743
  530: 529
  565: 564
    2: 837
   11:  73
  404: 405
  411: 405
  477: 853
  579: 573
  610: 609
  888: 734
  914: 109
  207: 853
    8: 288
   94:  40
  107: 106
  221: 220
  228: 738
  237: 271
  267:  61
  282: 183
  298: 297
  600: 249
  627: 224
  839: 288
  896: 895
  993: 992
  997: 203
   96:  50
  100:  50
  141: 140
  502: 174
  786: 174
  860:  82
    1: 609
  144: 143
  840: 837
    7: 851
   32: 475
   33: 499
   48: 562
  225: 912
  229: 851
  242: 320
  270: 499
  409: 287
  542: 541
  574: 853
  575: 708
  590: 475
  597: 422
  605: 545
  637: 933
  679: 499
  688: 208
  693: 708
  695: 297
  735: 678
  750: 287
  752: 689
  769: 499
  779: 536
  788: 908
  789: 618
  847: 287
  861: 912
  974: 545
   70: 285
  629: 895
   12: 754
  166: 893
  496: 893
  894: 893
  487: 431
  852: 536
   34:  78
  203: 272
  206: 205
  201: 285
  222: 503
  311: 285
  621: 599
  756: 835
  760: 761
  836: 835
  990: 599
  238: 988
  253: 988
  432: 895
  622: 540
  539: 405
  209: 895
  274: 992
  685: 684
  787: 179
  842: 835
   88: 111
   89: 111
  427: 444
  428: 444
  612: 638
  613: 638
   14: 491
  299: 182
  492: 491
  841: 425
  582: 678
  917:  75
  184: 640
  594: 640
  937: 640
  212: 915
  219: 636
  251: 167
  293: 886
  431: 430
  589: 743
  728: 580
  730: 211
  856: 167
  891: 580
  919: 297
  943: 848
OTHERS: SAME
END

......................

FILE COPY KLABELS1 TO SYNK2
VARS=Kunta,Xkoord,Ykoord MATCH=kno04 MODE=3 ODD=NULL
FILE SHOW SYNK2

.................

Sukro:

/SUBORDER SYNK2,kno04,SUBORD


/WHICH SUBORDER
/TUTSHOW C:\SURVO\MYSUCROS\SUBORDER.TUT

FILE SHOW SYNK2
.............................

FILE LOAD SYNK2,CUR+3 / IND=ORDER,1,20
VARS=KTL_IDM,SKUNTA,kno04,Xkoord,Ykoord,SUBORD

DATA SYNK2*,D,J,K
    KTL_IDM SKUNTA  kno04      Xkoord      Ykoord SUBORD
  723700201      4      4 3288220.000 7020201.000      1
  723700202      4      4 3288220.000 7020201.000      2
  892500101      4      4 3288220.000 7020201.000      3
  892500201      4      4 3288220.000 7020201.000      4
  892500202      4      4 3288220.000 7020201.000      5
  892500203      4      4 3288220.000 7020201.000      6
 1457400201      4      4 3288220.000 7020201.000      7
  553700202      5      5 3344255.000 6991280.000      1
  553700208      5      5 3344255.000 6991280.000      2
  707300101      5      5 3344255.000 6991280.000      3
 1163500204      5      5 3344255.000 6991280.000      4
 1163500205      5      5 3344255.000 6991280.000      5
 1743300205      9      9 3370566.000 7122720.000      1
 1743300208      9      9 3370566.000 7122720.000      2
 1898200201      9      9 3370566.000 7122720.000      3
 1898200203      9      9 3370566.000 7122720.000      4
 1537800206     10     10 3322008.000 6940206.000      1
 1537800207     10     10 3322008.000 6940206.000      2
  803800201     15     15 3450726.000 6734455.000      1
  694200202     44     44 3473452.000 6734637.000      1







.......................

x0=Xkoord  y0=Ykoord
VAR X,Y TO SYNK2
R=a*log(SUBORD)   a=1000
X=x0+R*cos(SUBORD)+N.G(0,2000000,rnd(0))
Y=y0+R*sin(SUBORD)+N.G(0,2000000,rnd(0))

RND?
......................
MODE=PS
GPLOT SYNK2,X,Y   / POINT=0,1

........................

  l=1200 h=2100
 xdl=0.05 xdc=.9 xdr=0.05 / ydl=0.05 ydc=.9 ydu=0.05
 *xs=3083750,3734160:_ / *ys=6639820,7784320

HEADER=[Swiss(12)],Syntymäkotikunta
FRAME=0   *xl=_   *yl=_ a  MODE=PS

PEN=[line_type(0)][line_width(1)][BLACK][Swiss(10)][move(0,0)][rot(0)]

PLOT KR1,Xplot,Ykoord   / DEVICE=PS,_area1polygon.PS SELECT=KUNNAT
 LINE=[line_type(0)][BLACK][line_width(0.2)],POLYGON,-1,-2,-3  POINT=_
PLOT KR1,Xplot,Ykoord   / DEVICE=PS,_area1lines.PS   SELECT=KUNNAT
 LINE=[line_type(0)][BLACK][line_width(0.05)],1  POINT=_
PLOT SYNK2,X,Y / DEVICE=PS,_area1obs.PS SELECT=KUNNAT  LINE=0 POINT=0,1
PLOT _LEGENDAT  / TYPE=HBAR       DEVICE=PS,_legend-box.PS   SELECT=BAR
EPS JOIN Synk_obs K1 K2 K5 K6

PLOT LCOORDS1,Xplot,Ykoord   / DEVICE=PS,_area4lines.PS   SELECT=LAANIT
  LINE=[line_type(0)][BLACK][line_width(.7)],1    POINT=_
PLOT MLABELS1,Xplot,Ykoord / DEVICE=PS,_area3labels.PS  SELECT=MAAK
   LINE=0  POINT=[move(0,10)][Times(10)][BLUE],Maakunta  POINT=_
EPS JOIN Synk_obs K1 K2 K5 K6
K3 K4 K5
/OPEN Synk_obs.ps
/SAVENOW
K1=_area1polygon.PS
K2=_area1lines.PS
K3=_area4lines.PS
K4=_area3labels.PS
K5=_legend-box.PS
K6=_area1obs.PS

/GS-PDF Synk_obs.ps
FILE SHOW KRAJAT
KUNNAT=kno04,0,2000 MAAK=mkno,1,400 LAANIT=laanino,1,100

TEKSTIEN SIJOITTELU:
TEXTS=T1 ,T2
T1=[BLACK][Swiss(9)],<source>,0.4*l,0.025*h
T2=[Swiss(8)],<text>,0.070*l,0.76*h

VÄRITYKSET (ol. sinisen 8 sävyä):
[FILL-1]=1,0,0,0        FILL(-1)=1,0,0,0
[FILL-2]=0,.5,1,0        FILL(-2)=0,.5,1,0
[FILL-3]=.0,0,0,0       FILL(-3)=.0,0,0,0
[FILL-4]=1,0,1,.1       FILL(-4)=1,0,1,.1
[FILL-5]=1,0,1,.5       FILL(-5)=1,0,1,.5

SIZE=l,h / XDIV=xdl,xdc,xdr /  YDIV=ydl,ydc,ydu
XSCALE=*xs  XLABEL=*xl  YSCALE=*ys YLABEL=*yl

Aineisto:
DATA _LEGENDAT
APU      Pääk.seutu Suuret_kunnat  Muu_alue       X
MMM      0         0               0              0

MASK=LXXX-
MODE=PS
PLOT _LEGENDAT / TYPE=HBAR  DEVICE=PS,_legend-box.PS / SELECT=BAR
LEGEND=.05*l,.6*h,1 / LEGEND_BOX=90,90,80,80 /
LEGEND_TEXT=[Swiss(11)],110,20
NAMES=- BAR=X,0 SHADING=-1,-2,-3

,-4,-5
/OPEN _legend-box.ps
...................

Vastaukset:

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!

Etusivu  |  Keskustelu
Copyright © Survo Systems 2001-2013. All rights reserved.
Updated 2013-06-15.