Nothing
R/swiss.R
In SpatialExtremes: Modelling Spatial Extremes
Defines functions
swiss
Documented in
swiss
swiss <- function(city = FALSE, add = FALSE, axes = FALSE, km = TRUE,
xlab = "", ylab = "", ...){
if (km)
scale <- 1 / 1000
else
scale <- 1
## Schweizergrenze: Land (Datenpunkte)
## ----------------------------------------------------------------------------
ch.grenze.land.teilstueck.1 <- matrix(c(759892.6250000,263348.3437500,
760768.3125000,262177.7187500,
761928.5000000,261087.9531250,
762976.0625000,259349.5000000,
763724.6875000,259911.1718750,
764592.1250000,258922.2187500,
767467.9375000,258206.4218750,
767190.5000000,257379.2187500,
766659.9375000,256106.2343750,
767050.3750000,252916.4218750,
768669.1250000,251535.6718750,
768572.1250000,249831.7968750,
767265.5000000,248734.4062500,
765599.9375000,248652.9843750,
764521.1250000,247925.0000000,
763343.3125000,246217.7812500,
763044.5000000,244908.1093750,
762614.7500000,243024.5000000,
761664.0000000,241966.3593750,
760269.1875000,240563.5937500,
759600.1875000,238794.3906250,
758415.1875000,237586.7343750), ncol = 2, byrow= TRUE)
ch.grenze.land.teilstueck.2 <- matrix(c(758415.1875000,237586.7343750,
759074.0000000,236912.8750000,
759241.0625000,236341.1562500,
760706.9375000,235201.3750000,
761307.3750000,234287.6875000,
760206.4375000,232465.7343750,
760550.1875000,232352.3750000,
762832.3125000,230439.4687500,
761984.8750000,228898.0781250,
762015.4375000,227168.7343750,
761610.6250000,226480.7500000,
762233.3125000,226622.6250000,
763686.3125000,225546.3593750,
764313.2500000,224276.7187500,
765570.9375000,224725.8125000,
765946.2500000,222552.5000000,
766608.8750000,222084.1093750,
765712.3125000,219983.0156250,
766362.1875000,219552.7343750,
766725.6250000,217099.6093750,
765049.0000000,216407.5781250,
765091.5625000,214958.0312500,
764661.9375000,214578.0312500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.3 <- matrix(c(758415.1875000,237586.7343750,
757951.0625000,235292.0625000,
755266.2500000,228985.8281250,
755640.8750000,226051.2500000,
757201.8125000,223179.0937500,
757888.6250000,219620.1406250,
757888.6250000,217996.7500000,
757638.8750000,216935.3125000,
755391.1250000,214937.3125000,
754891.6250000,213438.7812500,
759886.6875000,214625.1093750,
760635.8750000,213563.6718750,
764661.9375000,214578.0312500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.4 <- matrix(c(708257.8125000,279239.1562500,
708152.2500000,279648.6250000,
706950.4375000,281996.8750000,
706085.1250000,282210.3437500,
706385.8125000,283838.5625000,
707505.8125000,283473.3437500,
707299.1875000,284604.1875000,
705644.1250000,285323.7500000,
704625.7500000,285714.7187500,
703698.5625000,285330.4375000,
703518.3750000,286118.1250000,
702550.0000000,286827.0625000,
702968.1875000,287324.1875000,
702648.1250000,288111.4062500,
702012.8125000,287931.4687500,
701239.3125000,287166.2812500,
700224.8125000,286171.5000000,
699986.6250000,284950.3125000,
701871.3125000,283964.4687500,
702852.0000000,283408.1250000,
701903.9375000,281383.7812500,
698631.6875000,282924.7187500,
697368.5625000,283204.1250000,
695910.0625000,283068.8750000,
693836.0000000,283583.7187500,
692554.9375000,282410.1250000,
691728.4375000,283036.3437500,
692792.1250000,283987.3125000,
692127.3750000,285256.5937500,
693362.0000000,284840.8437500,
694783.3750000,285836.8750000,
695753.7500000,283452.8437500,
696949.0625000,283866.8750000,
697440.6250000,285972.2187500,
696053.2500000,286451.0312500,
695478.7500000,287262.9062500,
695894.1875000,288751.6562500,
697646.9375000,289494.4375000,
695709.3750000,291192.0312500,
693969.6875000,290347.5937500,
693533.5000000,291719.2812500,
693198.3750000,293332.8437500,
691568.3750000,294192.3125000,
691566.0000000,295044.0937500,
690765.1875000,294939.9062500,
690463.6250000,293642.2187500,
691167.2500000,292118.8125000,
689442.5625000,290448.0312500,
689364.0625000,291236.0000000,
688549.1875000,291614.9062500,
688049.1250000,293100.8125000,
688783.3125000,294298.1250000,
687979.6250000,295223.7187500,
686415.7500000,295168.0312500,
685589.6250000,295012.9375000,
684506.8125000,295708.8125000,
684333.4375000,294042.8437500,
685160.5000000,293854.6875000,
685544.2500000,293054.9375000,
684337.4375000,292618.9687500,
683699.6250000,293354.3750000,
681008.6250000,291642.4687500,
680345.9375000,292174.3750000,
678477.4375000,291914.3437500,
677173.3750000,289888.9062500,
675868.2500000,288219.4375000,
675819.4375000,287494.6250000,
676520.3125000,286950.1250000,
676178.5625000,286389.6875000,
675415.6875000,286374.6250000,
673614.0000000,284957.8750000,
672512.0625000,283403.4687500,
673762.6875000,281792.7187500,
672886.7500000,281281.5000000,
673297.6875000,279820.7500000,
674035.0625000,279886.5937500,
675042.3750000,278885.3437500,
676302.2500000,278520.5312500,
677115.6875000,278662.9062500,
677969.1875000,278106.1562500,
679394.5000000,277703.7187500,
682204.0000000,277953.9375000,
681793.8750000,279109.5937500,
682669.2500000,279824.2500000,
684511.9375000,280224.0312500,
685619.8750000,279642.6562500,
687740.3750000,280717.1250000,
687972.0625000,279726.1875000,
689425.1250000,278472.0625000,
688511.6250000,277757.2812500,
687949.3125000,278747.1875000,
687025.1250000,277295.0312500,
687808.5625000,274525.9375000,
687055.6875000,273125.3125000,
686809.1875000,272666.7187500,
686072.5000000,272438.4062500,
685856.4375000,272333.2500000,
684482.5000000,272545.1250000,
685190.5000000,274022.0625000,
684449.8750000,275138.5312500,
682489.1250000,276035.1250000,
681267.4375000,276387.3125000,
680471.0000000,274719.4375000,
678577.4375000,274319.4687500,
677664.5000000,273375.8750000,
676636.7500000,272584.4687500,
677226.3750000,270908.1250000,
679376.1875000,270596.9375000,
676136.5000000,269507.3437500,
674510.9375000,268852.9062500,
672155.3125000,270002.5625000,
671293.7500000,268868.4062500,
666269.3750000,269450.4062500,
664649.5625000,271212.5625000,
664325.6875000,273347.4062500,
662049.0000000,273543.7812500,
661614.9375000,274165.4062500,
660305.6875000,273996.0937500,
659227.0625000,273204.5312500,
658854.7500000,274474.7187500,
656883.3125000,274646.5937500,
654436.8125000,271918.4062500,
653228.5625000,271990.9687500,
652215.0000000,270678.3750000,
650092.1875000,270417.5312500,
649044.4375000,267668.2500000,
646969.7500000,268373.7812500,
643438.8750000,266900.8437500,
641352.7500000,267161.4062500,
638528.0000000,267826.4687500,
637693.5000000,266120.3125000,
636263.8750000,266709.5000000,
635453.5625000,266825.3437500,
635547.9375000,269470.0000000,
634348.5000000,270941.0312500,
631792.8125000,270869.5937500,
630650.3750000,270154.1250000,
629670.1250000,270570.6250000,
628817.8750000,270682.4062500,
627921.0625000,268518.3750000,
626347.8125000,267267.6250000,
623235.9375000,265999.4062500,
621163.1875000,266043.8750000,
619539.0625000,264780.2187500,
617529.6875000,264888.4375000,
616801.6875000,266030.4062500,
615754.3750000,267667.1875000,
617838.6250000,268080.4375000,
618625.6875000,268553.2500000,
618852.6250000,269253.1875000,
617654.0000000,270444.5312500,
617449.0000000,271016.0000000,
615565.1875000,271684.0000000,
614159.5625000,269594.6875000,
612938.5000000,269718.0312500,
612795.6875000,270772.8125000,
611802.3125000,271316.4062500,
611258.7500000,270157.8125000,
610294.5000000,269379.3437500,
608833.0625000,269069.6875000,
608797.8125000,268039.8125000,
605993.2500000,266009.7500000,
604431.1875000,265318.4062500,
605184.5625000,264189.2500000,
606174.6250000,264815.2500000,
606965.1875000,264042.1875000,
606269.0000000,262895.8437500,
605074.5625000,262599.7500000,
605613.3750000,260885.1406250,
603876.0625000,259188.8750000,
602592.8750000,258790.8125000,
601814.7500000,259678.3437500,
599561.2500000,260675.7187500,
598841.6250000,258817.3906250,
601349.0625000,257947.8750000,
600411.5625000,256711.8281250,
599433.1875000,256454.5312500,
598865.3125000,254901.7500000,
597024.3750000,253879.0000000,
596091.8125000,253521.3593750,
595868.8750000,253290.6250000,
593222.3750000,253867.2656250,
592356.3125000,254360.4218750,
588135.8125000,253940.5625000,
587477.4375000,252921.4687500,
585444.5625000,252343.0937500,
584294.2500000,254449.9531250,
581586.8750000,254047.4843750,
580007.8125000,254868.9687500,
580420.1250000,257489.1718750,
581380.4375000,259678.8281250,
579090.5625000,260027.7500000,
576759.1250000,261622.4062500,
575401.2500000,260652.0156250,
574130.1250000,260482.8281250,
572695.1250000,259817.2968750,
570275.5000000,261119.2968750,
568709.7500000,261711.9843750,
565864.9375000,260457.3125000,
565857.5625000,258550.2968750,
567187.2500000,255948.1562500,
566591.2500000,255361.5156250,
564901.0000000,255013.0312500,
564154.0625000,253841.1093750,
562349.1250000,253593.9843750,
562344.9375000,250542.7812500,
560730.1875000,250474.2187500,
560312.6875000,249722.8593750,
559211.1875000,248003.1562500,
558286.2500000,246817.9687500,
557910.3750000,244820.8125000,
561152.1250000,245085.0937500,
566350.6875000,245876.6562500,
567962.5000000,247000.3906250,
570360.9375000,245626.3906250,
570691.0000000,244377.1718750,
571621.8750000,243426.5468750,
571093.3750000,242819.8125000,
570278.3125000,241884.0937500,
567532.6875000,241532.3593750,
568043.1875000,240872.8437500,
567234.4375000,239065.0625000,
564782.8125000,238154.8437500,
563117.3125000,238048.0000000,
562547.5625000,237181.7343750,
562938.3750000,233826.6250000,
563247.2500000,232505.4062500,
561178.3125000,231164.1250000,
560876.0000000,230133.4062500,
557373.2500000,227707.0781250,
557059.5000000,226218.6562500,
554445.4375000,224290.8750000,
555795.4375000,223519.5312500,
551888.9375000,219960.4687500,
549068.3750000,219099.9687500,
546974.1250000,217720.4687500,
547600.1250000,216692.6250000,
547119.6875000,215686.7812500,
545847.9375000,215746.4218750,
544235.3750000,214915.0937500,
544251.0625000,213847.2187500,
543490.8125000,212891.3750000,
544611.1250000,212399.0156250,
545428.2500000,211219.2031250,
543435.6875000,209852.7343750,
541859.6875000,209580.8906250,
540185.3125000,208113.6875000,
539453.1250000,206204.4375000,
537599.9375000,205003.6562500,
535921.3125000,205049.3281250,
534360.5625000,203874.8906250,
529063.1250000,202078.6718750,
528234.2500000,202915.2031250,
524939.5000000,198836.7812500,
523314.0312500,198056.2500000,
523647.1250000,197192.7656250,
525767.9375000,193601.4531250,
525449.9375000,189331.8750000,
523702.4062500,186488.3437500,
523794.2187500,185497.0000000,
522930.6250000,185112.9375000,
523163.0312500,183829.6093750,
525112.3125000,182488.0156250,
524582.4375000,180986.2187500,
523556.0312500,179711.7187500,
522871.5312500,178934.0937500,
520826.0000000,178330.2500000,
519862.3125000,177361.0625000,
519306.0937500,176177.0156250,
518301.6562500,176148.4843750,
518278.2812500,175423.7500000,
517413.9375000,175281.2500000,
516869.6875000,174376.9218750,
511421.8750000,171779.2968750,
510420.8437500,170517.5937500,
505296.9375000,165759.7187500,
503471.8437500,163618.2500000,
502024.3437500,162863.7031250,
498118.2812500,159139.3593750,
501853.5000000,155743.7343750,
501449.1250000,154839.8437500,
500166.9062500,154098.5156250,
498049.4687500,151905.2968750,
496838.0625000,148570.6718750,
495202.0000000,147040.0156250,
495243.5625000,145819.6718750,
496162.5937500,144563.8906250,
494136.9375000,141392.0312500,
496593.2500000,140624.1093750,
498122.3437500,139471.9218750,
500875.6875000,137064.8906250,
501905.3125000,137195.2031250,
502094.4062500,136421.5937500,
502265.4687500,135721.5781250,
499921.3750000,132739.4218750,
498327.0937500,129912.1562500,
498331.3125000,128399.2890625,
497114.4687500,127009.7812500,
498739.8125000,123277.0937500,
496976.9687500,121606.2109375,
495867.8750000,122619.8515625,
493795.6562500,122448.1796875,
492527.6562500,121172.9453125,
491190.9062500,121740.9140625,
488677.5937500,120156.7031250,
488285.8437500,119278.2656250,
487458.4687500,119580.8359375,
486837.1250000,118968.6796875,
486814.3125000,118027.8203125,
486345.7812500,117327.1484375,
488308.6562500,115667.7734375,
487039.0937500,114939.1953125,
485702.2812500,110981.2343750,
485387.2500000,109950.4921875,
487166.9375000,110146.6796875,
488168.0000000,111395.6796875,
490598.0937500,110907.3515625,
491439.1250000,110261.5703125,
492390.6875000,111027.3125000,
492680.0937500,112121.5390625,
496228.1250000,112005.3671875,
496154.2187500,111153.3437500,
499092.7812500,110717.4531250,
500360.7187500,112018.1171875,
503243.2500000,113438.1875000,
503226.5937500,114849.3203125,
504063.7812500,115589.2734375,
506994.6875000,117899.4296875,
510259.3125000,119091.8437500,
512566.7812500,121539.9140625,
512777.7187500,123409.4140625,
511709.9687500,123266.2734375,
511567.1562500,124321.0390625,
509563.2500000,122458.7109375,
507148.6875000,126494.0859375,
508608.8750000,127261.3906250,
508187.2500000,128889.0078125), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.5 <- matrix(c(764661.9375000,214578.0312500,
765544.6875000,213818.4062500,
767185.2500000,213734.4843750,
767590.2500000,214422.2500000,
770196.0000000,214760.8281250,
771407.0625000,213671.2343750,
773266.0000000,212812.4687500,
775059.6250000,212563.7343750,
776230.8125000,212084.2500000,
778125.0000000,212242.6562500,
780341.8750000,210698.4687500,
782149.8750000,209852.2656250,
783560.7500000,210072.7500000,
784143.5625000,210824.6250000,
785390.7500000,210447.0781250,
785102.2500000,209035.0156250,
786439.4375000,208301.7656250,
786595.2500000,207158.0625000,
785419.0000000,204891.4687500,
785180.0000000,203949.9375000,
785817.0625000,203494.2343750,
785783.9375000,201714.2656250,
788522.7500000,199942.8593750,
789758.5625000,199107.5937500,
790865.9375000,198704.1875000,
792034.3750000,199203.6093750,
793370.0625000,199029.7500000,
794136.0000000,197964.2031250,
797050.1875000,197146.8281250,
797866.4375000,196272.1406250,
799294.0000000,195068.7812500,
799106.9375000,193733.3125000,
799769.1250000,193404.8125000,
801956.4375000,193335.2812500,
803296.5625000,191559.5468750,
803740.1250000,191582.0312500,
804364.5000000,191613.7031250,
804744.6250000,192110.7031250,
805990.9375000,192050.9843750,
806689.0000000,192510.8125000,
808760.9375000,192771.4687500,
809407.0000000,193650.6875000,
810058.1250000,194233.9375000,
812736.2500000,194487.3281250,
813010.5625000,196433.3125000,
812396.9375000,197588.3281250,
813093.5000000,198594.8281250,
813364.5000000,201723.1250000,
817805.3125000,200656.2031250,
818872.0625000,201142.6093750,
819188.4375000,201702.9687500,
818283.0000000,202628.2343750,
818483.0625000,203836.6250000,
819854.5625000,204501.9375000,
821369.5625000,208396.8906250,
823047.4375000,208605.4843750,
823985.6875000,209600.0156250,
824939.7500000,209450.4062500,
825872.0000000,208029.3906250,
827413.3750000,207029.7968750,
827125.3125000,205452.4531250,
827775.8125000,204755.2343750,
829696.0000000,204723.0312500,
831875.1250000,203026.1718750,
831972.3125000,200089.7031250,
830709.5625000,196932.9062500,
831266.4375000,193324.0468750,
831211.0000000,193104.8437500,
830272.8750000,189392.5781250,
829476.5625000,187673.8281250,
828371.8750000,187098.3125000,
828148.5000000,186807.5312500,
827725.7500000,186257.2500000,
828001.2500000,186000.1093750,
829333.1875000,184380.6406250,
829427.4375000,182499.3593750,
828500.8125000,181911.6875000,
826293.5625000,180010.5937500,
827632.5625000,178641.7031250,
827394.8125000,177255.2187500,
826556.0625000,177087.3593750,
826052.3125000,175344.0781250,
825049.3125000,174781.5937500,
825092.3125000,174627.0156250,
825897.0625000,171733.0156250,
826882.3125000,169536.6718750,
830238.3750000,169877.5781250,
831422.6875000,169245.5625000,
833640.8125000,167256.4218750,
833199.1250000,166047.2968750,
833431.6875000,164725.8281250,
833675.5625000,163912.9375000,
833031.6250000,162283.6406250,
832767.7500000,161151.3437500,
833214.8750000,160415.3593750,
832671.5000000,159193.2031250,
831453.3750000,158261.3750000,
830563.3125000,158245.9062500,
828625.7500000,159956.2187500,
826860.7500000,159060.8437500,
825726.8750000,159832.8593750,
823335.1250000,160245.0156250,
823133.8125000,159494.3125000,
822258.6250000,158703.3750000,
821377.9375000,159870.2812500,
820337.3125000,159129.7031250,
819599.1875000,159343.5468750,
819049.2500000,160473.3281250,
818488.1875000,161304.6718750,
818321.4375000,161551.7187500,
816894.8750000,162424.5312500,
815535.8750000,161848.2343750,
814805.3125000,163905.5312500,
816032.6250000,166096.0156250,
815012.3750000,167173.4843750,
814566.1875000,168520.5937500,
814486.5625000,168761.0312500,
813078.1250000,167676.0468750,
812673.3125000,166924.7187500,
804254.9375000,165539.4062500,
803776.3750000,165460.6562500,
804007.6250000,164609.5781250,
803999.8125000,162842.4062500,
803316.1875000,161772.3750000,
802388.9375000,161400.8281250,
802594.6250000,160613.2343750,
801075.1250000,158320.1562500,
800096.5625000,158126.4375000,
799972.1875000,157108.9843750,
800687.8750000,155839.8750000,
799853.7500000,153993.8593750,
800317.9375000,151694.1875000,
799850.0000000,150777.3906250,
800909.8750000,149191.5000000,
799809.6250000,147039.5625000,
799883.0625000,147002.0781250,
801146.6875000,146357.1718750,
801365.9375000,145251.7968750,
802739.4375000,145192.4687500,
803110.1875000,144468.9531250,
804521.5000000,144524.1562500,
805104.1250000,145339.6093750,
806781.1875000,145853.3125000,
807914.9375000,145132.1562500,
808554.3750000,143811.9531250,
809598.7500000,143217.6562500,
809513.1250000,141996.9062500,
809021.1250000,140609.6406250,
807977.8750000,140809.8437500,
806848.9375000,139814.7187500,
806892.0625000,138034.9843750,
805445.3125000,137013.4531250,
805222.0000000,135004.0625000,
806372.8125000,132731.9375000,
808055.1250000,131351.3906250,
809419.0000000,130173.2656250,
810659.3750000,127698.0000000,
811095.0000000,126517.0156250,
808446.0625000,123406.7812500,
806438.3750000,122917.4843750,
804110.9375000,123075.5703125,
802830.1250000,121813.0078125,
800906.0000000,123256.3828125,
802184.3125000,125408.8750000,
801861.5000000,127175.0234375,
797138.5000000,129105.5781250,
797257.0000000,132220.7031250,
795511.3750000,133486.6406250,
796763.2500000,135982.3125000,
796375.0625000,136306.0312500,
794545.5625000,137831.6093750,
793663.4375000,139403.9375000,
793548.7500000,139608.3906250,
791340.2500000,138164.9687500,
789721.1250000,139672.8437500,
787056.6875000,137566.9375000,
784183.6875000,137291.0781250,
782827.6875000,135634.1718750,
780856.0625000,135146.4531250,
780062.4375000,134545.5937500,
779690.6875000,134264.1562500,
777219.1875000,135934.6875000,
775671.1875000,134734.8593750,
775486.1250000,132700.1562500,
775937.6250000,131480.8593750,
775241.1875000,129355.8125000,
773143.0625000,129362.0468750,
772410.0000000,130357.2890625,
769559.5000000,128537.3437500,
767740.2500000,128849.5546875,
766848.8125000,129329.8984375,
765169.9375000,129464.5703125,
763081.3750000,130602.3125000,
762523.5625000,130003.0703125,
759448.6250000,133718.5781250,
759316.8750000,135370.8906250,
758397.8125000,136529.7968750,
758177.6250000,136807.5156250,
755532.5625000,138118.0000000,
756278.7500000,139569.6093750,
755214.8750000,142617.5156250,
755250.8750000,147919.0781250,
755503.6250000,148479.2343750,
755131.3125000,149762.1250000,
755129.3125000,150474.0625000,
755122.7500000,152826.0000000,
753053.0625000,151764.4062500,
752246.3125000,149219.2656250,
751333.9375000,148084.9687500,
749601.3125000,149261.9531250,
748070.8125000,150922.6718750,
748563.1875000,152170.0937500,
747704.3125000,152671.1406250,
746630.4375000,152164.1250000,
742639.7500000,151414.4375000,
741559.0625000,151347.5312500,
741408.2500000,150964.7656250,
740852.0000000,149552.7812500,
741075.0000000,147125.2343750,
740251.8125000,145914.9218750,
739301.0625000,145744.9531250,
738986.6875000,143597.2031250,
740859.0625000,142471.5000000,
741703.7500000,140528.9687500,
741172.5625000,139510.2656250,
741835.8750000,138749.5156250,
741344.0000000,137311.3906250,
741933.6250000,135622.3437500,
742735.2500000,135434.1250000,
743234.8750000,134113.4843750,
742652.6250000,133158.1875000,
743061.9375000,132294.9531250,
742658.3750000,131085.9375000,
741897.6875000,130269.9453125,
742078.6875000,129215.2890625,
741204.1250000,128195.5468750,
739586.1875000,124732.5234375,
739454.5625000,121782.6406250,
737726.3750000,121357.7734375,
737197.1875000,119614.4062500,
736003.7500000,118949.6328125,
735514.6250000,116532.6015625,
734566.0000000,114711.6718750,
732852.8750000,114470.3281250,
729948.0000000,110921.5703125,
726215.2500000,108888.6406250,
727560.3125000,105345.7734375,
726801.1250000,104008.5390625,
726727.9375000,102876.8281250,
726160.7500000,102722.0781250,
725266.7500000,102478.2031250,
722218.5625000,101197.4609375,
721436.2500000,99021.0781250,
722559.6875000,97422.6718750,
722629.0000000,97122.3828125), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.6 <- matrix(c(711197.9375000,90662.2656250,
709961.6875000,91662.8046875,
707996.8125000,94034.1171875,
704334.6875000,94035.5312500,
706015.5000000,97753.0000000,
707158.1875000,98366.7656250,
708079.1875000,100975.8281250,
708816.8750000,100914.5468750,
709713.9375000,102976.8671875,
709372.5625000,103294.3828125,
705940.2500000,106486.7968750,
704925.0625000,105720.8671875,
701946.6250000,106792.2968750,
701898.8750000,106874.3671875), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.7 <- matrix(c(697426.6250000,106373.8515625,
697242.7500000,106434.5234375,
696173.2500000,106914.3281250,
695777.7500000,107396.2109375,
694060.1875000,107721.4531250,
693344.7500000,108914.2890625,
690650.0000000,108562.7187500,
689117.0625000,111075.2109375,
689762.5625000,112157.8359375,
687775.8125000,113257.7578125,
686918.0625000,115327.3750000,
684929.8750000,116961.2578125,
684326.0000000,119184.2187500,
679654.6250000,120847.9531250,
679008.1250000,122119.8750000,
677678.6875000,122634.4218750,
678411.4375000,124340.2656250,
676468.6250000,127932.1328125,
678886.0625000,131969.7031250,
678912.8750000,132769.8750000,
679088.0625000,137042.9375000,
678653.5000000,137829.8125000,
679426.6250000,138747.5625000,
679064.8750000,140793.2812500,
678917.5000000,141228.8750000,
678269.9375000,143142.7812500,
678696.1250000,143969.7343750,
678965.5000000,144492.5468750,
677485.6250000,146229.7031250,
673305.1875000,145123.4531250,
672477.4375000,145070.5937500,
671004.0625000,144976.5000000,
670855.2500000,144821.8906250,
669082.4375000,142981.0468750,
668278.0625000,142145.7343750,
666562.4375000,141784.4687500,
665436.3125000,139785.0000000,
667205.1875000,139294.6406250,
667250.8125000,136612.2812500,
664801.1250000,135015.5625000,
663642.7500000,135193.7656250,
663261.8750000,135252.3593750,
663217.1875000,133027.3906250,
660537.1250000,131963.9218750,
659058.4375000,128717.4531250,
655603.0000000,127562.6015625,
653707.1875000,127963.5703125,
652982.8125000,127175.0781250,
649549.0625000,123437.5234375,
651956.0000000,122122.7578125,
653959.3125000,119637.1562500,
656122.5625000,114545.7968750,
654806.6250000,112202.4765625,
655268.3125000,110805.4531250,
654228.6250000,109734.3281250,
652183.3750000,109003.3515625,
651908.5625000,107235.3593750,
646631.3125000,105517.1171875,
645498.7500000,103058.3281250,
645941.4375000,99360.1250000,
644432.0000000,98020.5703125,
644650.8125000,97080.4609375,
644286.0000000,95668.1562500,
643510.4375000,95627.6250000,
642612.1875000,93984.8359375,
642018.4375000,93991.7812500,
636414.1250000,94057.2812500,
635242.6250000,91966.1015625,
633922.2500000,91237.3671875,
633687.9375000,88617.7109375,
633424.6250000,87282.0000000,
633594.4375000,85667.9375000,
632679.3750000,85512.5546875,
629663.8125000,86189.7578125,
627962.1250000,85396.2812500,
625489.1250000,87588.0468750,
623886.3750000,87786.5156250,
622963.3125000,85914.8125000,
620760.1875000,87103.0546875,
621022.6875000,88731.1718750,
618693.6875000,89448.6406250,
617148.6875000,91732.2578125,
615382.6250000,91205.5625000,
613162.1250000,91323.1171875,
611071.3750000,91433.8046875,
610799.7500000,93072.9843750,
608308.5625000,92658.4687500,
608162.8750000,90204.3515625,
607771.0000000,89376.7812500,
606166.8750000,90071.0546875,
604171.9375000,89530.9453125,
602483.3125000,88610.3750000,
602796.1875000,87750.2109375,
602880.5625000,87518.2578125,
602372.8750000,87173.4296875,
600593.6250000,86837.3906250,
599276.1875000,85040.7500000,
597650.7500000,84272.9375000,
595697.0000000,82652.3125000,
592817.3750000,84741.1171875,
590885.8125000,84302.9062500,
588648.4375000,85411.2812500,
585755.3750000,81896.9687500,
583681.5000000,82322.8203125,
581550.2500000,80523.6640625,
581350.7500000,79099.1640625,
578972.0625000,79409.6484375,
578001.3125000,80957.6718750,
576515.3750000,80317.4218750,
574764.7500000,78824.5625000,
573556.5000000,78909.8281250,
573132.0625000,80637.5234375,
570987.8125000,83504.1093750,
570271.1875000,85129.1953125,
569968.5625000,85608.0234375,
568891.7500000,87311.6250000,
568795.7500000,89815.8515625,
566617.3125000,91258.4375000,
567785.2500000,91948.5625000,
566825.1250000,94259.4140625,
564902.9375000,95003.5625000,
564466.2500000,96565.9531250,
563025.4375000,97972.6796875,
561963.4375000,100321.3593750,
561072.3125000,100687.2890625,
560522.0000000,101956.9140625,
559014.3750000,99956.2812500,
557362.8125000,99417.2265625,
556395.3125000,99821.0703125,
556821.2500000,102098.0625000,
557580.4375000,103460.7187500,
557257.2500000,105341.2968750,
558004.1875000,106538.6484375,
558130.1875000,107991.2578125,
558152.0000000,108242.6875000,
556015.3125000,108401.3671875,
553596.8750000,109271.1171875,
551766.6250000,108973.0625000,
550735.3125000,109440.2656250,
549977.0000000,112323.8359375,
551382.1250000,114591.1484375,
551167.5625000,116192.5859375,
551095.6875000,117005.7890625,
552157.8125000,119144.8984375,
552294.5000000,120276.8046875,
553840.9375000,122048.7265625,
554945.1250000,122789.5156250,
555725.3750000,125690.5390625,
555022.0625000,127099.5468750,
553967.3125000,126867.4453125,
552922.3750000,127677.8750000,
551733.3125000,129988.0234375,
550970.0000000,130125.5234375,
548645.8750000,133639.9218750,
548705.8125000,134962.2968750,
550230.1250000,135526.3750000,
551357.7500000,136979.1718750,
551047.8750000,138008.6562500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.8 <- matrix(c(722887.8125000,96000.9687500,
723087.4375000,95135.9062500,
722606.5625000,94308.0625000,
721857.0000000,94064.1953125,
721299.4375000,93363.2421875,
720221.3750000,92380.9921875,
721890.1875000,91280.0859375,
722225.5000000,89602.9687500,
721807.5625000,89004.1484375,
722648.3750000,88434.6484375,
722472.6250000,87620.4531250,
724189.1250000,87663.8984375,
725552.1250000,86803.6015625,
726394.0625000,85839.9843750,
727974.2500000,84611.6796875,
726214.5625000,81822.0312500,
725490.3750000,81603.6718750,
724997.7500000,80432.5312500,
725178.7500000,79352.4609375,
724165.1875000,78039.8593750,
723802.6875000,75801.2031250,
722634.2500000,75289.0625000,
720864.3750000,76122.6796875,
721001.8750000,76987.6015625,
719271.6250000,77312.8125000,
717705.6875000,77981.7812500,
715699.2500000,77022.0859375,
714466.5000000,76776.7343750,
714830.9375000,78328.8750000,
716934.6250000,80878.0312500,
716209.3125000,81079.2031250,
715528.8125000,83416.3515625,
714929.5625000,83999.3125000,
714683.1250000,85796.2968750), ncol = 2, byrow = TRUE)
## Schweizergrenze: Wasser (Datenpunkte)
## ----------------------------------------------------------------------------
ch.grenze.wasser.teilstueck.1 <- matrix(c(708257.8125000,279239.1562500,
708319.3750000,279000.7812500,
710126.0625000,278637.6562500,
712310.9375000,279432.6250000,
715091.9375000,280788.8437500,
717757.4375000,282513.3437500,
718709.8125000,282973.9687500,
721088.8125000,282574.5000000,
724116.3750000,282151.5937500,
726026.6875000,281102.2812500,
727769.7500000,280726.2500000,
728773.1250000,281148.9062500,
729968.1875000,281241.5937500,
730747.7500000,279832.8125000,
734410.0625000,279793.2500000,
739116.3125000,279299.2500000,
743406.2500000,277596.2187500,
747252.1250000,275561.2500000,
750041.1875000,274031.5312500,
751709.6250000,273083.1875000,
756716.6875000,269589.7812500,
759626.3750000,265835.6250000,
759892.6250000,263348.3437500), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.2 <- matrix(c(551047.8750000,138008.6562500,
552182.8125000,141574.1875000,
552287.6875000,141875.2500000,
543010.5000000,143564.3125000,
533523.5000000,143929.1406250,
526278.2500000,142927.8593750,
518959.7812500,140833.0000000,
512687.6250000,137444.6093750,
509261.9687500,134726.1093750,
507421.8437500,132597.2656250,
506058.6562500,129783.4609375,
508187.2500000,128889.0078125), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.3 <- matrix(c(701898.8750000,106874.3671875,
700860.5625000,108657.8046875,
698502.7500000,106018.8828125,
697426.6250000,106373.8515625), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.4 <- matrix(c(722629.0000000,97122.3828125,
722887.8125000,96000.9687500), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.5 <- matrix(c(714683.1250000,85796.2968750,
713383.1250000,86804.1718750,
712769.0625000,88124.4609375,
712979.0625000,90324.5078125,
711197.9375000,90662.2656250), ncol = 2, byrow = TRUE)
## Flusse
## ----------------------------------------------------------------------------
ch.fluesse.01 <- matrix(c(555534.3125000,138282.9531250,
557653.5625000,135307.5156250,
558657.3125000,131777.3906250,
561170.0000000,130763.9609375,
561245.5000000,127202.0468750,
563074.2500000,125764.1015625,
563956.6250000,123238.2500000,
565198.8750000,122012.6015625,
566296.0625000,119679.0468750,
568744.6250000,115064.6015625,
568824.1875000,112749.5703125,
569771.3750000,110046.0468750,
571439.3750000,107945.3984375,
575854.3125000,109591.3125000,
581806.3125000,113359.7031250,
585778.2500000,114697.2421875,
590401.3125000,117515.0859375,
595198.2500000,120944.8125000,
598035.2500000,120849.6484375,
601388.3125000,123391.6484375,
608797.9375000,126063.0859375,
610703.1875000,128289.8750000,
613877.0000000,129151.2109375,
617749.8125000,128261.5625000,
620418.2500000,128636.0000000,
629920.5625000,128497.2109375,
635000.1250000,127832.0781250,
640040.6250000,129138.7343750,
644123.8125000,130935.0625000,
648086.6250000,135440.5468750,
652575.1250000,137481.3750000,
667552.9375000,151171.5781250,
670126.4375000,154242.6250000,
670777.3750000,155761.0937500,
670349.3125000,156966.8593750,
672870.3125000,158434.4687500), ncol = 2, byrow = TRUE)
ch.fluesse.02 <- matrix(c(629781.1250000,168955.2031250,
631637.1875000,170927.1875000,
633973.6875000,171490.2031250), ncol = 2, byrow = TRUE)
ch.fluesse.03 <- matrix(c(646631.0625000,176767.4531250,
653585.0625000,177260.1562500,
656856.8750000,174992.3437500,
659061.1250000,174447.5625000,
661027.9375000,171432.9062500,
665907.0000000,166656.8906250,
666892.9375000,162019.7500000,
667809.1875000,160104.8281250), ncol = 2, byrow = TRUE)
ch.fluesse.04 <- matrix(c(689326.5000000,153279.3437500,
698041.9375000,151035.9062500,
702967.1875000,148779.3593750,
706199.4375000,146702.1093750,
708436.0625000,143307.6093750,
710128.3750000,139527.7031250,
713353.5625000,136636.1406250,
716687.5000000,134585.0312500,
718822.8750000,129268.6796875,
719590.4375000,128625.0468750,
720514.1875000,125641.4453125,
721540.3750000,122531.3281250,
722768.2500000,121547.3046875,
723295.4375000,118891.8046875,
720421.5000000,115106.2187500,
712625.3750000,113157.3593750,
709696.6250000,111801.4843750), ncol = 2, byrow = TRUE)
ch.fluesse.05 <- matrix(c(680618.5625000,159950.4218750,
682931.0000000,162154.5312500,
687629.5625000,165087.3906250,
687877.8125000,167824.5156250,
689113.0625000,173138.3906250,
691817.3750000,177520.7968750,
693742.7500000,180523.8125000,
693383.1250000,184707.2187500,
691664.6875000,186743.8906250,
689979.8750000,193119.3281250,
689469.0625000,194525.3281250), ncol = 2, byrow = TRUE)
ch.fluesse.06 <- matrix(c(500639.6250000,117781.0390625,
498136.2500000,117445.8984375,
496310.8125000,116555.5703125,
495534.1250000,116677.5156250,
495814.8437500,118384.2968750,
494484.9375000,117573.6796875,
493841.4687500,116818.6484375,
491142.5937500,117169.2109375,
491200.0000000,116215.3906250,
489467.1250000,114816.7734375,
487813.6250000,114818.2187500,
486143.3125000,111727.8828125,
486112.6875000,110633.5000000,
485289.7500000,110080.8046875), ncol = 2, byrow = TRUE)
ch.fluesse.07 <- matrix(c(726034.1875000,221444.6406250,
723467.1875000,221121.7812500,
717780.2500000,226846.5156250,
715922.5000000,230638.0000000,
713835.8750000,230738.2812500), ncol = 2, byrow = TRUE)
ch.fluesse.08 <- matrix(c(831875.1250000,203026.1718750,
831972.3125000,200089.6875000,
830709.5625000,196932.9062500,
827698.6250000,193905.5000000,
826963.0625000,191750.3281250,
824582.0000000,190283.6562500,
821634.4375000,187960.7187500,
820174.0625000,187619.9687500,
818439.9375000,186399.4687500,
814734.2500000,185190.9843750,
812552.5625000,184323.6718750,
810205.6875000,183429.7812500,
806836.5625000,183215.9687500,
804266.9375000,183262.0625000,
801915.0000000,181261.2656250,
801774.3125000,177685.1562500,
803173.3125000,175849.8593750,
801777.9375000,173473.8750000,
799001.0000000,170388.7187500,
796523.1875000,166351.3750000,
793916.8750000,164348.8281250,
790603.6875000,161552.6406250,
788756.2500000,158333.8750000,
786331.8750000,155760.0468750,
786016.5625000,153531.3750000,
782583.6250000,149665.6406250,
779707.4375000,146210.8437500,
775822.1250000,143385.2968750,
773446.6875000,141694.9218750), ncol = 2, byrow = TRUE)
ch.fluesse.09 <- matrix(c(568980.7500000,206124.2656250,
569329.0000000,209116.5468750,
572300.0000000,211719.5468750), ncol = 2, byrow = TRUE)
ch.fluesse.10 <- matrix(c(580018.2500000,212064.7812500,
581860.1250000,210576.0468750,
586758.0625000,210418.5937500,
587517.6250000,209100.5937500,
584958.1875000,205826.0625000,
586343.8750000,203042.3906250), ncol = 2, byrow = TRUE)
ch.fluesse.11 <- matrix(c(569352.1250000,203333.5000000,
571814.5000000,202025.5000000,
573542.0000000,202889.0937500,
575661.1250000,200717.5000000), ncol = 2, byrow = TRUE)
ch.fluesse.12 <- matrix(c(569095.6250000,196659.7968750,
567237.5000000,193148.4062500,
562917.8125000,189376.5937500,
561263.3750000,183814.2031250,
554408.8750000,172859.5937500,
550193.0000000,167761.7968750,
551918.3125000,165348.9062500,
552002.3750000,158186.2968750,
553030.6250000,157729.2031250,
559776.6250000,163088.5000000), ncol = 2, byrow = TRUE)
ch.fluesse.13 <- matrix(c(586343.8750000,203042.3906250,
586738.1875000,202250.3281250,
589943.8125000,201473.5312500,
595090.9375000,201282.8906250,
599983.8750000,202299.6093750,
600386.1875000,203299.4687500,
601161.1250000,204193.4843750,
601811.2500000,203215.6406250,
602075.9375000,202494.8437500,
601392.1250000,202042.0468750,
600555.1875000,201682.9218750,
601064.1250000,198105.6562500,
604940.3750000,196199.3125000,
607610.3125000,193066.7187500,
609968.0000000,183184.3281250,
615306.8125000,176967.1093750), ncol = 2, byrow = TRUE)
ch.fluesse.14 <- matrix(c(584115.8125000,219247.2187500,
587060.0000000,218270.7031250,
592304.3750000,221372.6875000,
595447.1875000,221203.2656250,
596691.8125000,223311.0312500,
599401.6875000,225059.8281250,
600779.2500000,226341.5000000,
603342.7500000,227173.2500000,
604009.6250000,228221.0781250,
605059.6250000,227210.4062500,
606609.5625000,227475.4375000,
612179.9375000,231253.9531250,
613987.5625000,231037.2656250,
616219.6875000,231981.2500000,
621356.0625000,230451.3437500,
623275.8750000,232411.0468750,
625623.3125000,233228.5937500,
627592.8125000,235354.0156250,
628208.5000000,234607.5781250,
630283.8750000,236135.7500000,
631800.1250000,239441.3281250,
633563.7500000,240076.7656250,
635219.1250000,243485.0781250,
636191.0625000,246405.2656250,
637127.0625000,245317.4687500,
639622.9375000,244901.9062500,
639878.3125000,246595.7968750,
641799.1875000,246558.0000000,
646693.6875000,250599.0937500,
651649.6250000,251256.2968750,
654479.5625000,252191.6562500,
654431.7500000,257267.7656250,
656948.3750000,259371.4843750,
660057.2500000,260435.9687500), ncol = 2, byrow = TRUE)
ch.fluesse.15 <- matrix(c(660057.2500000,260435.9687500,
659867.5000000,261622.9062500), ncol = 2, byrow = TRUE)
ch.fluesse.16 <- matrix(c(659867.5000000,261622.9062500,
662887.1250000,259539.2187500,
665852.3750000,259304.9687500,
665549.5625000,257101.8437500,
666201.8750000,256584.6250000,
667041.8750000,256501.3125000,
668927.2500000,254236.7343750,
672165.3750000,253164.6406250,
673404.0000000,250615.7812500,
675210.7500000,250526.3281250,
676082.4375000,251384.6875000,
678400.4375000,250929.7500000,
680326.8125000,250103.1718750,
682828.5625000,248835.2031250,
683299.5000000,246942.7031250), ncol = 2, byrow = TRUE)
ch.fluesse.17 <- matrix(c(660057.2500000,260435.9687500,
659824.6250000,259123.9062500,
659381.9375000,258764.6562500,
659765.8125000,256591.6406250,
661755.3125000,255829.1093750,
661312.0000000,253714.0781250,
663757.4375000,251389.7343750,
665627.8125000,249455.8750000,
665703.0625000,247764.2343750,
667296.6875000,247228.0156250,
668582.0625000,245277.4531250,
667701.8125000,243808.2968750,
670450.0625000,241842.2656250,
671079.8125000,239060.2343750,
672764.5000000,236387.1718750,
673751.8125000,233391.2968750,
672405.0000000,231346.4531250,
673118.6875000,227458.0781250,
673232.6875000,225690.3906250,
673928.6250000,222527.1093750,
671980.8125000,219091.3750000,
669720.0625000,218630.6406250,
668637.8750000,216931.1250000,
665969.8125000,214660.9687500,
664543.4375000,213073.6093750,
666257.0625000,211736.6562500), ncol = 2, byrow = TRUE)
ch.fluesse.18 <- matrix(c(708748.7500000,278669.9375000,
705137.3125000,280260.2812500,
704698.6875000,281160.6250000,
703411.5625000,281520.8125000,
701903.9375000,281383.7812500,
701903.9375000,281383.7812500,
699452.0000000,282538.4062500,
696761.3125000,283338.4687500,
695910.0625000,283068.8750000,
693836.0000000,283583.7187500,
692554.9375000,282410.1250000,
691854.7500000,282895.0625000,
690413.7500000,283175.2187500,
688976.9375000,283114.5625000,
689090.5625000,281385.0000000,
687740.3750000,280717.1250000,
687972.0625000,279726.1875000,
689425.1250000,278472.0312500,
688247.1250000,276853.8437500,
688247.1250000,276853.8437500,
687571.8125000,277309.4062500,
688511.6250000,277757.2500000,
687949.2500000,278747.1875000,
687025.0625000,277295.0000000,
687808.5625000,274525.9375000,
686809.1250000,272666.7187500,
685673.8125000,271488.7187500,
685266.2500000,269730.1562500,
684112.6875000,267330.3750000,
683068.1250000,269397.0937500,
679376.1875000,270596.9375000,
677766.6250000,270019.9687500,
674510.9375000,268852.9062500,
672155.2500000,270002.5625000,
671293.6875000,268868.4062500,
666269.3750000,269450.4062500,
665334.5625000,270467.3750000,
664649.5625000,271212.5625000,
664325.6875000,273347.4062500,
663225.6875000,273442.2812500,
662048.9375000,273543.7500000,
661614.9375000,274165.4062500,
660305.6875000,273996.0937500,
659227.0625000,273204.5312500), ncol = 2, byrow = TRUE)
ch.fluesse.19 <- matrix(c(659227.0625000,273204.5312500,
658854.7500000,274474.6875000,
656883.3125000,274646.5625000,
656883.3125000,274646.5625000,
655230.8125000,272803.8437500,
654436.7500000,271918.4062500,
653228.5000000,271990.9687500,
652214.9375000,270678.3750000,
652214.9375000,270678.3750000,
650092.1875000,270417.5312500,
649400.0625000,268601.4687500,
649044.4375000,267668.2500000,
646969.7500000,268373.7812500,
644643.1875000,267403.2187500,
643438.8125000,266900.8437500,
642521.6250000,267015.4062500,
641352.7500000,267161.4062500,
638527.9375000,267826.4687500,
637693.5000000,266120.3125000,
635453.5625000,266825.3437500,
635453.5625000,266825.3437500,
635547.9375000,269470.0000000,
635547.9375000,269470.0000000,
634348.4375000,270941.0312500,
634348.4375000,270941.0312500,
631792.8125000,270869.5937500,
630650.3125000,270154.1250000,
628817.8750000,270682.4062500,
628817.8750000,270682.4062500,
627921.0000000,268518.3750000,
626347.7500000,267267.5937500,
623235.8750000,265999.3750000,
621163.1250000,266043.8750000,
619539.0625000,264780.2187500,
619539.0625000,264780.2187500,
617529.6875000,264888.4375000,
616801.6250000,266030.4062500,
616373.6250000,266699.3125000,
615754.3125000,267667.1875000,
614419.8750000,267898.5625000,
612033.6875000,267169.8125000,
611098.7500000,268104.9062500,
610294.5000000,269379.3437500,
611802.3125000,271316.4062500), ncol = 2, byrow = TRUE)
ch.fluesse.20 <- matrix(c(659867.5000000,261622.9062500,
659272.9375000,265341.6875000,
659207.5625000,267440.5312500,
660881.7500000,268126.2500000,
661063.4375000,269450.6562500,
658678.8750000,272169.8437500,
659227.0625000,273204.5312500), ncol = 2, byrow = TRUE)
ch.fluesse.21 <- matrix(c(697874.5625000,167905.3750000,
700315.9375000,169855.9062500,
703986.7500000,170580.7031250,
706720.0625000,170777.4531250,
709018.0000000,173235.9375000,
712587.5000000,175741.2187500,
716473.7500000,176594.7187500,
719896.7500000,178221.1406250,
726232.1875000,179880.1406250,
729157.3750000,181757.6250000,
732310.8125000,181893.6406250,
735526.5000000,182220.9218750,
737975.0000000,183140.9375000,
740637.5000000,184367.7656250,
742188.1875000,184531.0000000,
742193.4375000,185612.5000000,
743986.3750000,185675.6093750,
747802.8750000,187419.2187500,
750558.6875000,187870.4218750), ncol = 2, byrow = TRUE)
ch.fluesse.22 <- matrix(c(750558.6875000,187870.4218750,
750559.8125000,187870.6093750,
756189.6875000,190402.6718750,
759272.1875000,193439.0312500,
760406.1875000,196843.7812500,
761426.7500000,200082.3593750,
760121.1875000,201269.4218750,
760582.1250000,204516.9062500,
757473.4375000,208948.7500000,
754402.6875000,213419.0000000,
754548.0625000,214476.0156250,
757588.6250000,216908.5781250,
757899.1875000,219528.4843750,
757270.5625000,222748.2500000,
756020.3125000,225445.7343750,
755642.6250000,226183.2812500,
755342.4375000,228941.1406250,
757906.2500000,235216.7187500,
758370.1875000,237570.0937500,
759600.1875000,238794.3906250,
760691.2500000,240988.0625000,
762614.7500000,243024.4843750,
763343.3125000,246217.7812500,
766661.4375000,250640.8437500,
766979.3750000,253496.1875000,
766314.8125000,256630.9843750,
768183.3125000,258653.9375000,
768032.8750000,263856.5937500), ncol = 2, byrow = TRUE)
ch.fluesse.23 <- matrix(c(734714.6250000,154275.7968750,
744832.0000000,157156.5625000,
747894.8750000,159353.0625000,
751657.5625000,159671.3281250,
752053.9375000,163058.3281250,
752306.8750000,165108.4375000,
753667.3125000,167026.1718750,
754371.8750000,171827.5156250,
753594.8125000,175689.9843750,
751672.3125000,181491.2656250,
750123.1250000,184801.3906250,
750558.6875000,187870.4218750), ncol = 2, byrow = TRUE)
ch.fluesse.24 <- matrix(c(586343.8750000,203042.3906250,
584434.8750000,200209.7031250,
585348.1250000,198774.7031250,
584358.0000000,195071.7968750,
581300.6250000,192437.5000000,
577773.3750000,188208.5000000,
579676.3750000,185833.7031250,
579109.0000000,184060.2968750,
578835.6250000,181681.0000000,
576550.1250000,181896.7968750,
575367.0000000,178556.7968750,
573932.3125000,178594.9062500,
575175.8750000,177502.7968750,
575034.0000000,174188.2031250,
573903.0000000,172854.7031250,
575704.8750000,171013.2968750,
573759.6250000,167279.5937500,
574784.8750000,162326.7968750,
573702.8750000,162655.5937500,
574021.3750000,159786.9062500,
571452.0000000,153233.9062500,
569048.3750000,147531.7031250,
570405.6250000,146076.7031250,
575535.8750000,145995.2031250,
582762.6250000,148535.2968750,
586406.8750000,148522.5937500,
588654.3750000,146707.7968750,
592512.8750000,138065.0937500,
591463.3750000,133753.0937500), ncol = 2, byrow = TRUE)
## Seen
## ----------------------------------------------------------------------------
ch.seen.01 <- matrix(c(728896.6875000,280946.6875000,
729384.1250000,281041.1562500,
730686.1875000,280675.5000000,
730951.2500000,279316.6250000,
735620.8750000,277236.4687500,
739972.7500000,275128.6562500,
746275.7500000,270426.0000000,
746368.2500000,268085.5937500,
750472.9375000,264932.8437500,
750289.9375000,263799.2500000,
752868.6250000,262442.7500000,
754992.8750000,260574.2500000,
758319.6875000,261398.4687500,
759591.3125000,263277.4062500,
760315.1250000,263447.7500000,
761673.0000000,262057.4687500,
763464.7500000,262298.7187500,
766071.8750000,264186.7500000,
765670.9375000,263306.1250000,
766531.2500000,262128.7656250,
768032.9375000,263856.5937500,
768539.5000000,262333.3125000,
769586.6875000,263561.8437500,
770624.9375000,264243.2187500,
773550.3750000,264250.4687500,
774036.4375000,265691.4687500,
771471.1250000,268803.8125000,
770032.6875000,268972.1562500,
768853.0000000,268506.0937500,
768449.6875000,269813.7812500,
766134.0000000,269925.2500000,
764955.6250000,271113.1250000,
763082.6875000,271583.8437500,
762385.4375000,273080.4062500,
759131.8750000,272714.6875000,
757301.1875000,274432.5312500,
756603.1250000,276056.3125000,
756082.1875000,277821.2500000,
755287.8125000,278655.5625000,
754300.7500000,279768.4375000,
752382.1875000,279475.4687500,
750035.9375000,280324.6250000,
748793.2500000,281613.9062500,
746200.5625000,281316.3125000,
745069.5000000,281181.3750000,
743980.1875000,280525.0937500,
741528.7500000,281869.7187500,
740739.8750000,281915.2187500,
737238.8125000,284232.4062500,
735217.2500000,285961.6562500,
734111.2500000,287722.5937500,
734050.8750000,289096.2500000,
729339.1250000,291748.6875000,
727605.1875000,292347.5625000,
726579.8750000,293472.9062500,
723794.8750000,295235.1562500,
721351.9375000,297203.2500000,
719696.9375000,297421.0000000,
718980.6875000,296156.5312500,
722283.2500000,293112.8437500,
725105.3125000,291503.5000000,
727113.9375000,289812.3437500,
728104.8125000,289984.5000000,
730100.2500000,288356.8437500,
731143.5000000,284636.1562500,
733292.6250000,282856.8437500,
733407.6250000,280936.4687500,
732901.1250000,280602.2500000,
730621.6250000,281006.5312500,
729169.1250000,281365.5937500,
728318.9375000,281079.9062500,
726868.5000000,281146.3750000,
725610.6250000,282791.7500000,
724121.5000000,282934.2812500,
723169.2500000,282686.0625000,
720514.5000000,284016.5625000,
720149.6250000,285273.6875000,
722471.3750000,284284.4062500,
723800.8750000,283313.7812500,
725427.2500000,283553.9062500,
724565.7500000,284909.3750000,
716612.3125000,289155.5000000,
715736.7500000,288856.9062500,
718129.8750000,286748.4687500,
713933.6875000,288412.0312500,
712212.0625000,287229.7812500,
716425.2500000,284930.2187500,
717677.8750000,284048.1250000,
715037.5000000,281447.4062500,
712327.1250000,279774.9375000,
709483.3125000,279004.8750000,
708069.6250000,279275.1562500,
708942.6250000,278097.8750000,
711914.2500000,278779.7187500,
714375.3125000,279712.5625000,
715830.1250000,280867.5312500,
719398.6250000,281667.9687500,
723723.5000000,281633.8125000,
724441.3125000,280824.4687500,
726705.3750000,280814.4687500,
727826.5000000,280554.9062500,
728728.6875000,280688.3125000,
728896.6875000,280946.6875000), ncol = 2, byrow = TRUE)
ch.seen.02 <- matrix(c(706022.1875000,227644.2343750,
703723.9375000,228913.5781250,
702818.2500000,229289.0937500,
703788.1250000,230669.7812500,
702672.9375000,230076.9218750,
702106.1875000,229258.7968750,
701100.1875000,229430.0625000,
698404.5625000,229309.8906250,
697277.6250000,228577.0156250,
695613.8125000,230066.9687500,
693424.3125000,232164.0468750,
691849.0000000,233730.9687500,
690790.9375000,234079.9843750,
687372.5000000,235481.6562500,
684440.1250000,240169.1406250,
683000.4375000,244205.2343750,
682958.3750000,246609.5781250,
683299.5000000,246942.7031250,
683430.8750000,246641.1093750,
683984.4375000,245369.7187500,
684763.8125000,244866.1250000,
686316.8750000,240996.2187500,
689783.1875000,236350.5312500,
696110.7500000,233620.0625000,
698079.1875000,232221.2343750,
701970.5000000,232336.8281250,
704284.1250000,232518.0000000,
703973.5000000,231447.1406250,
704294.3125000,231042.2031250,
706740.6250000,230435.4531250,
706672.6875000,231058.4218750,
707614.8750000,230924.8906250,
709132.1250000,230388.1406250,
712113.6250000,231489.9218750,
714058.5625000,231643.1250000,
713835.8750000,230738.2812500,
710666.1875000,229266.2656250,
709621.6875000,229488.1562500,
708096.7500000,229286.9218750,
707085.2500000,228414.8593750,
706022.1875000,227644.2343750), ncol = 2, byrow = TRUE)
ch.seen.03 <- matrix(c(727034.6875000,222074.8750000,
729414.1250000,221938.4375000,
734901.3125000,221187.0156250,
741220.8125000,221471.8437500,
741166.1875000,220173.7187500,
739885.3750000,219617.9062500,
738623.5000000,220003.7187500,
735295.0000000,219433.9375000,
731182.1875000,220080.2187500,
726774.8125000,221029.8281250,
727034.6875000,222074.8750000), ncol = 2, byrow = TRUE)
ch.seen.04 <- matrix(c(677652.5000000,225887.2968750,
678455.3750000,226400.2968750,
678994.9375000,225627.8906250,
680037.6250000,225673.1562500,
681673.1875000,224590.1406250,
680971.8125000,221162.8906250,
680068.2500000,219388.2343750,
680739.7500000,217929.6718750,
682331.6250000,215803.0781250,
682637.7500000,213833.1093750,
682212.0000000,212863.2500000,
681416.3125000,213888.4062500,
679281.9375000,215375.1562500,
677734.9375000,216535.1093750,
679605.5000000,218252.7343750,
679487.9375000,218697.2343750,
678303.8750000,218867.2968750,
677737.2500000,219881.2656250,
678324.5000000,221412.0156250,
677367.9375000,221787.1875000,
677638.6250000,223112.2187500,
676745.8125000,225308.0156250,
677364.1250000,225703.0781250,
677652.5000000,225887.2968750), ncol = 2, byrow = TRUE)
ch.seen.05 <- matrix(c(572300.0000000,211719.5468750,
574127.0000000,210548.7656250,
575190.0000000,209487.2968750,
578029.6875000,210855.2812500,
580018.2500000,212064.7968750,
582147.0625000,215069.2031250,
584528.8125000,220123.7187500,
583323.0000000,219759.2656250,
579798.0625000,216325.4687500,
575541.9375000,213777.3281250,
574925.4375000,212806.1718750,
572300.0000000,211719.5468750), ncol = 2, byrow = TRUE)
ch.seen.06 <- matrix(c(568943.1250000,196836.2812500,
569062.3750000,196150.0625000,
570710.8125000,195041.6718750,
573209.1250000,196114.7031250,
573395.4375000,196752.1250000,
574044.6250000,196680.2031250,
576723.6250000,199217.6093750,
575313.2500000,200849.2656250,
574375.0000000,200410.2812500,
571560.7500000,199055.1875000,
568943.1250000,196836.2812500), ncol = 2, byrow = TRUE)
ch.seen.07 <- matrix(c(666257.0625000,211736.6562500,
667743.8125000,211950.3593750,
670062.7500000,209523.3593750,
673133.5000000,212419.6875000,
674286.1250000,213114.5781250,
675939.5625000,214970.6718750,
675166.5625000,212713.4375000,
674958.6250000,211516.0781250,
672750.5000000,208943.7187500,
673159.0000000,208730.2031250,
675380.3750000,209381.4843750,
678057.1250000,208547.3125000,
679684.2500000,206840.8125000,
678942.1875000,205627.0625000,
680500.0625000,204747.0781250,
682455.5625000,205218.4375000,
683540.9375000,204602.4062500,
685304.0000000,205314.2031250,
687256.0625000,206294.4375000,
688560.2500000,205298.2187500,
689265.2500000,202669.3750000,
689983.3750000,199989.7343750,
689067.5000000,198151.3906250,
690094.1250000,196835.1875000,
690106.1250000,195092.2500000,
688766.1875000,193899.8750000,
688148.1250000,194989.8281250,
688184.6875000,197063.9218750,
686865.5000000,198378.1093750,
687782.3125000,201921.3437500,
688059.6875000,204111.5781250,
687533.1875000,204833.1875000,
685226.1250000,203697.8437500,
682779.0000000,202587.0000000,
681295.9375000,201851.6718750,
679284.8125000,202066.9687500,
677904.1875000,203075.3906250,
676723.9375000,202685.6718750,
675066.8125000,203208.7343750,
674410.6250000,204298.4375000,
676083.0625000,205238.6093750,
677810.0000000,205657.5156250,
676610.6250000,206209.1406250,
670873.3750000,206335.4375000,
668829.9375000,203853.2500000,
667405.8125000,203792.6562500,
666541.8750000,203646.8125000,
666912.1250000,205290.5937500,
666089.2500000,206570.0000000,
666848.7500000,207096.8281250,
667581.8750000,205931.3125000,
668607.6875000,206574.4531250,
668726.0625000,207847.5468750,
667804.7500000,210487.6406250,
666257.0625000,211736.6562500), ncol = 2, byrow = TRUE)
ch.seen.08 <- matrix(c(539383.8125000,182067.0000000,
538419.3750000,183587.1718750,
539444.1250000,184382.9843750,
539757.9375000,184570.7500000,
541724.1875000,185747.1562500,
544013.6875000,187582.1406250,
547542.0000000,190532.4687500,
549162.0625000,193533.4218750,
551662.4375000,196145.9375000,
553918.1875000,197344.5468750,
554596.6250000,198557.8437500,
556751.1875000,199679.4375000,
556990.6250000,201843.9687500,
558089.6250000,202945.6406250,
559434.0000000,203501.8750000,
563109.9375000,205333.6093750,
565694.3125000,206839.7968750,
566834.1250000,205702.5000000,
568980.8125000,206124.2656250,
570342.7500000,204136.0625000,
569572.8750000,203265.6562500,
568619.9375000,201274.3750000,
565150.2500000,199049.6562500,
564924.9375000,198526.4687500,
560422.2500000,194844.2968750,
557577.0625000,192445.7187500,
552712.5000000,187755.9531250,
550661.4375000,186380.6093750,
547844.0625000,183625.9843750,
546684.1250000,183987.0312500,
544698.4375000,184202.5156250,
540922.1250000,182166.5468750,
539383.8125000,182067.0000000), ncol = 2, byrow = TRUE)
ch.seen.09 <- matrix(c(633973.6875000,171490.2031250,
635251.0000000,172554.9218750,
637910.0625000,174290.6406250,
642385.6250000,178201.6406250,
643922.5000000,178517.4687500,
646304.1250000,178062.9531250,
646631.0625000,176767.4531250,
645397.1250000,176797.2187500,
642141.5625000,174866.5781250,
640370.6250000,173454.9843750,
638987.3750000,173000.2500000,
637838.5625000,171745.5625000,
636610.9375000,170859.3125000,
635097.3125000,170861.7343750,
633973.6875000,171490.2031250), ncol = 2, byrow = TRUE)
ch.seen.10 <- matrix(c(624285.3750000,167263.7656250,
621733.1875000,168467.7656250,
620200.4375000,169398.8125000,
620284.9375000,170060.9843750,
618672.8750000,171424.0781250,
617336.6250000,171529.4687500,
615500.1250000,174086.9843750,
614603.4375000,176841.7343750,
615306.8125000,176967.1093750,
618431.6875000,175035.7343750,
622610.7500000,172163.3906250,
623643.2500000,169994.8125000,
624597.4375000,169963.1562500,
627111.3125000,170616.4375000,
629781.1250000,168955.2031250,
629596.5625000,168050.6093750,
627966.0000000,168408.4687500,
626395.1875000,167481.7031250,
624285.3750000,167263.7656250), ncol = 2, byrow = TRUE)
ch.seen.11 <- matrix(c(500639.6250000,117781.0390625,
502514.7187500,118849.8281250,
504072.9375000,121595.8828125,
504333.6875000,124358.5468750,
507832.0625000,127957.5312500,
509018.9062500,131070.0234375,
510918.7812500,134072.8593750,
512853.7500000,135676.4218750,
516171.7500000,135928.0625000,
516963.6875000,133605.1562500,
519413.8125000,132438.6250000,
520798.3437500,134547.3437500,
525986.1250000,136631.1093750,
526597.6250000,138340.1562500,
529182.7500000,139731.8593750,
530958.5000000,138598.8906250,
538645.6875000,139758.1875000,
541659.5000000,139855.0781250,
545119.1875000,139840.5000000,
550218.5000000,138157.6562500,
554994.1875000,137299.6093750,
555534.3125000,138282.9531250,
559630.6250000,138183.6562500,
560739.8125000,139641.6406250,
559590.0000000,142216.5468750,
556934.2500000,143687.0312500,
555313.9375000,144413.9062500,
553177.5000000,146193.2812500,
548847.0625000,147054.3750000,
546238.7500000,149008.6406250,
544867.3125000,148693.9375000,
540449.8125000,151093.9062500,
537500.1875000,150921.1250000,
534323.3750000,152324.4375000,
532245.8125000,151114.3125000,
530565.8750000,151255.5468750,
528549.0000000,152297.7968750,
526189.4375000,149559.0000000,
523875.1875000,147622.0625000,
520452.4687500,145957.4687500,
518782.6562500,146480.4531250,
515581.8437500,145835.2031250,
512843.1562500,142737.5781250,
511628.6562500,141787.8125000,
511060.4687500,139341.1250000,
510240.0000000,138432.2031250,
509107.1562500,138551.7187500,
506507.2500000,135620.4375000,
505046.8750000,133434.8593750,
505000.6875000,132760.2187500,
504000.4062500,130259.7031250,
502703.1875000,128393.3125000,
502046.3125000,127739.9687500,
502086.5937500,125590.0703125,
500783.1875000,122782.1406250,
500622.5000000,120261.8984375,
500816.2500000,119830.6406250,
500710.2500000,118608.5156250,
500370.3437500,118097.2812500,
500639.6250000,117781.0390625), ncol = 2, byrow = TRUE)
ch.seen.12 <- matrix(c(713820.9375000,94742.6953125,
714108.0625000,93675.9296875,
713115.1875000,91951.5625000,
713497.3750000,90020.2812500,
713143.2500000,87893.1406250,
714449.1250000,86655.1953125,
716416.1875000,89136.8515625,
717158.0625000,90376.0312500,
717471.1875000,92922.7578125,
717412.7500000,94016.5312500,
716758.7500000,94788.1718750,
717146.6250000,95719.5937500,
718327.8750000,95956.6562500,
719148.0000000,95071.6406250,
721797.2500000,96387.4375000,
723466.0000000,97861.9609375,
728029.6875000,98223.8671875,
729572.8125000,99481.2265625,
730609.5000000,98546.8046875,
728384.2500000,96610.4687500,
723842.5000000,96757.6250000,
721818.5000000,95153.4609375,
719285.7500000,93545.8281250,
718304.8750000,90078.5000000,
718506.9375000,88438.6171875,
719408.5000000,86816.2265625,
719664.6250000,84731.4140625,
718976.8125000,84866.6796875,
718838.3750000,86494.2656250,
717134.7500000,88225.6953125,
715607.8125000,86472.2500000,
714114.5000000,85380.6171875,
713892.1250000,84424.8750000,
713037.6250000,84762.5781250,
713360.0625000,85960.7265625,
712564.1250000,87024.0312500,
712365.1875000,90050.7343750,
711244.9375000,90183.0468750,
711178.0625000,90653.3359375,
712217.9375000,91105.7343750,
712021.3125000,91956.8281250,
712946.0000000,92510.2187500,
712605.0625000,93983.7500000,
713820.9375000,94742.6953125), ncol = 2, byrow = TRUE)
ch.seen.13 <- matrix(c(705114.4375000,112266.4453125,
705541.5625000,113032.7343750,
705101.8750000,114085.7343750,
707525.1250000,114967.4140625,
708250.1250000,114972.3593750,
709696.5625000,111801.4843750,
706410.3125000,110634.0234375,
702149.5625000,106915.3203125,
700523.3750000,106649.7734375,
698950.6250000,104170.8046875,
700003.3750000,102753.0156250,
699974.6250000,99546.6328125,
701345.1875000,98156.4531250,
700982.7500000,95380.3828125,
698387.9375000,93556.0312500,
698356.0625000,92639.7656250,
694725.5625000,89752.3515625,
694758.3750000,88696.5781250,
693478.0625000,88064.4218750,
691418.8125000,86040.1640625,
691682.9375000,84629.7187500,
690259.7500000,84429.1718750,
689962.6875000,81399.0781250,
690958.2500000,79052.1250000,
691419.5625000,78559.0781250,
692010.8125000,75827.6796875,
691061.6875000,75121.4453125,
690427.8750000,72966.9453125,
688077.3125000,72607.3984375,
687727.5000000,69844.1406250,
688799.0625000,69393.4218750,
688626.7500000,68565.2578125,
690391.1875000,65396.5468750,
692231.2500000,64162.2500000,
689255.9375000,64014.7343750,
688848.6875000,65894.9531250,
687850.2500000,66804.1953125,
687343.0000000,68429.2812500,
685946.8125000,69844.7265625,
685317.3125000,72601.3125000,
686056.8750000,74171.2734375,
687640.7500000,75047.2265625,
688261.3125000,77277.9765625,
687129.1875000,80972.6328125,
683935.9375000,82922.9218750,
682329.7500000,85278.4375000,
680766.0625000,87010.8203125,
682423.2500000,88319.8593750,
685472.1250000,87017.4609375,
686817.4375000,85601.6562500,
688113.3750000,87646.1640625,
689063.3125000,88225.1718750,
691567.8750000,90239.7500000,
693956.5000000,94301.9296875,
695819.5000000,97113.6718750,
698393.1250000,98327.1718750,
698059.1875000,100640.4765625,
697086.8750000,103292.9453125,
696906.3750000,105492.7734375,
698603.6250000,108367.0000000,
700134.5625000,111380.0546875,
702532.5000000,112248.8437500,
704180.0000000,111280.4062500,
705114.4375000,112266.4453125), ncol = 2, byrow = TRUE)
## Schweizergrenze: Stadte
## ----------------------------------------------------------------------------
ch.stadt <- matrix(c(782783, 185993,
600000, 200000,
683263, 248036,
538413, 152838,
500532, 117325), ncol = 2, byrow = TRUE)
ch.stadt.name <- c("Davos", "Bern", "Zurich", "Lausanne", "Geneva")
## Plot
## ----------------------------------------------------------------------------
if (!add){
xlim <- c(480000, 840000) * scale
ylim <- c(58000, 300000) * scale
plot(ch.grenze.land.teilstueck.1 * scale, type = "n", xlim = xlim, ylim = ylim,
axes = axes, xlab = xlab, ylab = ylab, asp = 1, ...)
}
lines(ch.grenze.land.teilstueck.1 * scale)
lines(ch.grenze.land.teilstueck.2 * scale)
lines(ch.grenze.land.teilstueck.3 * scale)
lines(ch.grenze.land.teilstueck.4 * scale)
lines(ch.grenze.land.teilstueck.5 * scale)
lines(ch.grenze.land.teilstueck.6 * scale)
lines(ch.grenze.land.teilstueck.7 * scale)
lines(ch.grenze.land.teilstueck.8 * scale)
lines(ch.fluesse.01 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.02 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.03 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.04 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.05 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.06 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.07 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.08 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.09 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.10 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.11 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.12 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.13 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.14 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.15 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.16 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.17 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.18 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.19 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.20 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.21 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.22 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.23 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.24 * scale, col="darkblue", lwd=1.5)
polygon(ch.seen.01 * scale, col="lightblue", border="blue")
polygon(ch.seen.02 * scale, col="lightblue", border="blue")
polygon(ch.seen.03 * scale, col="lightblue", border="blue")
polygon(ch.seen.04 * scale, col="lightblue", border="blue")
polygon(ch.seen.05 * scale, col="lightblue", border="blue")
polygon(ch.seen.06 * scale, col="lightblue", border="blue")
polygon(ch.seen.07 * scale, col="lightblue", border="blue")
polygon(ch.seen.08 * scale, col="lightblue", border="blue")
polygon(ch.seen.09 * scale, col="lightblue", border="blue")
polygon(ch.seen.10 * scale, col="lightblue", border="blue")
polygon(ch.seen.11 * scale, col="lightblue", border="blue")
polygon(ch.seen.12 * scale, col="lightblue", border="blue")
polygon(ch.seen.13 * scale, col="lightblue", border="blue")
if (city){
points(ch.stadt * scale, pch=16, cex=1.3)
text(ch.stadt[,1] * scale, ch.stadt[,2] * scale, ch.stadt.name,
font = 2, cex = 0.6, pos = c(rep(3, 4), 1))
}
}
Try the SpatialExtremes package in your browser
Any scripts or data that you put into this service are public.
SpatialExtremes documentation built on July 16, 2024, 3:01 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions swiss
Documented in swiss
swiss <- function(city = FALSE, add = FALSE, axes = FALSE, km = TRUE,
xlab = "", ylab = "", ...){
if (km)
scale <- 1 / 1000
else
scale <- 1
## Schweizergrenze: Land (Datenpunkte)
## ----------------------------------------------------------------------------
ch.grenze.land.teilstueck.1 <- matrix(c(759892.6250000,263348.3437500,
760768.3125000,262177.7187500,
761928.5000000,261087.9531250,
762976.0625000,259349.5000000,
763724.6875000,259911.1718750,
764592.1250000,258922.2187500,
767467.9375000,258206.4218750,
767190.5000000,257379.2187500,
766659.9375000,256106.2343750,
767050.3750000,252916.4218750,
768669.1250000,251535.6718750,
768572.1250000,249831.7968750,
767265.5000000,248734.4062500,
765599.9375000,248652.9843750,
764521.1250000,247925.0000000,
763343.3125000,246217.7812500,
763044.5000000,244908.1093750,
762614.7500000,243024.5000000,
761664.0000000,241966.3593750,
760269.1875000,240563.5937500,
759600.1875000,238794.3906250,
758415.1875000,237586.7343750), ncol = 2, byrow= TRUE)
ch.grenze.land.teilstueck.2 <- matrix(c(758415.1875000,237586.7343750,
759074.0000000,236912.8750000,
759241.0625000,236341.1562500,
760706.9375000,235201.3750000,
761307.3750000,234287.6875000,
760206.4375000,232465.7343750,
760550.1875000,232352.3750000,
762832.3125000,230439.4687500,
761984.8750000,228898.0781250,
762015.4375000,227168.7343750,
761610.6250000,226480.7500000,
762233.3125000,226622.6250000,
763686.3125000,225546.3593750,
764313.2500000,224276.7187500,
765570.9375000,224725.8125000,
765946.2500000,222552.5000000,
766608.8750000,222084.1093750,
765712.3125000,219983.0156250,
766362.1875000,219552.7343750,
766725.6250000,217099.6093750,
765049.0000000,216407.5781250,
765091.5625000,214958.0312500,
764661.9375000,214578.0312500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.3 <- matrix(c(758415.1875000,237586.7343750,
757951.0625000,235292.0625000,
755266.2500000,228985.8281250,
755640.8750000,226051.2500000,
757201.8125000,223179.0937500,
757888.6250000,219620.1406250,
757888.6250000,217996.7500000,
757638.8750000,216935.3125000,
755391.1250000,214937.3125000,
754891.6250000,213438.7812500,
759886.6875000,214625.1093750,
760635.8750000,213563.6718750,
764661.9375000,214578.0312500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.4 <- matrix(c(708257.8125000,279239.1562500,
708152.2500000,279648.6250000,
706950.4375000,281996.8750000,
706085.1250000,282210.3437500,
706385.8125000,283838.5625000,
707505.8125000,283473.3437500,
707299.1875000,284604.1875000,
705644.1250000,285323.7500000,
704625.7500000,285714.7187500,
703698.5625000,285330.4375000,
703518.3750000,286118.1250000,
702550.0000000,286827.0625000,
702968.1875000,287324.1875000,
702648.1250000,288111.4062500,
702012.8125000,287931.4687500,
701239.3125000,287166.2812500,
700224.8125000,286171.5000000,
699986.6250000,284950.3125000,
701871.3125000,283964.4687500,
702852.0000000,283408.1250000,
701903.9375000,281383.7812500,
698631.6875000,282924.7187500,
697368.5625000,283204.1250000,
695910.0625000,283068.8750000,
693836.0000000,283583.7187500,
692554.9375000,282410.1250000,
691728.4375000,283036.3437500,
692792.1250000,283987.3125000,
692127.3750000,285256.5937500,
693362.0000000,284840.8437500,
694783.3750000,285836.8750000,
695753.7500000,283452.8437500,
696949.0625000,283866.8750000,
697440.6250000,285972.2187500,
696053.2500000,286451.0312500,
695478.7500000,287262.9062500,
695894.1875000,288751.6562500,
697646.9375000,289494.4375000,
695709.3750000,291192.0312500,
693969.6875000,290347.5937500,
693533.5000000,291719.2812500,
693198.3750000,293332.8437500,
691568.3750000,294192.3125000,
691566.0000000,295044.0937500,
690765.1875000,294939.9062500,
690463.6250000,293642.2187500,
691167.2500000,292118.8125000,
689442.5625000,290448.0312500,
689364.0625000,291236.0000000,
688549.1875000,291614.9062500,
688049.1250000,293100.8125000,
688783.3125000,294298.1250000,
687979.6250000,295223.7187500,
686415.7500000,295168.0312500,
685589.6250000,295012.9375000,
684506.8125000,295708.8125000,
684333.4375000,294042.8437500,
685160.5000000,293854.6875000,
685544.2500000,293054.9375000,
684337.4375000,292618.9687500,
683699.6250000,293354.3750000,
681008.6250000,291642.4687500,
680345.9375000,292174.3750000,
678477.4375000,291914.3437500,
677173.3750000,289888.9062500,
675868.2500000,288219.4375000,
675819.4375000,287494.6250000,
676520.3125000,286950.1250000,
676178.5625000,286389.6875000,
675415.6875000,286374.6250000,
673614.0000000,284957.8750000,
672512.0625000,283403.4687500,
673762.6875000,281792.7187500,
672886.7500000,281281.5000000,
673297.6875000,279820.7500000,
674035.0625000,279886.5937500,
675042.3750000,278885.3437500,
676302.2500000,278520.5312500,
677115.6875000,278662.9062500,
677969.1875000,278106.1562500,
679394.5000000,277703.7187500,
682204.0000000,277953.9375000,
681793.8750000,279109.5937500,
682669.2500000,279824.2500000,
684511.9375000,280224.0312500,
685619.8750000,279642.6562500,
687740.3750000,280717.1250000,
687972.0625000,279726.1875000,
689425.1250000,278472.0625000,
688511.6250000,277757.2812500,
687949.3125000,278747.1875000,
687025.1250000,277295.0312500,
687808.5625000,274525.9375000,
687055.6875000,273125.3125000,
686809.1875000,272666.7187500,
686072.5000000,272438.4062500,
685856.4375000,272333.2500000,
684482.5000000,272545.1250000,
685190.5000000,274022.0625000,
684449.8750000,275138.5312500,
682489.1250000,276035.1250000,
681267.4375000,276387.3125000,
680471.0000000,274719.4375000,
678577.4375000,274319.4687500,
677664.5000000,273375.8750000,
676636.7500000,272584.4687500,
677226.3750000,270908.1250000,
679376.1875000,270596.9375000,
676136.5000000,269507.3437500,
674510.9375000,268852.9062500,
672155.3125000,270002.5625000,
671293.7500000,268868.4062500,
666269.3750000,269450.4062500,
664649.5625000,271212.5625000,
664325.6875000,273347.4062500,
662049.0000000,273543.7812500,
661614.9375000,274165.4062500,
660305.6875000,273996.0937500,
659227.0625000,273204.5312500,
658854.7500000,274474.7187500,
656883.3125000,274646.5937500,
654436.8125000,271918.4062500,
653228.5625000,271990.9687500,
652215.0000000,270678.3750000,
650092.1875000,270417.5312500,
649044.4375000,267668.2500000,
646969.7500000,268373.7812500,
643438.8750000,266900.8437500,
641352.7500000,267161.4062500,
638528.0000000,267826.4687500,
637693.5000000,266120.3125000,
636263.8750000,266709.5000000,
635453.5625000,266825.3437500,
635547.9375000,269470.0000000,
634348.5000000,270941.0312500,
631792.8125000,270869.5937500,
630650.3750000,270154.1250000,
629670.1250000,270570.6250000,
628817.8750000,270682.4062500,
627921.0625000,268518.3750000,
626347.8125000,267267.6250000,
623235.9375000,265999.4062500,
621163.1875000,266043.8750000,
619539.0625000,264780.2187500,
617529.6875000,264888.4375000,
616801.6875000,266030.4062500,
615754.3750000,267667.1875000,
617838.6250000,268080.4375000,
618625.6875000,268553.2500000,
618852.6250000,269253.1875000,
617654.0000000,270444.5312500,
617449.0000000,271016.0000000,
615565.1875000,271684.0000000,
614159.5625000,269594.6875000,
612938.5000000,269718.0312500,
612795.6875000,270772.8125000,
611802.3125000,271316.4062500,
611258.7500000,270157.8125000,
610294.5000000,269379.3437500,
608833.0625000,269069.6875000,
608797.8125000,268039.8125000,
605993.2500000,266009.7500000,
604431.1875000,265318.4062500,
605184.5625000,264189.2500000,
606174.6250000,264815.2500000,
606965.1875000,264042.1875000,
606269.0000000,262895.8437500,
605074.5625000,262599.7500000,
605613.3750000,260885.1406250,
603876.0625000,259188.8750000,
602592.8750000,258790.8125000,
601814.7500000,259678.3437500,
599561.2500000,260675.7187500,
598841.6250000,258817.3906250,
601349.0625000,257947.8750000,
600411.5625000,256711.8281250,
599433.1875000,256454.5312500,
598865.3125000,254901.7500000,
597024.3750000,253879.0000000,
596091.8125000,253521.3593750,
595868.8750000,253290.6250000,
593222.3750000,253867.2656250,
592356.3125000,254360.4218750,
588135.8125000,253940.5625000,
587477.4375000,252921.4687500,
585444.5625000,252343.0937500,
584294.2500000,254449.9531250,
581586.8750000,254047.4843750,
580007.8125000,254868.9687500,
580420.1250000,257489.1718750,
581380.4375000,259678.8281250,
579090.5625000,260027.7500000,
576759.1250000,261622.4062500,
575401.2500000,260652.0156250,
574130.1250000,260482.8281250,
572695.1250000,259817.2968750,
570275.5000000,261119.2968750,
568709.7500000,261711.9843750,
565864.9375000,260457.3125000,
565857.5625000,258550.2968750,
567187.2500000,255948.1562500,
566591.2500000,255361.5156250,
564901.0000000,255013.0312500,
564154.0625000,253841.1093750,
562349.1250000,253593.9843750,
562344.9375000,250542.7812500,
560730.1875000,250474.2187500,
560312.6875000,249722.8593750,
559211.1875000,248003.1562500,
558286.2500000,246817.9687500,
557910.3750000,244820.8125000,
561152.1250000,245085.0937500,
566350.6875000,245876.6562500,
567962.5000000,247000.3906250,
570360.9375000,245626.3906250,
570691.0000000,244377.1718750,
571621.8750000,243426.5468750,
571093.3750000,242819.8125000,
570278.3125000,241884.0937500,
567532.6875000,241532.3593750,
568043.1875000,240872.8437500,
567234.4375000,239065.0625000,
564782.8125000,238154.8437500,
563117.3125000,238048.0000000,
562547.5625000,237181.7343750,
562938.3750000,233826.6250000,
563247.2500000,232505.4062500,
561178.3125000,231164.1250000,
560876.0000000,230133.4062500,
557373.2500000,227707.0781250,
557059.5000000,226218.6562500,
554445.4375000,224290.8750000,
555795.4375000,223519.5312500,
551888.9375000,219960.4687500,
549068.3750000,219099.9687500,
546974.1250000,217720.4687500,
547600.1250000,216692.6250000,
547119.6875000,215686.7812500,
545847.9375000,215746.4218750,
544235.3750000,214915.0937500,
544251.0625000,213847.2187500,
543490.8125000,212891.3750000,
544611.1250000,212399.0156250,
545428.2500000,211219.2031250,
543435.6875000,209852.7343750,
541859.6875000,209580.8906250,
540185.3125000,208113.6875000,
539453.1250000,206204.4375000,
537599.9375000,205003.6562500,
535921.3125000,205049.3281250,
534360.5625000,203874.8906250,
529063.1250000,202078.6718750,
528234.2500000,202915.2031250,
524939.5000000,198836.7812500,
523314.0312500,198056.2500000,
523647.1250000,197192.7656250,
525767.9375000,193601.4531250,
525449.9375000,189331.8750000,
523702.4062500,186488.3437500,
523794.2187500,185497.0000000,
522930.6250000,185112.9375000,
523163.0312500,183829.6093750,
525112.3125000,182488.0156250,
524582.4375000,180986.2187500,
523556.0312500,179711.7187500,
522871.5312500,178934.0937500,
520826.0000000,178330.2500000,
519862.3125000,177361.0625000,
519306.0937500,176177.0156250,
518301.6562500,176148.4843750,
518278.2812500,175423.7500000,
517413.9375000,175281.2500000,
516869.6875000,174376.9218750,
511421.8750000,171779.2968750,
510420.8437500,170517.5937500,
505296.9375000,165759.7187500,
503471.8437500,163618.2500000,
502024.3437500,162863.7031250,
498118.2812500,159139.3593750,
501853.5000000,155743.7343750,
501449.1250000,154839.8437500,
500166.9062500,154098.5156250,
498049.4687500,151905.2968750,
496838.0625000,148570.6718750,
495202.0000000,147040.0156250,
495243.5625000,145819.6718750,
496162.5937500,144563.8906250,
494136.9375000,141392.0312500,
496593.2500000,140624.1093750,
498122.3437500,139471.9218750,
500875.6875000,137064.8906250,
501905.3125000,137195.2031250,
502094.4062500,136421.5937500,
502265.4687500,135721.5781250,
499921.3750000,132739.4218750,
498327.0937500,129912.1562500,
498331.3125000,128399.2890625,
497114.4687500,127009.7812500,
498739.8125000,123277.0937500,
496976.9687500,121606.2109375,
495867.8750000,122619.8515625,
493795.6562500,122448.1796875,
492527.6562500,121172.9453125,
491190.9062500,121740.9140625,
488677.5937500,120156.7031250,
488285.8437500,119278.2656250,
487458.4687500,119580.8359375,
486837.1250000,118968.6796875,
486814.3125000,118027.8203125,
486345.7812500,117327.1484375,
488308.6562500,115667.7734375,
487039.0937500,114939.1953125,
485702.2812500,110981.2343750,
485387.2500000,109950.4921875,
487166.9375000,110146.6796875,
488168.0000000,111395.6796875,
490598.0937500,110907.3515625,
491439.1250000,110261.5703125,
492390.6875000,111027.3125000,
492680.0937500,112121.5390625,
496228.1250000,112005.3671875,
496154.2187500,111153.3437500,
499092.7812500,110717.4531250,
500360.7187500,112018.1171875,
503243.2500000,113438.1875000,
503226.5937500,114849.3203125,
504063.7812500,115589.2734375,
506994.6875000,117899.4296875,
510259.3125000,119091.8437500,
512566.7812500,121539.9140625,
512777.7187500,123409.4140625,
511709.9687500,123266.2734375,
511567.1562500,124321.0390625,
509563.2500000,122458.7109375,
507148.6875000,126494.0859375,
508608.8750000,127261.3906250,
508187.2500000,128889.0078125), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.5 <- matrix(c(764661.9375000,214578.0312500,
765544.6875000,213818.4062500,
767185.2500000,213734.4843750,
767590.2500000,214422.2500000,
770196.0000000,214760.8281250,
771407.0625000,213671.2343750,
773266.0000000,212812.4687500,
775059.6250000,212563.7343750,
776230.8125000,212084.2500000,
778125.0000000,212242.6562500,
780341.8750000,210698.4687500,
782149.8750000,209852.2656250,
783560.7500000,210072.7500000,
784143.5625000,210824.6250000,
785390.7500000,210447.0781250,
785102.2500000,209035.0156250,
786439.4375000,208301.7656250,
786595.2500000,207158.0625000,
785419.0000000,204891.4687500,
785180.0000000,203949.9375000,
785817.0625000,203494.2343750,
785783.9375000,201714.2656250,
788522.7500000,199942.8593750,
789758.5625000,199107.5937500,
790865.9375000,198704.1875000,
792034.3750000,199203.6093750,
793370.0625000,199029.7500000,
794136.0000000,197964.2031250,
797050.1875000,197146.8281250,
797866.4375000,196272.1406250,
799294.0000000,195068.7812500,
799106.9375000,193733.3125000,
799769.1250000,193404.8125000,
801956.4375000,193335.2812500,
803296.5625000,191559.5468750,
803740.1250000,191582.0312500,
804364.5000000,191613.7031250,
804744.6250000,192110.7031250,
805990.9375000,192050.9843750,
806689.0000000,192510.8125000,
808760.9375000,192771.4687500,
809407.0000000,193650.6875000,
810058.1250000,194233.9375000,
812736.2500000,194487.3281250,
813010.5625000,196433.3125000,
812396.9375000,197588.3281250,
813093.5000000,198594.8281250,
813364.5000000,201723.1250000,
817805.3125000,200656.2031250,
818872.0625000,201142.6093750,
819188.4375000,201702.9687500,
818283.0000000,202628.2343750,
818483.0625000,203836.6250000,
819854.5625000,204501.9375000,
821369.5625000,208396.8906250,
823047.4375000,208605.4843750,
823985.6875000,209600.0156250,
824939.7500000,209450.4062500,
825872.0000000,208029.3906250,
827413.3750000,207029.7968750,
827125.3125000,205452.4531250,
827775.8125000,204755.2343750,
829696.0000000,204723.0312500,
831875.1250000,203026.1718750,
831972.3125000,200089.7031250,
830709.5625000,196932.9062500,
831266.4375000,193324.0468750,
831211.0000000,193104.8437500,
830272.8750000,189392.5781250,
829476.5625000,187673.8281250,
828371.8750000,187098.3125000,
828148.5000000,186807.5312500,
827725.7500000,186257.2500000,
828001.2500000,186000.1093750,
829333.1875000,184380.6406250,
829427.4375000,182499.3593750,
828500.8125000,181911.6875000,
826293.5625000,180010.5937500,
827632.5625000,178641.7031250,
827394.8125000,177255.2187500,
826556.0625000,177087.3593750,
826052.3125000,175344.0781250,
825049.3125000,174781.5937500,
825092.3125000,174627.0156250,
825897.0625000,171733.0156250,
826882.3125000,169536.6718750,
830238.3750000,169877.5781250,
831422.6875000,169245.5625000,
833640.8125000,167256.4218750,
833199.1250000,166047.2968750,
833431.6875000,164725.8281250,
833675.5625000,163912.9375000,
833031.6250000,162283.6406250,
832767.7500000,161151.3437500,
833214.8750000,160415.3593750,
832671.5000000,159193.2031250,
831453.3750000,158261.3750000,
830563.3125000,158245.9062500,
828625.7500000,159956.2187500,
826860.7500000,159060.8437500,
825726.8750000,159832.8593750,
823335.1250000,160245.0156250,
823133.8125000,159494.3125000,
822258.6250000,158703.3750000,
821377.9375000,159870.2812500,
820337.3125000,159129.7031250,
819599.1875000,159343.5468750,
819049.2500000,160473.3281250,
818488.1875000,161304.6718750,
818321.4375000,161551.7187500,
816894.8750000,162424.5312500,
815535.8750000,161848.2343750,
814805.3125000,163905.5312500,
816032.6250000,166096.0156250,
815012.3750000,167173.4843750,
814566.1875000,168520.5937500,
814486.5625000,168761.0312500,
813078.1250000,167676.0468750,
812673.3125000,166924.7187500,
804254.9375000,165539.4062500,
803776.3750000,165460.6562500,
804007.6250000,164609.5781250,
803999.8125000,162842.4062500,
803316.1875000,161772.3750000,
802388.9375000,161400.8281250,
802594.6250000,160613.2343750,
801075.1250000,158320.1562500,
800096.5625000,158126.4375000,
799972.1875000,157108.9843750,
800687.8750000,155839.8750000,
799853.7500000,153993.8593750,
800317.9375000,151694.1875000,
799850.0000000,150777.3906250,
800909.8750000,149191.5000000,
799809.6250000,147039.5625000,
799883.0625000,147002.0781250,
801146.6875000,146357.1718750,
801365.9375000,145251.7968750,
802739.4375000,145192.4687500,
803110.1875000,144468.9531250,
804521.5000000,144524.1562500,
805104.1250000,145339.6093750,
806781.1875000,145853.3125000,
807914.9375000,145132.1562500,
808554.3750000,143811.9531250,
809598.7500000,143217.6562500,
809513.1250000,141996.9062500,
809021.1250000,140609.6406250,
807977.8750000,140809.8437500,
806848.9375000,139814.7187500,
806892.0625000,138034.9843750,
805445.3125000,137013.4531250,
805222.0000000,135004.0625000,
806372.8125000,132731.9375000,
808055.1250000,131351.3906250,
809419.0000000,130173.2656250,
810659.3750000,127698.0000000,
811095.0000000,126517.0156250,
808446.0625000,123406.7812500,
806438.3750000,122917.4843750,
804110.9375000,123075.5703125,
802830.1250000,121813.0078125,
800906.0000000,123256.3828125,
802184.3125000,125408.8750000,
801861.5000000,127175.0234375,
797138.5000000,129105.5781250,
797257.0000000,132220.7031250,
795511.3750000,133486.6406250,
796763.2500000,135982.3125000,
796375.0625000,136306.0312500,
794545.5625000,137831.6093750,
793663.4375000,139403.9375000,
793548.7500000,139608.3906250,
791340.2500000,138164.9687500,
789721.1250000,139672.8437500,
787056.6875000,137566.9375000,
784183.6875000,137291.0781250,
782827.6875000,135634.1718750,
780856.0625000,135146.4531250,
780062.4375000,134545.5937500,
779690.6875000,134264.1562500,
777219.1875000,135934.6875000,
775671.1875000,134734.8593750,
775486.1250000,132700.1562500,
775937.6250000,131480.8593750,
775241.1875000,129355.8125000,
773143.0625000,129362.0468750,
772410.0000000,130357.2890625,
769559.5000000,128537.3437500,
767740.2500000,128849.5546875,
766848.8125000,129329.8984375,
765169.9375000,129464.5703125,
763081.3750000,130602.3125000,
762523.5625000,130003.0703125,
759448.6250000,133718.5781250,
759316.8750000,135370.8906250,
758397.8125000,136529.7968750,
758177.6250000,136807.5156250,
755532.5625000,138118.0000000,
756278.7500000,139569.6093750,
755214.8750000,142617.5156250,
755250.8750000,147919.0781250,
755503.6250000,148479.2343750,
755131.3125000,149762.1250000,
755129.3125000,150474.0625000,
755122.7500000,152826.0000000,
753053.0625000,151764.4062500,
752246.3125000,149219.2656250,
751333.9375000,148084.9687500,
749601.3125000,149261.9531250,
748070.8125000,150922.6718750,
748563.1875000,152170.0937500,
747704.3125000,152671.1406250,
746630.4375000,152164.1250000,
742639.7500000,151414.4375000,
741559.0625000,151347.5312500,
741408.2500000,150964.7656250,
740852.0000000,149552.7812500,
741075.0000000,147125.2343750,
740251.8125000,145914.9218750,
739301.0625000,145744.9531250,
738986.6875000,143597.2031250,
740859.0625000,142471.5000000,
741703.7500000,140528.9687500,
741172.5625000,139510.2656250,
741835.8750000,138749.5156250,
741344.0000000,137311.3906250,
741933.6250000,135622.3437500,
742735.2500000,135434.1250000,
743234.8750000,134113.4843750,
742652.6250000,133158.1875000,
743061.9375000,132294.9531250,
742658.3750000,131085.9375000,
741897.6875000,130269.9453125,
742078.6875000,129215.2890625,
741204.1250000,128195.5468750,
739586.1875000,124732.5234375,
739454.5625000,121782.6406250,
737726.3750000,121357.7734375,
737197.1875000,119614.4062500,
736003.7500000,118949.6328125,
735514.6250000,116532.6015625,
734566.0000000,114711.6718750,
732852.8750000,114470.3281250,
729948.0000000,110921.5703125,
726215.2500000,108888.6406250,
727560.3125000,105345.7734375,
726801.1250000,104008.5390625,
726727.9375000,102876.8281250,
726160.7500000,102722.0781250,
725266.7500000,102478.2031250,
722218.5625000,101197.4609375,
721436.2500000,99021.0781250,
722559.6875000,97422.6718750,
722629.0000000,97122.3828125), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.6 <- matrix(c(711197.9375000,90662.2656250,
709961.6875000,91662.8046875,
707996.8125000,94034.1171875,
704334.6875000,94035.5312500,
706015.5000000,97753.0000000,
707158.1875000,98366.7656250,
708079.1875000,100975.8281250,
708816.8750000,100914.5468750,
709713.9375000,102976.8671875,
709372.5625000,103294.3828125,
705940.2500000,106486.7968750,
704925.0625000,105720.8671875,
701946.6250000,106792.2968750,
701898.8750000,106874.3671875), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.7 <- matrix(c(697426.6250000,106373.8515625,
697242.7500000,106434.5234375,
696173.2500000,106914.3281250,
695777.7500000,107396.2109375,
694060.1875000,107721.4531250,
693344.7500000,108914.2890625,
690650.0000000,108562.7187500,
689117.0625000,111075.2109375,
689762.5625000,112157.8359375,
687775.8125000,113257.7578125,
686918.0625000,115327.3750000,
684929.8750000,116961.2578125,
684326.0000000,119184.2187500,
679654.6250000,120847.9531250,
679008.1250000,122119.8750000,
677678.6875000,122634.4218750,
678411.4375000,124340.2656250,
676468.6250000,127932.1328125,
678886.0625000,131969.7031250,
678912.8750000,132769.8750000,
679088.0625000,137042.9375000,
678653.5000000,137829.8125000,
679426.6250000,138747.5625000,
679064.8750000,140793.2812500,
678917.5000000,141228.8750000,
678269.9375000,143142.7812500,
678696.1250000,143969.7343750,
678965.5000000,144492.5468750,
677485.6250000,146229.7031250,
673305.1875000,145123.4531250,
672477.4375000,145070.5937500,
671004.0625000,144976.5000000,
670855.2500000,144821.8906250,
669082.4375000,142981.0468750,
668278.0625000,142145.7343750,
666562.4375000,141784.4687500,
665436.3125000,139785.0000000,
667205.1875000,139294.6406250,
667250.8125000,136612.2812500,
664801.1250000,135015.5625000,
663642.7500000,135193.7656250,
663261.8750000,135252.3593750,
663217.1875000,133027.3906250,
660537.1250000,131963.9218750,
659058.4375000,128717.4531250,
655603.0000000,127562.6015625,
653707.1875000,127963.5703125,
652982.8125000,127175.0781250,
649549.0625000,123437.5234375,
651956.0000000,122122.7578125,
653959.3125000,119637.1562500,
656122.5625000,114545.7968750,
654806.6250000,112202.4765625,
655268.3125000,110805.4531250,
654228.6250000,109734.3281250,
652183.3750000,109003.3515625,
651908.5625000,107235.3593750,
646631.3125000,105517.1171875,
645498.7500000,103058.3281250,
645941.4375000,99360.1250000,
644432.0000000,98020.5703125,
644650.8125000,97080.4609375,
644286.0000000,95668.1562500,
643510.4375000,95627.6250000,
642612.1875000,93984.8359375,
642018.4375000,93991.7812500,
636414.1250000,94057.2812500,
635242.6250000,91966.1015625,
633922.2500000,91237.3671875,
633687.9375000,88617.7109375,
633424.6250000,87282.0000000,
633594.4375000,85667.9375000,
632679.3750000,85512.5546875,
629663.8125000,86189.7578125,
627962.1250000,85396.2812500,
625489.1250000,87588.0468750,
623886.3750000,87786.5156250,
622963.3125000,85914.8125000,
620760.1875000,87103.0546875,
621022.6875000,88731.1718750,
618693.6875000,89448.6406250,
617148.6875000,91732.2578125,
615382.6250000,91205.5625000,
613162.1250000,91323.1171875,
611071.3750000,91433.8046875,
610799.7500000,93072.9843750,
608308.5625000,92658.4687500,
608162.8750000,90204.3515625,
607771.0000000,89376.7812500,
606166.8750000,90071.0546875,
604171.9375000,89530.9453125,
602483.3125000,88610.3750000,
602796.1875000,87750.2109375,
602880.5625000,87518.2578125,
602372.8750000,87173.4296875,
600593.6250000,86837.3906250,
599276.1875000,85040.7500000,
597650.7500000,84272.9375000,
595697.0000000,82652.3125000,
592817.3750000,84741.1171875,
590885.8125000,84302.9062500,
588648.4375000,85411.2812500,
585755.3750000,81896.9687500,
583681.5000000,82322.8203125,
581550.2500000,80523.6640625,
581350.7500000,79099.1640625,
578972.0625000,79409.6484375,
578001.3125000,80957.6718750,
576515.3750000,80317.4218750,
574764.7500000,78824.5625000,
573556.5000000,78909.8281250,
573132.0625000,80637.5234375,
570987.8125000,83504.1093750,
570271.1875000,85129.1953125,
569968.5625000,85608.0234375,
568891.7500000,87311.6250000,
568795.7500000,89815.8515625,
566617.3125000,91258.4375000,
567785.2500000,91948.5625000,
566825.1250000,94259.4140625,
564902.9375000,95003.5625000,
564466.2500000,96565.9531250,
563025.4375000,97972.6796875,
561963.4375000,100321.3593750,
561072.3125000,100687.2890625,
560522.0000000,101956.9140625,
559014.3750000,99956.2812500,
557362.8125000,99417.2265625,
556395.3125000,99821.0703125,
556821.2500000,102098.0625000,
557580.4375000,103460.7187500,
557257.2500000,105341.2968750,
558004.1875000,106538.6484375,
558130.1875000,107991.2578125,
558152.0000000,108242.6875000,
556015.3125000,108401.3671875,
553596.8750000,109271.1171875,
551766.6250000,108973.0625000,
550735.3125000,109440.2656250,
549977.0000000,112323.8359375,
551382.1250000,114591.1484375,
551167.5625000,116192.5859375,
551095.6875000,117005.7890625,
552157.8125000,119144.8984375,
552294.5000000,120276.8046875,
553840.9375000,122048.7265625,
554945.1250000,122789.5156250,
555725.3750000,125690.5390625,
555022.0625000,127099.5468750,
553967.3125000,126867.4453125,
552922.3750000,127677.8750000,
551733.3125000,129988.0234375,
550970.0000000,130125.5234375,
548645.8750000,133639.9218750,
548705.8125000,134962.2968750,
550230.1250000,135526.3750000,
551357.7500000,136979.1718750,
551047.8750000,138008.6562500), ncol = 2, byrow = TRUE)
ch.grenze.land.teilstueck.8 <- matrix(c(722887.8125000,96000.9687500,
723087.4375000,95135.9062500,
722606.5625000,94308.0625000,
721857.0000000,94064.1953125,
721299.4375000,93363.2421875,
720221.3750000,92380.9921875,
721890.1875000,91280.0859375,
722225.5000000,89602.9687500,
721807.5625000,89004.1484375,
722648.3750000,88434.6484375,
722472.6250000,87620.4531250,
724189.1250000,87663.8984375,
725552.1250000,86803.6015625,
726394.0625000,85839.9843750,
727974.2500000,84611.6796875,
726214.5625000,81822.0312500,
725490.3750000,81603.6718750,
724997.7500000,80432.5312500,
725178.7500000,79352.4609375,
724165.1875000,78039.8593750,
723802.6875000,75801.2031250,
722634.2500000,75289.0625000,
720864.3750000,76122.6796875,
721001.8750000,76987.6015625,
719271.6250000,77312.8125000,
717705.6875000,77981.7812500,
715699.2500000,77022.0859375,
714466.5000000,76776.7343750,
714830.9375000,78328.8750000,
716934.6250000,80878.0312500,
716209.3125000,81079.2031250,
715528.8125000,83416.3515625,
714929.5625000,83999.3125000,
714683.1250000,85796.2968750), ncol = 2, byrow = TRUE)
## Schweizergrenze: Wasser (Datenpunkte)
## ----------------------------------------------------------------------------
ch.grenze.wasser.teilstueck.1 <- matrix(c(708257.8125000,279239.1562500,
708319.3750000,279000.7812500,
710126.0625000,278637.6562500,
712310.9375000,279432.6250000,
715091.9375000,280788.8437500,
717757.4375000,282513.3437500,
718709.8125000,282973.9687500,
721088.8125000,282574.5000000,
724116.3750000,282151.5937500,
726026.6875000,281102.2812500,
727769.7500000,280726.2500000,
728773.1250000,281148.9062500,
729968.1875000,281241.5937500,
730747.7500000,279832.8125000,
734410.0625000,279793.2500000,
739116.3125000,279299.2500000,
743406.2500000,277596.2187500,
747252.1250000,275561.2500000,
750041.1875000,274031.5312500,
751709.6250000,273083.1875000,
756716.6875000,269589.7812500,
759626.3750000,265835.6250000,
759892.6250000,263348.3437500), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.2 <- matrix(c(551047.8750000,138008.6562500,
552182.8125000,141574.1875000,
552287.6875000,141875.2500000,
543010.5000000,143564.3125000,
533523.5000000,143929.1406250,
526278.2500000,142927.8593750,
518959.7812500,140833.0000000,
512687.6250000,137444.6093750,
509261.9687500,134726.1093750,
507421.8437500,132597.2656250,
506058.6562500,129783.4609375,
508187.2500000,128889.0078125), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.3 <- matrix(c(701898.8750000,106874.3671875,
700860.5625000,108657.8046875,
698502.7500000,106018.8828125,
697426.6250000,106373.8515625), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.4 <- matrix(c(722629.0000000,97122.3828125,
722887.8125000,96000.9687500), ncol = 2, byrow = TRUE)
ch.grenze.wasser.teilstueck.5 <- matrix(c(714683.1250000,85796.2968750,
713383.1250000,86804.1718750,
712769.0625000,88124.4609375,
712979.0625000,90324.5078125,
711197.9375000,90662.2656250), ncol = 2, byrow = TRUE)
## Flusse
## ----------------------------------------------------------------------------
ch.fluesse.01 <- matrix(c(555534.3125000,138282.9531250,
557653.5625000,135307.5156250,
558657.3125000,131777.3906250,
561170.0000000,130763.9609375,
561245.5000000,127202.0468750,
563074.2500000,125764.1015625,
563956.6250000,123238.2500000,
565198.8750000,122012.6015625,
566296.0625000,119679.0468750,
568744.6250000,115064.6015625,
568824.1875000,112749.5703125,
569771.3750000,110046.0468750,
571439.3750000,107945.3984375,
575854.3125000,109591.3125000,
581806.3125000,113359.7031250,
585778.2500000,114697.2421875,
590401.3125000,117515.0859375,
595198.2500000,120944.8125000,
598035.2500000,120849.6484375,
601388.3125000,123391.6484375,
608797.9375000,126063.0859375,
610703.1875000,128289.8750000,
613877.0000000,129151.2109375,
617749.8125000,128261.5625000,
620418.2500000,128636.0000000,
629920.5625000,128497.2109375,
635000.1250000,127832.0781250,
640040.6250000,129138.7343750,
644123.8125000,130935.0625000,
648086.6250000,135440.5468750,
652575.1250000,137481.3750000,
667552.9375000,151171.5781250,
670126.4375000,154242.6250000,
670777.3750000,155761.0937500,
670349.3125000,156966.8593750,
672870.3125000,158434.4687500), ncol = 2, byrow = TRUE)
ch.fluesse.02 <- matrix(c(629781.1250000,168955.2031250,
631637.1875000,170927.1875000,
633973.6875000,171490.2031250), ncol = 2, byrow = TRUE)
ch.fluesse.03 <- matrix(c(646631.0625000,176767.4531250,
653585.0625000,177260.1562500,
656856.8750000,174992.3437500,
659061.1250000,174447.5625000,
661027.9375000,171432.9062500,
665907.0000000,166656.8906250,
666892.9375000,162019.7500000,
667809.1875000,160104.8281250), ncol = 2, byrow = TRUE)
ch.fluesse.04 <- matrix(c(689326.5000000,153279.3437500,
698041.9375000,151035.9062500,
702967.1875000,148779.3593750,
706199.4375000,146702.1093750,
708436.0625000,143307.6093750,
710128.3750000,139527.7031250,
713353.5625000,136636.1406250,
716687.5000000,134585.0312500,
718822.8750000,129268.6796875,
719590.4375000,128625.0468750,
720514.1875000,125641.4453125,
721540.3750000,122531.3281250,
722768.2500000,121547.3046875,
723295.4375000,118891.8046875,
720421.5000000,115106.2187500,
712625.3750000,113157.3593750,
709696.6250000,111801.4843750), ncol = 2, byrow = TRUE)
ch.fluesse.05 <- matrix(c(680618.5625000,159950.4218750,
682931.0000000,162154.5312500,
687629.5625000,165087.3906250,
687877.8125000,167824.5156250,
689113.0625000,173138.3906250,
691817.3750000,177520.7968750,
693742.7500000,180523.8125000,
693383.1250000,184707.2187500,
691664.6875000,186743.8906250,
689979.8750000,193119.3281250,
689469.0625000,194525.3281250), ncol = 2, byrow = TRUE)
ch.fluesse.06 <- matrix(c(500639.6250000,117781.0390625,
498136.2500000,117445.8984375,
496310.8125000,116555.5703125,
495534.1250000,116677.5156250,
495814.8437500,118384.2968750,
494484.9375000,117573.6796875,
493841.4687500,116818.6484375,
491142.5937500,117169.2109375,
491200.0000000,116215.3906250,
489467.1250000,114816.7734375,
487813.6250000,114818.2187500,
486143.3125000,111727.8828125,
486112.6875000,110633.5000000,
485289.7500000,110080.8046875), ncol = 2, byrow = TRUE)
ch.fluesse.07 <- matrix(c(726034.1875000,221444.6406250,
723467.1875000,221121.7812500,
717780.2500000,226846.5156250,
715922.5000000,230638.0000000,
713835.8750000,230738.2812500), ncol = 2, byrow = TRUE)
ch.fluesse.08 <- matrix(c(831875.1250000,203026.1718750,
831972.3125000,200089.6875000,
830709.5625000,196932.9062500,
827698.6250000,193905.5000000,
826963.0625000,191750.3281250,
824582.0000000,190283.6562500,
821634.4375000,187960.7187500,
820174.0625000,187619.9687500,
818439.9375000,186399.4687500,
814734.2500000,185190.9843750,
812552.5625000,184323.6718750,
810205.6875000,183429.7812500,
806836.5625000,183215.9687500,
804266.9375000,183262.0625000,
801915.0000000,181261.2656250,
801774.3125000,177685.1562500,
803173.3125000,175849.8593750,
801777.9375000,173473.8750000,
799001.0000000,170388.7187500,
796523.1875000,166351.3750000,
793916.8750000,164348.8281250,
790603.6875000,161552.6406250,
788756.2500000,158333.8750000,
786331.8750000,155760.0468750,
786016.5625000,153531.3750000,
782583.6250000,149665.6406250,
779707.4375000,146210.8437500,
775822.1250000,143385.2968750,
773446.6875000,141694.9218750), ncol = 2, byrow = TRUE)
ch.fluesse.09 <- matrix(c(568980.7500000,206124.2656250,
569329.0000000,209116.5468750,
572300.0000000,211719.5468750), ncol = 2, byrow = TRUE)
ch.fluesse.10 <- matrix(c(580018.2500000,212064.7812500,
581860.1250000,210576.0468750,
586758.0625000,210418.5937500,
587517.6250000,209100.5937500,
584958.1875000,205826.0625000,
586343.8750000,203042.3906250), ncol = 2, byrow = TRUE)
ch.fluesse.11 <- matrix(c(569352.1250000,203333.5000000,
571814.5000000,202025.5000000,
573542.0000000,202889.0937500,
575661.1250000,200717.5000000), ncol = 2, byrow = TRUE)
ch.fluesse.12 <- matrix(c(569095.6250000,196659.7968750,
567237.5000000,193148.4062500,
562917.8125000,189376.5937500,
561263.3750000,183814.2031250,
554408.8750000,172859.5937500,
550193.0000000,167761.7968750,
551918.3125000,165348.9062500,
552002.3750000,158186.2968750,
553030.6250000,157729.2031250,
559776.6250000,163088.5000000), ncol = 2, byrow = TRUE)
ch.fluesse.13 <- matrix(c(586343.8750000,203042.3906250,
586738.1875000,202250.3281250,
589943.8125000,201473.5312500,
595090.9375000,201282.8906250,
599983.8750000,202299.6093750,
600386.1875000,203299.4687500,
601161.1250000,204193.4843750,
601811.2500000,203215.6406250,
602075.9375000,202494.8437500,
601392.1250000,202042.0468750,
600555.1875000,201682.9218750,
601064.1250000,198105.6562500,
604940.3750000,196199.3125000,
607610.3125000,193066.7187500,
609968.0000000,183184.3281250,
615306.8125000,176967.1093750), ncol = 2, byrow = TRUE)
ch.fluesse.14 <- matrix(c(584115.8125000,219247.2187500,
587060.0000000,218270.7031250,
592304.3750000,221372.6875000,
595447.1875000,221203.2656250,
596691.8125000,223311.0312500,
599401.6875000,225059.8281250,
600779.2500000,226341.5000000,
603342.7500000,227173.2500000,
604009.6250000,228221.0781250,
605059.6250000,227210.4062500,
606609.5625000,227475.4375000,
612179.9375000,231253.9531250,
613987.5625000,231037.2656250,
616219.6875000,231981.2500000,
621356.0625000,230451.3437500,
623275.8750000,232411.0468750,
625623.3125000,233228.5937500,
627592.8125000,235354.0156250,
628208.5000000,234607.5781250,
630283.8750000,236135.7500000,
631800.1250000,239441.3281250,
633563.7500000,240076.7656250,
635219.1250000,243485.0781250,
636191.0625000,246405.2656250,
637127.0625000,245317.4687500,
639622.9375000,244901.9062500,
639878.3125000,246595.7968750,
641799.1875000,246558.0000000,
646693.6875000,250599.0937500,
651649.6250000,251256.2968750,
654479.5625000,252191.6562500,
654431.7500000,257267.7656250,
656948.3750000,259371.4843750,
660057.2500000,260435.9687500), ncol = 2, byrow = TRUE)
ch.fluesse.15 <- matrix(c(660057.2500000,260435.9687500,
659867.5000000,261622.9062500), ncol = 2, byrow = TRUE)
ch.fluesse.16 <- matrix(c(659867.5000000,261622.9062500,
662887.1250000,259539.2187500,
665852.3750000,259304.9687500,
665549.5625000,257101.8437500,
666201.8750000,256584.6250000,
667041.8750000,256501.3125000,
668927.2500000,254236.7343750,
672165.3750000,253164.6406250,
673404.0000000,250615.7812500,
675210.7500000,250526.3281250,
676082.4375000,251384.6875000,
678400.4375000,250929.7500000,
680326.8125000,250103.1718750,
682828.5625000,248835.2031250,
683299.5000000,246942.7031250), ncol = 2, byrow = TRUE)
ch.fluesse.17 <- matrix(c(660057.2500000,260435.9687500,
659824.6250000,259123.9062500,
659381.9375000,258764.6562500,
659765.8125000,256591.6406250,
661755.3125000,255829.1093750,
661312.0000000,253714.0781250,
663757.4375000,251389.7343750,
665627.8125000,249455.8750000,
665703.0625000,247764.2343750,
667296.6875000,247228.0156250,
668582.0625000,245277.4531250,
667701.8125000,243808.2968750,
670450.0625000,241842.2656250,
671079.8125000,239060.2343750,
672764.5000000,236387.1718750,
673751.8125000,233391.2968750,
672405.0000000,231346.4531250,
673118.6875000,227458.0781250,
673232.6875000,225690.3906250,
673928.6250000,222527.1093750,
671980.8125000,219091.3750000,
669720.0625000,218630.6406250,
668637.8750000,216931.1250000,
665969.8125000,214660.9687500,
664543.4375000,213073.6093750,
666257.0625000,211736.6562500), ncol = 2, byrow = TRUE)
ch.fluesse.18 <- matrix(c(708748.7500000,278669.9375000,
705137.3125000,280260.2812500,
704698.6875000,281160.6250000,
703411.5625000,281520.8125000,
701903.9375000,281383.7812500,
701903.9375000,281383.7812500,
699452.0000000,282538.4062500,
696761.3125000,283338.4687500,
695910.0625000,283068.8750000,
693836.0000000,283583.7187500,
692554.9375000,282410.1250000,
691854.7500000,282895.0625000,
690413.7500000,283175.2187500,
688976.9375000,283114.5625000,
689090.5625000,281385.0000000,
687740.3750000,280717.1250000,
687972.0625000,279726.1875000,
689425.1250000,278472.0312500,
688247.1250000,276853.8437500,
688247.1250000,276853.8437500,
687571.8125000,277309.4062500,
688511.6250000,277757.2500000,
687949.2500000,278747.1875000,
687025.0625000,277295.0000000,
687808.5625000,274525.9375000,
686809.1250000,272666.7187500,
685673.8125000,271488.7187500,
685266.2500000,269730.1562500,
684112.6875000,267330.3750000,
683068.1250000,269397.0937500,
679376.1875000,270596.9375000,
677766.6250000,270019.9687500,
674510.9375000,268852.9062500,
672155.2500000,270002.5625000,
671293.6875000,268868.4062500,
666269.3750000,269450.4062500,
665334.5625000,270467.3750000,
664649.5625000,271212.5625000,
664325.6875000,273347.4062500,
663225.6875000,273442.2812500,
662048.9375000,273543.7500000,
661614.9375000,274165.4062500,
660305.6875000,273996.0937500,
659227.0625000,273204.5312500), ncol = 2, byrow = TRUE)
ch.fluesse.19 <- matrix(c(659227.0625000,273204.5312500,
658854.7500000,274474.6875000,
656883.3125000,274646.5625000,
656883.3125000,274646.5625000,
655230.8125000,272803.8437500,
654436.7500000,271918.4062500,
653228.5000000,271990.9687500,
652214.9375000,270678.3750000,
652214.9375000,270678.3750000,
650092.1875000,270417.5312500,
649400.0625000,268601.4687500,
649044.4375000,267668.2500000,
646969.7500000,268373.7812500,
644643.1875000,267403.2187500,
643438.8125000,266900.8437500,
642521.6250000,267015.4062500,
641352.7500000,267161.4062500,
638527.9375000,267826.4687500,
637693.5000000,266120.3125000,
635453.5625000,266825.3437500,
635453.5625000,266825.3437500,
635547.9375000,269470.0000000,
635547.9375000,269470.0000000,
634348.4375000,270941.0312500,
634348.4375000,270941.0312500,
631792.8125000,270869.5937500,
630650.3125000,270154.1250000,
628817.8750000,270682.4062500,
628817.8750000,270682.4062500,
627921.0000000,268518.3750000,
626347.7500000,267267.5937500,
623235.8750000,265999.3750000,
621163.1250000,266043.8750000,
619539.0625000,264780.2187500,
619539.0625000,264780.2187500,
617529.6875000,264888.4375000,
616801.6250000,266030.4062500,
616373.6250000,266699.3125000,
615754.3125000,267667.1875000,
614419.8750000,267898.5625000,
612033.6875000,267169.8125000,
611098.7500000,268104.9062500,
610294.5000000,269379.3437500,
611802.3125000,271316.4062500), ncol = 2, byrow = TRUE)
ch.fluesse.20 <- matrix(c(659867.5000000,261622.9062500,
659272.9375000,265341.6875000,
659207.5625000,267440.5312500,
660881.7500000,268126.2500000,
661063.4375000,269450.6562500,
658678.8750000,272169.8437500,
659227.0625000,273204.5312500), ncol = 2, byrow = TRUE)
ch.fluesse.21 <- matrix(c(697874.5625000,167905.3750000,
700315.9375000,169855.9062500,
703986.7500000,170580.7031250,
706720.0625000,170777.4531250,
709018.0000000,173235.9375000,
712587.5000000,175741.2187500,
716473.7500000,176594.7187500,
719896.7500000,178221.1406250,
726232.1875000,179880.1406250,
729157.3750000,181757.6250000,
732310.8125000,181893.6406250,
735526.5000000,182220.9218750,
737975.0000000,183140.9375000,
740637.5000000,184367.7656250,
742188.1875000,184531.0000000,
742193.4375000,185612.5000000,
743986.3750000,185675.6093750,
747802.8750000,187419.2187500,
750558.6875000,187870.4218750), ncol = 2, byrow = TRUE)
ch.fluesse.22 <- matrix(c(750558.6875000,187870.4218750,
750559.8125000,187870.6093750,
756189.6875000,190402.6718750,
759272.1875000,193439.0312500,
760406.1875000,196843.7812500,
761426.7500000,200082.3593750,
760121.1875000,201269.4218750,
760582.1250000,204516.9062500,
757473.4375000,208948.7500000,
754402.6875000,213419.0000000,
754548.0625000,214476.0156250,
757588.6250000,216908.5781250,
757899.1875000,219528.4843750,
757270.5625000,222748.2500000,
756020.3125000,225445.7343750,
755642.6250000,226183.2812500,
755342.4375000,228941.1406250,
757906.2500000,235216.7187500,
758370.1875000,237570.0937500,
759600.1875000,238794.3906250,
760691.2500000,240988.0625000,
762614.7500000,243024.4843750,
763343.3125000,246217.7812500,
766661.4375000,250640.8437500,
766979.3750000,253496.1875000,
766314.8125000,256630.9843750,
768183.3125000,258653.9375000,
768032.8750000,263856.5937500), ncol = 2, byrow = TRUE)
ch.fluesse.23 <- matrix(c(734714.6250000,154275.7968750,
744832.0000000,157156.5625000,
747894.8750000,159353.0625000,
751657.5625000,159671.3281250,
752053.9375000,163058.3281250,
752306.8750000,165108.4375000,
753667.3125000,167026.1718750,
754371.8750000,171827.5156250,
753594.8125000,175689.9843750,
751672.3125000,181491.2656250,
750123.1250000,184801.3906250,
750558.6875000,187870.4218750), ncol = 2, byrow = TRUE)
ch.fluesse.24 <- matrix(c(586343.8750000,203042.3906250,
584434.8750000,200209.7031250,
585348.1250000,198774.7031250,
584358.0000000,195071.7968750,
581300.6250000,192437.5000000,
577773.3750000,188208.5000000,
579676.3750000,185833.7031250,
579109.0000000,184060.2968750,
578835.6250000,181681.0000000,
576550.1250000,181896.7968750,
575367.0000000,178556.7968750,
573932.3125000,178594.9062500,
575175.8750000,177502.7968750,
575034.0000000,174188.2031250,
573903.0000000,172854.7031250,
575704.8750000,171013.2968750,
573759.6250000,167279.5937500,
574784.8750000,162326.7968750,
573702.8750000,162655.5937500,
574021.3750000,159786.9062500,
571452.0000000,153233.9062500,
569048.3750000,147531.7031250,
570405.6250000,146076.7031250,
575535.8750000,145995.2031250,
582762.6250000,148535.2968750,
586406.8750000,148522.5937500,
588654.3750000,146707.7968750,
592512.8750000,138065.0937500,
591463.3750000,133753.0937500), ncol = 2, byrow = TRUE)
## Seen
## ----------------------------------------------------------------------------
ch.seen.01 <- matrix(c(728896.6875000,280946.6875000,
729384.1250000,281041.1562500,
730686.1875000,280675.5000000,
730951.2500000,279316.6250000,
735620.8750000,277236.4687500,
739972.7500000,275128.6562500,
746275.7500000,270426.0000000,
746368.2500000,268085.5937500,
750472.9375000,264932.8437500,
750289.9375000,263799.2500000,
752868.6250000,262442.7500000,
754992.8750000,260574.2500000,
758319.6875000,261398.4687500,
759591.3125000,263277.4062500,
760315.1250000,263447.7500000,
761673.0000000,262057.4687500,
763464.7500000,262298.7187500,
766071.8750000,264186.7500000,
765670.9375000,263306.1250000,
766531.2500000,262128.7656250,
768032.9375000,263856.5937500,
768539.5000000,262333.3125000,
769586.6875000,263561.8437500,
770624.9375000,264243.2187500,
773550.3750000,264250.4687500,
774036.4375000,265691.4687500,
771471.1250000,268803.8125000,
770032.6875000,268972.1562500,
768853.0000000,268506.0937500,
768449.6875000,269813.7812500,
766134.0000000,269925.2500000,
764955.6250000,271113.1250000,
763082.6875000,271583.8437500,
762385.4375000,273080.4062500,
759131.8750000,272714.6875000,
757301.1875000,274432.5312500,
756603.1250000,276056.3125000,
756082.1875000,277821.2500000,
755287.8125000,278655.5625000,
754300.7500000,279768.4375000,
752382.1875000,279475.4687500,
750035.9375000,280324.6250000,
748793.2500000,281613.9062500,
746200.5625000,281316.3125000,
745069.5000000,281181.3750000,
743980.1875000,280525.0937500,
741528.7500000,281869.7187500,
740739.8750000,281915.2187500,
737238.8125000,284232.4062500,
735217.2500000,285961.6562500,
734111.2500000,287722.5937500,
734050.8750000,289096.2500000,
729339.1250000,291748.6875000,
727605.1875000,292347.5625000,
726579.8750000,293472.9062500,
723794.8750000,295235.1562500,
721351.9375000,297203.2500000,
719696.9375000,297421.0000000,
718980.6875000,296156.5312500,
722283.2500000,293112.8437500,
725105.3125000,291503.5000000,
727113.9375000,289812.3437500,
728104.8125000,289984.5000000,
730100.2500000,288356.8437500,
731143.5000000,284636.1562500,
733292.6250000,282856.8437500,
733407.6250000,280936.4687500,
732901.1250000,280602.2500000,
730621.6250000,281006.5312500,
729169.1250000,281365.5937500,
728318.9375000,281079.9062500,
726868.5000000,281146.3750000,
725610.6250000,282791.7500000,
724121.5000000,282934.2812500,
723169.2500000,282686.0625000,
720514.5000000,284016.5625000,
720149.6250000,285273.6875000,
722471.3750000,284284.4062500,
723800.8750000,283313.7812500,
725427.2500000,283553.9062500,
724565.7500000,284909.3750000,
716612.3125000,289155.5000000,
715736.7500000,288856.9062500,
718129.8750000,286748.4687500,
713933.6875000,288412.0312500,
712212.0625000,287229.7812500,
716425.2500000,284930.2187500,
717677.8750000,284048.1250000,
715037.5000000,281447.4062500,
712327.1250000,279774.9375000,
709483.3125000,279004.8750000,
708069.6250000,279275.1562500,
708942.6250000,278097.8750000,
711914.2500000,278779.7187500,
714375.3125000,279712.5625000,
715830.1250000,280867.5312500,
719398.6250000,281667.9687500,
723723.5000000,281633.8125000,
724441.3125000,280824.4687500,
726705.3750000,280814.4687500,
727826.5000000,280554.9062500,
728728.6875000,280688.3125000,
728896.6875000,280946.6875000), ncol = 2, byrow = TRUE)
ch.seen.02 <- matrix(c(706022.1875000,227644.2343750,
703723.9375000,228913.5781250,
702818.2500000,229289.0937500,
703788.1250000,230669.7812500,
702672.9375000,230076.9218750,
702106.1875000,229258.7968750,
701100.1875000,229430.0625000,
698404.5625000,229309.8906250,
697277.6250000,228577.0156250,
695613.8125000,230066.9687500,
693424.3125000,232164.0468750,
691849.0000000,233730.9687500,
690790.9375000,234079.9843750,
687372.5000000,235481.6562500,
684440.1250000,240169.1406250,
683000.4375000,244205.2343750,
682958.3750000,246609.5781250,
683299.5000000,246942.7031250,
683430.8750000,246641.1093750,
683984.4375000,245369.7187500,
684763.8125000,244866.1250000,
686316.8750000,240996.2187500,
689783.1875000,236350.5312500,
696110.7500000,233620.0625000,
698079.1875000,232221.2343750,
701970.5000000,232336.8281250,
704284.1250000,232518.0000000,
703973.5000000,231447.1406250,
704294.3125000,231042.2031250,
706740.6250000,230435.4531250,
706672.6875000,231058.4218750,
707614.8750000,230924.8906250,
709132.1250000,230388.1406250,
712113.6250000,231489.9218750,
714058.5625000,231643.1250000,
713835.8750000,230738.2812500,
710666.1875000,229266.2656250,
709621.6875000,229488.1562500,
708096.7500000,229286.9218750,
707085.2500000,228414.8593750,
706022.1875000,227644.2343750), ncol = 2, byrow = TRUE)
ch.seen.03 <- matrix(c(727034.6875000,222074.8750000,
729414.1250000,221938.4375000,
734901.3125000,221187.0156250,
741220.8125000,221471.8437500,
741166.1875000,220173.7187500,
739885.3750000,219617.9062500,
738623.5000000,220003.7187500,
735295.0000000,219433.9375000,
731182.1875000,220080.2187500,
726774.8125000,221029.8281250,
727034.6875000,222074.8750000), ncol = 2, byrow = TRUE)
ch.seen.04 <- matrix(c(677652.5000000,225887.2968750,
678455.3750000,226400.2968750,
678994.9375000,225627.8906250,
680037.6250000,225673.1562500,
681673.1875000,224590.1406250,
680971.8125000,221162.8906250,
680068.2500000,219388.2343750,
680739.7500000,217929.6718750,
682331.6250000,215803.0781250,
682637.7500000,213833.1093750,
682212.0000000,212863.2500000,
681416.3125000,213888.4062500,
679281.9375000,215375.1562500,
677734.9375000,216535.1093750,
679605.5000000,218252.7343750,
679487.9375000,218697.2343750,
678303.8750000,218867.2968750,
677737.2500000,219881.2656250,
678324.5000000,221412.0156250,
677367.9375000,221787.1875000,
677638.6250000,223112.2187500,
676745.8125000,225308.0156250,
677364.1250000,225703.0781250,
677652.5000000,225887.2968750), ncol = 2, byrow = TRUE)
ch.seen.05 <- matrix(c(572300.0000000,211719.5468750,
574127.0000000,210548.7656250,
575190.0000000,209487.2968750,
578029.6875000,210855.2812500,
580018.2500000,212064.7968750,
582147.0625000,215069.2031250,
584528.8125000,220123.7187500,
583323.0000000,219759.2656250,
579798.0625000,216325.4687500,
575541.9375000,213777.3281250,
574925.4375000,212806.1718750,
572300.0000000,211719.5468750), ncol = 2, byrow = TRUE)
ch.seen.06 <- matrix(c(568943.1250000,196836.2812500,
569062.3750000,196150.0625000,
570710.8125000,195041.6718750,
573209.1250000,196114.7031250,
573395.4375000,196752.1250000,
574044.6250000,196680.2031250,
576723.6250000,199217.6093750,
575313.2500000,200849.2656250,
574375.0000000,200410.2812500,
571560.7500000,199055.1875000,
568943.1250000,196836.2812500), ncol = 2, byrow = TRUE)
ch.seen.07 <- matrix(c(666257.0625000,211736.6562500,
667743.8125000,211950.3593750,
670062.7500000,209523.3593750,
673133.5000000,212419.6875000,
674286.1250000,213114.5781250,
675939.5625000,214970.6718750,
675166.5625000,212713.4375000,
674958.6250000,211516.0781250,
672750.5000000,208943.7187500,
673159.0000000,208730.2031250,
675380.3750000,209381.4843750,
678057.1250000,208547.3125000,
679684.2500000,206840.8125000,
678942.1875000,205627.0625000,
680500.0625000,204747.0781250,
682455.5625000,205218.4375000,
683540.9375000,204602.4062500,
685304.0000000,205314.2031250,
687256.0625000,206294.4375000,
688560.2500000,205298.2187500,
689265.2500000,202669.3750000,
689983.3750000,199989.7343750,
689067.5000000,198151.3906250,
690094.1250000,196835.1875000,
690106.1250000,195092.2500000,
688766.1875000,193899.8750000,
688148.1250000,194989.8281250,
688184.6875000,197063.9218750,
686865.5000000,198378.1093750,
687782.3125000,201921.3437500,
688059.6875000,204111.5781250,
687533.1875000,204833.1875000,
685226.1250000,203697.8437500,
682779.0000000,202587.0000000,
681295.9375000,201851.6718750,
679284.8125000,202066.9687500,
677904.1875000,203075.3906250,
676723.9375000,202685.6718750,
675066.8125000,203208.7343750,
674410.6250000,204298.4375000,
676083.0625000,205238.6093750,
677810.0000000,205657.5156250,
676610.6250000,206209.1406250,
670873.3750000,206335.4375000,
668829.9375000,203853.2500000,
667405.8125000,203792.6562500,
666541.8750000,203646.8125000,
666912.1250000,205290.5937500,
666089.2500000,206570.0000000,
666848.7500000,207096.8281250,
667581.8750000,205931.3125000,
668607.6875000,206574.4531250,
668726.0625000,207847.5468750,
667804.7500000,210487.6406250,
666257.0625000,211736.6562500), ncol = 2, byrow = TRUE)
ch.seen.08 <- matrix(c(539383.8125000,182067.0000000,
538419.3750000,183587.1718750,
539444.1250000,184382.9843750,
539757.9375000,184570.7500000,
541724.1875000,185747.1562500,
544013.6875000,187582.1406250,
547542.0000000,190532.4687500,
549162.0625000,193533.4218750,
551662.4375000,196145.9375000,
553918.1875000,197344.5468750,
554596.6250000,198557.8437500,
556751.1875000,199679.4375000,
556990.6250000,201843.9687500,
558089.6250000,202945.6406250,
559434.0000000,203501.8750000,
563109.9375000,205333.6093750,
565694.3125000,206839.7968750,
566834.1250000,205702.5000000,
568980.8125000,206124.2656250,
570342.7500000,204136.0625000,
569572.8750000,203265.6562500,
568619.9375000,201274.3750000,
565150.2500000,199049.6562500,
564924.9375000,198526.4687500,
560422.2500000,194844.2968750,
557577.0625000,192445.7187500,
552712.5000000,187755.9531250,
550661.4375000,186380.6093750,
547844.0625000,183625.9843750,
546684.1250000,183987.0312500,
544698.4375000,184202.5156250,
540922.1250000,182166.5468750,
539383.8125000,182067.0000000), ncol = 2, byrow = TRUE)
ch.seen.09 <- matrix(c(633973.6875000,171490.2031250,
635251.0000000,172554.9218750,
637910.0625000,174290.6406250,
642385.6250000,178201.6406250,
643922.5000000,178517.4687500,
646304.1250000,178062.9531250,
646631.0625000,176767.4531250,
645397.1250000,176797.2187500,
642141.5625000,174866.5781250,
640370.6250000,173454.9843750,
638987.3750000,173000.2500000,
637838.5625000,171745.5625000,
636610.9375000,170859.3125000,
635097.3125000,170861.7343750,
633973.6875000,171490.2031250), ncol = 2, byrow = TRUE)
ch.seen.10 <- matrix(c(624285.3750000,167263.7656250,
621733.1875000,168467.7656250,
620200.4375000,169398.8125000,
620284.9375000,170060.9843750,
618672.8750000,171424.0781250,
617336.6250000,171529.4687500,
615500.1250000,174086.9843750,
614603.4375000,176841.7343750,
615306.8125000,176967.1093750,
618431.6875000,175035.7343750,
622610.7500000,172163.3906250,
623643.2500000,169994.8125000,
624597.4375000,169963.1562500,
627111.3125000,170616.4375000,
629781.1250000,168955.2031250,
629596.5625000,168050.6093750,
627966.0000000,168408.4687500,
626395.1875000,167481.7031250,
624285.3750000,167263.7656250), ncol = 2, byrow = TRUE)
ch.seen.11 <- matrix(c(500639.6250000,117781.0390625,
502514.7187500,118849.8281250,
504072.9375000,121595.8828125,
504333.6875000,124358.5468750,
507832.0625000,127957.5312500,
509018.9062500,131070.0234375,
510918.7812500,134072.8593750,
512853.7500000,135676.4218750,
516171.7500000,135928.0625000,
516963.6875000,133605.1562500,
519413.8125000,132438.6250000,
520798.3437500,134547.3437500,
525986.1250000,136631.1093750,
526597.6250000,138340.1562500,
529182.7500000,139731.8593750,
530958.5000000,138598.8906250,
538645.6875000,139758.1875000,
541659.5000000,139855.0781250,
545119.1875000,139840.5000000,
550218.5000000,138157.6562500,
554994.1875000,137299.6093750,
555534.3125000,138282.9531250,
559630.6250000,138183.6562500,
560739.8125000,139641.6406250,
559590.0000000,142216.5468750,
556934.2500000,143687.0312500,
555313.9375000,144413.9062500,
553177.5000000,146193.2812500,
548847.0625000,147054.3750000,
546238.7500000,149008.6406250,
544867.3125000,148693.9375000,
540449.8125000,151093.9062500,
537500.1875000,150921.1250000,
534323.3750000,152324.4375000,
532245.8125000,151114.3125000,
530565.8750000,151255.5468750,
528549.0000000,152297.7968750,
526189.4375000,149559.0000000,
523875.1875000,147622.0625000,
520452.4687500,145957.4687500,
518782.6562500,146480.4531250,
515581.8437500,145835.2031250,
512843.1562500,142737.5781250,
511628.6562500,141787.8125000,
511060.4687500,139341.1250000,
510240.0000000,138432.2031250,
509107.1562500,138551.7187500,
506507.2500000,135620.4375000,
505046.8750000,133434.8593750,
505000.6875000,132760.2187500,
504000.4062500,130259.7031250,
502703.1875000,128393.3125000,
502046.3125000,127739.9687500,
502086.5937500,125590.0703125,
500783.1875000,122782.1406250,
500622.5000000,120261.8984375,
500816.2500000,119830.6406250,
500710.2500000,118608.5156250,
500370.3437500,118097.2812500,
500639.6250000,117781.0390625), ncol = 2, byrow = TRUE)
ch.seen.12 <- matrix(c(713820.9375000,94742.6953125,
714108.0625000,93675.9296875,
713115.1875000,91951.5625000,
713497.3750000,90020.2812500,
713143.2500000,87893.1406250,
714449.1250000,86655.1953125,
716416.1875000,89136.8515625,
717158.0625000,90376.0312500,
717471.1875000,92922.7578125,
717412.7500000,94016.5312500,
716758.7500000,94788.1718750,
717146.6250000,95719.5937500,
718327.8750000,95956.6562500,
719148.0000000,95071.6406250,
721797.2500000,96387.4375000,
723466.0000000,97861.9609375,
728029.6875000,98223.8671875,
729572.8125000,99481.2265625,
730609.5000000,98546.8046875,
728384.2500000,96610.4687500,
723842.5000000,96757.6250000,
721818.5000000,95153.4609375,
719285.7500000,93545.8281250,
718304.8750000,90078.5000000,
718506.9375000,88438.6171875,
719408.5000000,86816.2265625,
719664.6250000,84731.4140625,
718976.8125000,84866.6796875,
718838.3750000,86494.2656250,
717134.7500000,88225.6953125,
715607.8125000,86472.2500000,
714114.5000000,85380.6171875,
713892.1250000,84424.8750000,
713037.6250000,84762.5781250,
713360.0625000,85960.7265625,
712564.1250000,87024.0312500,
712365.1875000,90050.7343750,
711244.9375000,90183.0468750,
711178.0625000,90653.3359375,
712217.9375000,91105.7343750,
712021.3125000,91956.8281250,
712946.0000000,92510.2187500,
712605.0625000,93983.7500000,
713820.9375000,94742.6953125), ncol = 2, byrow = TRUE)
ch.seen.13 <- matrix(c(705114.4375000,112266.4453125,
705541.5625000,113032.7343750,
705101.8750000,114085.7343750,
707525.1250000,114967.4140625,
708250.1250000,114972.3593750,
709696.5625000,111801.4843750,
706410.3125000,110634.0234375,
702149.5625000,106915.3203125,
700523.3750000,106649.7734375,
698950.6250000,104170.8046875,
700003.3750000,102753.0156250,
699974.6250000,99546.6328125,
701345.1875000,98156.4531250,
700982.7500000,95380.3828125,
698387.9375000,93556.0312500,
698356.0625000,92639.7656250,
694725.5625000,89752.3515625,
694758.3750000,88696.5781250,
693478.0625000,88064.4218750,
691418.8125000,86040.1640625,
691682.9375000,84629.7187500,
690259.7500000,84429.1718750,
689962.6875000,81399.0781250,
690958.2500000,79052.1250000,
691419.5625000,78559.0781250,
692010.8125000,75827.6796875,
691061.6875000,75121.4453125,
690427.8750000,72966.9453125,
688077.3125000,72607.3984375,
687727.5000000,69844.1406250,
688799.0625000,69393.4218750,
688626.7500000,68565.2578125,
690391.1875000,65396.5468750,
692231.2500000,64162.2500000,
689255.9375000,64014.7343750,
688848.6875000,65894.9531250,
687850.2500000,66804.1953125,
687343.0000000,68429.2812500,
685946.8125000,69844.7265625,
685317.3125000,72601.3125000,
686056.8750000,74171.2734375,
687640.7500000,75047.2265625,
688261.3125000,77277.9765625,
687129.1875000,80972.6328125,
683935.9375000,82922.9218750,
682329.7500000,85278.4375000,
680766.0625000,87010.8203125,
682423.2500000,88319.8593750,
685472.1250000,87017.4609375,
686817.4375000,85601.6562500,
688113.3750000,87646.1640625,
689063.3125000,88225.1718750,
691567.8750000,90239.7500000,
693956.5000000,94301.9296875,
695819.5000000,97113.6718750,
698393.1250000,98327.1718750,
698059.1875000,100640.4765625,
697086.8750000,103292.9453125,
696906.3750000,105492.7734375,
698603.6250000,108367.0000000,
700134.5625000,111380.0546875,
702532.5000000,112248.8437500,
704180.0000000,111280.4062500,
705114.4375000,112266.4453125), ncol = 2, byrow = TRUE)
## Schweizergrenze: Stadte
## ----------------------------------------------------------------------------
ch.stadt <- matrix(c(782783, 185993,
600000, 200000,
683263, 248036,
538413, 152838,
500532, 117325), ncol = 2, byrow = TRUE)
ch.stadt.name <- c("Davos", "Bern", "Zurich", "Lausanne", "Geneva")
## Plot
## ----------------------------------------------------------------------------
if (!add){
xlim <- c(480000, 840000) * scale
ylim <- c(58000, 300000) * scale
plot(ch.grenze.land.teilstueck.1 * scale, type = "n", xlim = xlim, ylim = ylim,
axes = axes, xlab = xlab, ylab = ylab, asp = 1, ...)
}
lines(ch.grenze.land.teilstueck.1 * scale)
lines(ch.grenze.land.teilstueck.2 * scale)
lines(ch.grenze.land.teilstueck.3 * scale)
lines(ch.grenze.land.teilstueck.4 * scale)
lines(ch.grenze.land.teilstueck.5 * scale)
lines(ch.grenze.land.teilstueck.6 * scale)
lines(ch.grenze.land.teilstueck.7 * scale)
lines(ch.grenze.land.teilstueck.8 * scale)
lines(ch.fluesse.01 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.02 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.03 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.04 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.05 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.06 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.07 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.08 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.09 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.10 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.11 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.12 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.13 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.14 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.15 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.16 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.17 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.18 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.19 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.20 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.21 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.22 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.23 * scale, col="darkblue", lwd=1.5)
lines(ch.fluesse.24 * scale, col="darkblue", lwd=1.5)
polygon(ch.seen.01 * scale, col="lightblue", border="blue")
polygon(ch.seen.02 * scale, col="lightblue", border="blue")
polygon(ch.seen.03 * scale, col="lightblue", border="blue")
polygon(ch.seen.04 * scale, col="lightblue", border="blue")
polygon(ch.seen.05 * scale, col="lightblue", border="blue")
polygon(ch.seen.06 * scale, col="lightblue", border="blue")
polygon(ch.seen.07 * scale, col="lightblue", border="blue")
polygon(ch.seen.08 * scale, col="lightblue", border="blue")
polygon(ch.seen.09 * scale, col="lightblue", border="blue")
polygon(ch.seen.10 * scale, col="lightblue", border="blue")
polygon(ch.seen.11 * scale, col="lightblue", border="blue")
polygon(ch.seen.12 * scale, col="lightblue", border="blue")
polygon(ch.seen.13 * scale, col="lightblue", border="blue")
if (city){
points(ch.stadt * scale, pch=16, cex=1.3)
text(ch.stadt[,1] * scale, ch.stadt[,2] * scale, ch.stadt.name,
font = 2, cex = 0.6, pos = c(rep(3, 4), 1))
}
}
Try the SpatialExtremes package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.