Mathematica vector plot over curved stripe

Job ID: 37513599

Budget: $10 – $30 USD

I have this Mathematica code for vector plotings over curved lines, wich i would like to improvein order to get the same fields over in a rectangular profile. Can you help me?