Skip to content

Converting UPRM problems to pgml and plots.pl #1454

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
pstaabp wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Converting UPRM problems to pgml and plots.pl #1454

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
157 changes: 75 additions & 82 deletions Contrib/UPRM/Prebasica/coordenadas_cartesianas/Hallar_Coordenadas_de_un_Punto.pg
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,100 +1,93 @@
# DESCRIPTION
#

# Tipo: respuesta corta
# Problema que pregunta por la coordenadas
# de un punto en el plano cartesiano dada
# Problema que pregunta por la coordenadas
# de un punto en el plano cartesiano dada
# su representacion gráfica.
#
# Problema WebWork escrito por Edwin Florez,

# Problema WebWork escrito por Edwin Florez,
# <edwin.florez (at) upr (dot) edu>
#

# Adaptado desde el sistema quiz.uprm.edu del archivo
# pedro_prebasica/coordenadas_cartesianas/Hallar_Coordenadas_de_un_Punto.db
#

# ENDDESCRIPTION

## DBsubject(Prebasica)
## DBchapter(Plano cartesiano)
## DBsection(Representacion de puntos)
## Level(1)
## KEYWORDS('grafica', 'puntos','plano','coordenadas')
## Author(Edwin Florez)
## DBsubject(Algebra)
## DBchapter(Cartesian coordinate system)
## DBsection(Plotting points)
## Institution(UPRM)
## Author(Edwin Florez)
## Level(1)
## Language(es)
## KEYWORDS('grafica', 'puntos','plano','coordenadas')

DOCUMENT();

loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"PGgraphmacros.pl",
"AnswerFormatHelp.pl"
);
loadMacros('PGstandard.pl', 'PGML.pl', 'plots.pl', 'PGcourse.pl');

TEXT(beginproblem());
Context("Point");
$a = random(-9, 9);
$b = random(-9, 9);
$p = Point($a, $b);

$refreshCachedImages=1;
@direccion = (
"unidad(es) a la derecha del",
"unidad(es) a la izquierda del",
"unidad(es) arriba del",
"unidad(es) debajo del",
"sobre el eje"
);

Context("Point");
$a = random(-9,9,1);
$b = random(-9,9,1);
$p = Point($a,$b);

@direccion = ("unidad(es) a la derecha del","unidad(es) a la izquierda del","unidad(es) arriba del","unidad(es) debajo del",,"sobre el eje");

if ($a == 0 || $b == 0){
$indexX = 4;
$indexY = 4;
}elsif($a*$b > 0){
if ($a > 0){
$indexX = 0;
$indexY = 2;
}else{
$indexX = 1;
$indexY = 3;
}
}else{
if ($a > 0){
$indexX = 0;
$indexY = 3;
}else{
$indexX = 1;
$indexY = 2;
}
if ($a == 0 || $b == 0) {
$indexX = 4;
$indexY = 4;
} elsif ($a * $b > 0) {
if ($a > 0) {
$indexX = 0;
$indexY = 2;
} else {
$indexX = 1;
$indexY = 3;
}
} else {
if ($a > 0) {
$indexX = 0;
$indexY = 3;
} else {
$indexX = 1;
$indexY = 2;
}
}

$gr = init_graph(-10,-10,10,10,axes=>[0,0],grid=>[10,10],size=>[450,450]);

# adicionando un punto
$gr->stamps( closed_circle($a,$b,'blue') );

# adicionandole una etiqueta al punto
$gr->lb(new Label($a+0.1,$b+.6,'(a,b)','black','center','middle'));

BEGIN_TEXT
$BCENTER
\{ image(insertGraph($gr),width=>200,height=>200,tex_size=>450 ) \}
$BR
$BR
(Click en la gráfica para agrandar)
$ECENTER
$BR
¿Cuáles son las coordenadas del punto \((a,b)\) mostrado en la gráfica anterior?
$BR
$BR
\((a,b)=\) \{ans_rule(30)\} \{ AnswerFormatHelp("points") \}
END_TEXT

ANS( $p->cmp());

Context()->texStrings;
SOLUTION(EV3(<<'END_SOLUTION'));
$BBOLD Identificar la ubicación del punto$EBOLD:
$PAR
El punto se encuentra \(\{abs($a)\}\) $direccion[$indexX] eje \(y\) y \(\{abs($b)\}\) $direccion[$indexY] eje \(x\).
$PAR
Por lo tanto las coordenadas del punto son: \($p\).
END_SOLUTION
Context()->normalStrings;

ENDDOCUMENT();
$plot = Plot(
xmin => -10,
xmax => 10,
ymin => -10,
ymax => 10
);

$plot->add_point($a, $b, color => 'blue');
$plot->add_label($a, $b, '(a,b)', v_align => 'bottom');

BEGIN_PGML
>> [!!]{$plot}{300} <<

>>(Click en la gráfica para agrandar)<<

¿Cuáles son las coordenadas del punto [`(a,b)`] mostrado en la gráfica anterior?

[`(a,b)=`] [_]{$p}

[@ helpLink('points') @]*
END_PGML

BEGIN_PGML_SOLUTION
*Identificar la ubicación del punto*:

El punto se encuentra [`[@ abs($a) @]*`] [$direccion[$indexX]] eje [`y`] y [`[@ abs($b) @]*`] [$direccion[$indexY]] eje [`x`].

Por lo tanto las coordenadas del punto son: [`[$p]`].
END_PGML_SOLUTION

ENDDOCUMENT();
145 changes: 71 additions & 74 deletions Contrib/UPRM/Prebasica/coordenadas_cartesianas/Punto_Medio_A.pg
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,99 +1,96 @@
# DESCRIPTION
#

# Tipo: respuesta corta
# Problema que pregunta por la coordenadas x o y
# del punto medio del segmento representado
# del punto medio del segmento representado
# en el plano cartesiano por dos puntos dados
#
# Problema WebWork escrito por Edwin Florez,

# Problema WebWork escrito por Edwin Florez,
# <edwin.florez (at) upr (dot) edu>
#

# Adaptado desde el sistema quiz.uprm.edu del archivo
# pedro_prebasica/coordenadas_cartesianas/Punto_Medio.db
#

# ENDDESCRIPTION

## DBsubject(Prebasica)
## DBchapter(Plano cartesiano)
## DBsection(Punto medio)
## Level(1)
## KEYWORDS('grafica', 'puntos','plano','coordenadas','segmento', 'punto medio')
## Author(Edwin Florez)
## DBsubject(Algebra)
## DBchapter(Cartesian coordinate system)
## DBsection(Plotting points)
## Institution(UPRM)
## Author(Edwin Florez)
## Level(1)
## Language(es)
## KEYWORDS('grafica', 'puntos','plano','coordenadas','segmento', 'punto medio')

DOCUMENT();

loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"PGgraphmacros.pl",
"AnswerFormatHelp.pl"
);
loadMacros('PGstandard.pl', 'PGML.pl', 'plots.pl', 'PGcourse.pl');

