970970_es-ES

liliconcom

Personalizar el creador de gráficos: el círculo no se alinea con las coordenadas.

Estimados,

Intento dibujar un círculo en Graph Builder a través de la opción "Personalizar gráfico".

y observe que el círculo no se alinea con los puntos de datos.

¿Cómo puedo mejorarlo para que el círculo quede exactamente en la misma posición del lienzo que los puntos de datos?

¿Por qué parece funcionar para y, pero no para x? ¿Hay otras maneras de lograrlo?

Gracias y un cordial saludo, Georg

Georg_0-1789394255151.pngGeorg_0-1789394255151.pngGeorg_0-1789394255151.png

New Table( "Circle Data",
	Add Rows( 72 ),
	Compress File When Saved( 1 ),
	New Script(
		"y coord vs. x coord", JSL Quote(Graph Builder(show control panel(0),
	Size( 540, 540 ),
	Variables( X( :x coord ), Y( :y coord ) ),
	Elements( Points( X, Y, Legend( 4 ) ), Smoother( X, Y, Legend( 5 ) ) ),
	SendToReport(
		Dispatch( {}, "Graph Builder", FrameBox,
			{Add Graphics Script( 2, Description( "" ), Circle( {0, 0}, 1 ) )}
		)
	)
);
)	,
		As String( 1 )
	),
	New Column( "Degree", Numeric, "Continuous", Formula( Row() * 5 ), Set Display Width( 74 ) ),
	New Column( "x coord", Numeric, "Continuous", Formula( Cosine( :Degree * (Pi() / 180) ) ), Set Selected, Set Display Width( 123 ) ),
	New Column( "y coord", Numeric, "Continuous", Formula( Sine( :Degree * (Pi() / 180) ) ), Set Display Width( 123 ) )
);

Re: Personalizar el Generador de gráficos: el círculo no se alinea con las coordenadas

¿Cómo dibujar un círculo? se explica aproximadamente a tres cuartas partes del texto; quizás quieras usar la opción Tamaño/Escala->Ajustar a isométrico .

Re: Personalizar el Generador de gráficos: el círculo no se alinea con las coordenadas

El tamaño a isométrico debería solucionar esto.

Names Default To Here(1);

dt = New Table( "Circle Data",
	Add Rows( 72 ),
	Compress File When Saved( 1 ),
	New Script(
		"y coord vs. x coord", JSL Quote(Graph Builder(show control panel(0),
	Size( 540, 540 ),
	Variables( X( :x coord ), Y( :y coord ) ),
	Elements( Points( X, Y, Legend( 4 ) ), Smoother( X, Y, Legend( 5 ) ) ),
	SendToReport(
		Dispatch( {}, "Graph Builder", FrameBox,
			{Add Graphics Script( 2, Description( "" ), Circle( {0, 0}, 1 ) )}
		)
	)
);
)	,
		As String( 1 )
	),
	New Column( "Degree", Numeric, "Continuous", Formula( Row() * 5 ), Set Display Width( 74 ) ),
	New Column( "x coord", Numeric, "Continuous", Formula( Cosine( :Degree * (Pi() / 180) ) ), Set Selected, Set Display Width( 123 ) ),
	New Column( "y coord", Numeric, "Continuous", Formula( Sine( :Degree * (Pi() / 180) ) ), Set Display Width( 123 ) )
);

gb = dt << Run Script("y coord vs. x coord");

framebox = Report(gb)[FrameBox(1)];
framebox << Size To Isometric;