nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Trying to avoid Transposition

SpannerHead

I have a script that works but applies transposition for that to happen. Wondering if there's a less clunky way to achieve the goal? I have 3 columns, one contains a quadratic coefficient(a), the second contains a linear coefficient(b), and the third contains a constant(c). When multiplied by an input variable x, I get an arc. Is there a way to form that arc without transposing the data to do so? Presently, I create columns with incremental changes in x in a transposed table but the data is very digital and there may be a better approach.

ax² + bx + c = 0

Accepted answers

mmarchandFSLR

Something like this should work. I added a column called "X Limit" and put a couple numbers in there.

Names Default To Here( 1 );

dt = Current Data Table();

nw = New Window( "window", gb = Graph Box( X Scale( 0, 120 ), Y Scale( 0, 35000 ) ) );
For Each Row(
	dt,
	Eval(
		Eval Expr(
			gb[FrameBox( 1 )] << Add Graphics Script(
				Y Function(
					Expr( dt[Row(), "HL_HR1_R"] ) + Expr( dt[Row(), "HL_HR2_R"] ) * x + Expr( dt[Row(), "HL_HR3_R"] ) * Power( x, 2 ),
					x,
					Max( Expr( dt[Row(), "X Limit"] ) )
				)
			)
		)
	)
);

All comments

txnelson

Take a look at the Y Function

SpannerHead

Jim

Thanks for this, don't seem to be able to find a decipherable example of that. I did suspect there was a better way to do this. Incidentally, the upper limit of X is stored in a column also.

jthi

Pull values from your table to the example found from Scripting Index. Evaluate the values to the the Y Function for example with Eval(EvalExpr())

Names Default To Here(1);
New Window("Example",
	Graph Box(
		Pen Color("red");
		Y Function(20 + 40 * Sin(a / 30), a);
	)
);

Optionally you can create formula column and use Profiler

SpannerHead

Tried this but I need to raise x to the power 2 and that seems to be where it fails.

Names Default To Here(1);

dt = Current Data Table();

nw = New Window("window", vlb = V List Box());
For Each Row(dt,
	Eval(EvalExpr(
		vlb << Append(Graph Box(Y Function(Expr(dt[Row(), "HL_HR1_R"]) + Expr(dt[Row(), "HL_HR2_R"]) * x + Expr(dt[Row(), "HL_HR3_R"]) * Power (x, 2) ,x)));
	))
);