Simplificar puntos

-- En el primer caso hay 5 peajes en las posiciones 1,4,5,7,10
-- Niveles: El array de prueba (amarillo), T_Estatica_carreters(morado), V_carreteras(azul)
(
  (
    Cont=>10,
    Ctras=>(
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>7.0,
      Trazado=>(
        Num => 10,
        Ptos => (
          (5.372,2.209),
          (5.372,2.209),
          (6.352,3.425),
          (8.329,3.291),
          (8.329,3.291),
          (8.329,3.291),
          (8.329,4.292),
          (8.329,4.292),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 6,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (5.372,2.209),
          (8.329,4.292),
          (9.281,2.390),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 7,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (7.283,3.209),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>4.0,
      Trazado=>(
        Num => 6,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          (7.283,3.209),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>7.0,
      Trazado=>(
        Num => 8,
        Ptos => (
          (5.372,2.209),
          (5.372,2.209),
          (5.372,2.209),
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (-9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 8,
        Ptos => (
          (5.372,2.209),
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          (9.281,2.390),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>7.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.352,3.291),
          (8.329,3.291),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 6,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (6.332,2.209),
          (5.372,2.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>4.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,3.425),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      others=>(
        Codigo=>(others=>'z'),
        Inicio=>(others=>'z'),
        Final=>(others=>'z'),
        Peaje_km=>42.0,
        Trazado=>(Num => 0,Ptos => (others=>(100.0,100.0)))
      )
    )
  ),
  (
    Cont=>8,
    Ctras=>(
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>7.0,
      Trazado=>(
        Num => 6,
        Ptos => (
          (5.372,2.209),
          (6.352,3.425),
          (8.329,3.291),
          (8.329,4.292),
          (9.281,2.390),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 4,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>7.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,3.425),
          (-9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (9.281,2.390),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.352,3.425),
          (5.372,2.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (5.372,2.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>0.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      (Codigo=>(others=>'z'),
      Inicio=>(others=>'z'),
      Final=>(others=>'z'),
      Peaje_km=>4.0,
      Trazado=>(
        Num => 5,
        Ptos => (
          (5.372,2.209),
          (6.332,3.425),
          (7.283,3.209),
          (8.329,4.292),
          (9.281,2.390),
          others=>(100.0,100.0)
        )
      )),
      others=>(
        Codigo=>(others=>'z'),
        Inicio=>(others=>'z'),
        Final=>(others=>'z'),
        Peaje_km=>42.0,
        Trazado=>(Num => 0,Ptos => (others=>(100.0,100.0)))
      )
    )
  )
);