TEXT(beginproblem());

$refreshCachedImages=1;

@eje = ("\(x\)", "\(y\)");
$index = random(0,1,1);
@eje = ("x", "y");
$index = random(0, 1);

Context("Point");
$A = Point(random(-9,9,1),random(-9,9,1));
$B = Point(random(-9,9,1),random(-9,9,1));
$Pm = ($A+$B)/2;
$A = Point(random(-9, 9), random(-9, 9));
$B = Point(random(-9, 9), random(-9, 9));
$Pm = ($A + $B) / 2;

#Extrayendo coordenadas de A, B y Pm
($aA, $bA) = $A->value;
($aB, $bB) = $B->value;
($Xm, $Ym) = $Pm->value;

if ($index==0){
$answer = $Xm;
}else{
$answer = $Ym;
if ($index == 0) {
$answer = $Xm;
} else {
$answer = $Ym;
}

$gr = init_graph(-10,-10,10,10,axes=>[0,0],grid=>[10,10],size=>[450,450]);

# adicionando los dos puntos
$gr->stamps( closed_circle($aA, $bA, 'blue') );
$gr->stamps( closed_circle($aB, $bB, 'red') );

# adicionandole etiquetas a los puntos
$gr->lb(new Label($aA+0.1,$bA+.6,'A','blue','center','middle'));
$gr->lb(new Label($aB+0.1,$bB+.6,'B','red','center','middle'));

Context()->texStrings;
BEGIN_TEXT
$BCENTER
\{ image(insertGraph($gr),width=>200,height=>200,tex_size=>450 ) \}
$BR
$BR
(Click en la gráfica para agrandar)
$ECENTER
$BR
Encuentre la coordenada $eje[$index] del punto medio del segmento de recta que une los puntos \(A\) y \(B\) mostrados en la gráfica anterior.
$BR
$BR
$eje[$index] = \{ans_rule(30)\} \{ AnswerFormatHelp("numbers") \}
END_TEXT
Context()->normalStrings;

ANS( $answer->cmp() );

Context()->texStrings;
SOLUTION(EV3(<<'END_SOLUTION'));
$BBOLD Paso 1:$EBOLD Identificar los puntos: \(A = $A\) y \(B = $B\).
$PAR
$BBOLD Paso 2:$EBOLD Calcular el promedio de \(x\) y \(y\).
$PAR
\(\phantom{blablabla}\) el promedio de \(x\) es: \(\frac{$aA+$aB}{2}=$Xm\)
$PAR
\(\phantom{blablabla}\) el promedio de \(y\) es: \(\frac{$bA+$bB}{2}=$Ym\)
$PAR
Por lo tanto el valor de la coordenada de $eje[$index] es: $answer.
END_SOLUTION
Context()->normalStrings;

ENDDOCUMENT();
$plot = Plot(
xmin => -10,
xmax => 10,
ymin => -10,
ymax => 10
);

$plot->add_point([ $aA, $bA, color => 'blue' ], [ $aB, $bB, color => 'red' ],);

$plot->add_label(
[
$aA, $bA, 'A',
h_align => 'left',
v_align => 'bottom',
color => 'blue'
],
[
$aB, $bB, 'B',
h_align => 'left',
v_align => 'bottom',
color => 'red'
],
);

BEGIN_PGML
>> [!!]{$plot}{300} <<

>>(Click en la gráfica para agrandar)<<

Encuentre la coordenada [`[$eje[$index]]`] del punto medio del segmento de recta que une los puntos [`A`] y [`B`] mostrados en la gráfica anterior.

[`[$eje[$index]]`] = [_]{$answer}

[@ helpLink('numbers') @]*
END_PGML

BEGIN_PGML_SOLUTION
*Paso 1:* Identificar los puntos: [`A = [$A]`] y [`B = [$B]`].

*Paso 2:* Calcular el promedio de [`x`] y [`y`].

[`\phantom{blablabla}`] el promedio de [`x`] es: [`\frac{[$aA]+[$aB]}{2}=[$Xm]`]

[`\phantom{blablabla}`] el promedio de [`y`] es: [`\frac{[$bA]+[$bB]}{2}=[$Ym]`]

Por lo tanto el valor de la coordenada de [$eje[$index]] es: [$answer].
END_PGML_SOLUTION

ENDDOCUMENT();
Loading