R/swiss.R

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 May 2, 2019, 5:45 p.m.