Perlin noise not working

Hello all
I’ve been developing a Perlin noise, it works, like half


It does 1 axis does anyone know the basic algorithm and what I could have done