Cfxtrjtrk

I am trying to plot a titled(7% to right side) sine wave type line whose length is 400 units and height of the wave is 90 units.
I want the equation to be in the cartesian coordinates.
kindly help me to resolve this problem.

y = a * Sin [(x-h)/b] + k

I have tried this simple equation of sine wave to plot the following points and this plotnis symmetrical. Now my target is to shift or tilt the peak little bit towards the right side.

a=1;h=0;b=1;k=0; (* or whatever you wanted *)

tiltPercent = .07; (* or whatever percent *)

y = (a * Sin[(x-h)/b] + k) - (tiltPercent*x)

Plot[y, {x,0,10}] (* or whatever range *)

Unless I'm misunderstanding the question (very possible) this is not a plotting question, but a question on how to mathematically decrease the Sin function linearly. Let me know if this helps, or I'm way off what you were looking for!

Standard sine wave height 90 and period 400.

y == 90 Sin[(2 π x)/400]

You want a 7% tilt which I assume means the offset is 0 at y = 0, so the offset should be proportional to the Abs[y]

Tilted equation.

y == 90 Sin[(2 π (x - .07 Abs[y]))/400]

We have a transcendental equation, so use FindRoot.

Table[{x, y /. FindRoot[ y == 90 Sin[(2 π (x - .07 Abs[y]))/400], {y, Sin[x]}]}, {x, 0, 400, 10}];



p1 = ListPlot[%];

Compare with unaltered sine wave.

p2 = Plot[90 Sin[(2 [Pi] x)/400], {x, 0, 400}];



Show[p1, p2]

If you meant the tilt to be to the left for negative y's, use y instead of Abs[y].