Sine curve (RESOLVED)

Hi,

I don't suppose any one has a programme that could draw me a sine curve from 0 degrees to 90 degrees starting at 3cm from the fulcrum please??? It is just a one off item I need and although I can work out the figures, I am having great difficulty in marking out the template. I need to make a cam of that shape.

What exactly is the fulcrum of a sine curve?

Hi,

I have probably used the wrong terms.

I can make the calculations arithmetically, so I will probably have to construct a graph based on those calculations.

The X axis will be the size of the angle and the Y axis will plot the sine of that angle multiplied by 30 mm

I had hoped that someone in a mathematics discipline had a programme which would do that.

Thanks for your response & my apologies for my confusion.

This should get you started:

VB Code:

'Place a picturebox called p1 on a form
Option Explicit
Const Pi = 3.141593
Const nP = 2    'Number of periods to be plotted
Private Sub Form_Click()
    PlotSine
End Sub
Private Sub PlotSine()
    Dim x As Single, angle As Single, dx As Single
 
    p1.Scale (-nP * Pi, 1)-(nP * Pi, -1)
    dx = 2 * nP * Pi / 500
    p1.CurrentX = -nP * Pi
    p1.CurrentY = 0
    For x = -nP * 180 To nP * 180 Step dx
        angle = x * Pi / 180
        p1.Line -(x, Sin(x))
    Next
End Sub

Hi,

Many thanks.

I'm trying it shortly.

I'm assuming that you need the 30mm to be exact when printed? If you want this then you'll need to use PCL, and possible, a fixed coordinate system (one that maps, by a known and fixed ratio, pixels to DPI)

Hi krtxmrtx,

That's it!!!!! Many thanks (For anyone else looking, the code is VB6)