I've written an optimization problem involving a cone, and I wanted to embed an interactive Geogebra graph so that the student can see the relationship between the independent variable and the volume of the cone. I have attached a screenshot of the error message that Geogebra produces within the WeBWorK problem. In the screenshot, you can see the expression (0,0,R/(2pi)*sqrt(4pi*t-t**2)), this is the vertex of the cone, and R-R*t*(2pi)^-1 is the radius of the cone. These are the only objects that were created in the 3D window.
It seems like 3D commands cause problems as I've never encountered this issue with 2D commands. I probably need to test a few other 3D commands to see if they work.
Has anyone encountered this problem?
(Edit: I'm not sure why my text isn't wrapping. Sorry about that.)
############## PG code below ############
# written by zach sharon 4/5/19
# based on Paul Pearson's problem at https://github.com/openwebwork/webwork-open-problem-library/blob/master/OpenProblemLibrary/FortLewis/Calc1/06-01-Antiderivatives-graphically/AF1/AF1.pghttps://github.com/openwebwork/webwork-open-problem-library/blob/master/OpenProblemLibrary/FortLewis/Calc1/06-01-Antiderivatives-graphically/AF1/AF1.pg
######### other resources used to make this problem
# http://webwork.maa.org/moodle/mod/forum/discuss.php?d=4041
# https://wiki.geogebra.org/en/Reference:GeoGebra_Apps_API
# http://dev.geogebra.org/examples/html/example-api-listeners.html
# http://webwork.maa.org/pod/pg_TRUNK/lib/Applet.html#methods_defined_for_the_javascript_applet_ww_applet_list_appletname_
#
##########################################
# Initialization
DOCUMENT();
loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"unionTables.pl",
"niceTables.pl",
"AppletObjects.pl",
"PGchoicemacros.pl",
"PGcourse.pl",
"parserImplicitPlane.pl",
"PGML.pl",
"PGbasicmacros.pl"
);
$showPartialCorrectAnswers = 1;
TEXT(beginproblem());
##########################################
# Setup
$r = random(3,8,1);
$ans = Compute("2*pi-sqrt(8/3)*pi");
######################################
# Create link to applet:
###################################
$appletName = "applet1";
$applet = GeogebraWebApplet(
code => "geogebra.GeoGebraApplet",
archive => "geogebra.jar",
codebase => findAppletCodebase("geogebra.jar"),
appletName => $appletName,
appletId => $appletName,
submitActionAlias => 'getAppletValues', # default actionAlias
initializeActionAlias => 'configure', # default actionAlias
setStateAlias => 'setXML',
getStateAlias => 'getXML',
setConfigAlias => '',
getConfigAlias => '',
returnFieldName => '',
width => 720, # may want to modify width, originally 640
height => 540, # may want to modify height, originally 480
# mayscript => "true",
debugMode => 0, # set debugMode to 0 for no debug
# to 1 to make xml representation visible
# to 2 to add alerts detailing progression
# through the applet
XonInit=> 'ggbOnInit',
type => 'geogebraweb',
#submitActionScript => qq{ getQE('answerBox').value = getAppletValues() },
submitActionScript => '',
selfLoading => 1,
params => GEOGEBRA_PARAMS(),# paste parameters in
);
##################################
# Setup GeogebraWebApplet --
###################################
###############################################
#
# For persistence of GeoGebra applet state
# when answers are submitted or page is refreshed.
# Uses JavaScript interface to GeoGebra.
HEADER_TEXT(
qq!
<script Xlanguage="javascript">
function ggbOnInit(param) {
if (param == "$appletName") {
applet_loaded(param,1); // report that applet is ready.
ww_applet_list[param].safe_applet_initialize(2);
}
}
</script>
<noscript>For this question to work properly,
you must enable JavaScript, or use another browser
(or computer) on which JavaScript works.</noscript>
!);
####################
# PNG picture of GeoGebra applet for hardcopy
#$im = image( "AF1.png", width=>520, height=>520, tex_size=>900 );
##########################################
# Main text
BEGIN_PGML
A circle with radius [`[$r]`] has a sector with angle [`\theta`] cut out. The two cut edges of the larger piece are then joined to form the lateral surface of a cone. What angle [`\theta`] maximizes the volume of the cone?
[`\theta=`][______________________________]{$ans}
END_PGML
Context()->texStrings;
BEGIN_TEXT
\{
$BCENTER.
MODES(HTML=>$applet->insertAll(debug=>0, reinitialize_button=>1, includeAnswerBox=>0,), TeX=>$im).
$ECENTER
\}
END_TEXT
Context()->normalStrings;
#########################################
# The applet as a base64 string
#########################################
sub GEOGEBRA_PARAMS {
my $result = {
showResetIcon=>"false" ,
enableRightClick=>"false" ,
enableLabelDrags=>"false",
showMenuBar=>"false" ,
showToolBar=>"false",
showAlgebraInput=>"false",
useBrowserForJS=>"true",
ggbbase64=>"UEsDBBQACAgIAE9uiE4AAAAAAAAAAAAAAAAWAAAAZ2VvZ2VicmFfamF2YXNjcmlwdC5qc0srzUsuyczPU0hPT/LP88zLLNHQVKiu5QIAUEsHCEXM3l0aAAAAGAAAAFBLAwQUAAgICABPbohOAAAAAAAAAAAAAAAAFwAAAGdlb2dlYnJhX2RlZmF1bHRzMmQueG1s7VrfU9s4EH6+/hUaPd09kNhOnKQMoUM7c3PMUHpzMJ17VeyNo0ORfJYMDn99Zcm/QhIanFACLQ9Yq0gr6dtP69XKJx+yOUO3kEgq+Bi7HQcj4IEIKY/GOFXToxH+cPruJAIRwSQhaCqSOVFj7Octq35a6vg905vE8RgHjEhJA4xiRlTeZYxDjFAm6TEXl2QOMiYBXAUzmJMLERBltMyUio+73bu7u045XkckUTeKVCeTWoGeK5djXBSOtbqlTnc909xzHLf77+cLq/6IcqkIDwAjvY4QpiRlSuoiMJgDV0gtYhjjWLBFJDhGjEyAjfHfpVz0GOOhg0/f/XbCKIcrtWCA1IwGNxyknpGPCzWOLfxFwxByPDESeqVULXR5OMLdXIOciTskJv9BoLWqJIVqUCOYNvrnT4KJBCW6o9/DSFvD19omZgjC4hnRpY7r2D+3/95x3YHr2d6MLCBBt4TlrU0NSZUIjEJTOyVMQtlWD/1ZhGB/6RftOZ0bqyCpIDYLkTFAaErVUrV1F4Yolb6TbgHrWoBz7JYQthU1xO4LQewYgJ0VfJ3DxXOa8iBXePmVJNXqeMpYA8+Bj9ug4Tn9DXgM/cMHpFrcpzS5bbKr13ecVnjsyo5a636x2H2nPLZdKVeNvaol9Ps0AfijgajbDs/h0ACaPzSinu+/0I5z14MaCJGEEmVjfEkuMVoUz3v7NE0MOlf0vhjSb9Yac9Qz3wwxo7JG+MIINbK9NdDaOW7DVf1eeMDWI/flndmT+foErI/cFnwOIQaux1JLpHZbkXowMsjnj4l9vG5O91txeg3MX5pBlI5QWoVAnm95nT9/Zp+xBt9z/g9EdClUdXu/UN4zysss7u8cR7xGbE0Ti6LM/+tznpjHDLLnhX6Tnx788tOb/bT7HZwlRLlUgXVVyhW+Xrv34MEepbYCd/ejp0gVy0c+5woSCeZIIleWdgMQX2tVX/h1QrjMUyTLZ4XHwsbGIfpi+QDtvcwB57XbDP7nS26Naq9GdZvvGEIEqawtYaXKFKM3ZwqSZpRRkixWR3q2Y+g2WQ6vXbSz+W3sHXCWIyGLx3x2u4TPAZPubfjsldzUQwrvHlAemN2eftLfjN6txkPU2/9rIdaJvTfnan8I69eE8yRRICnhj9tDQVYHjtdGaKQED9IYmxejTRTVkzu3UiMZZJczpRolTua6gx2E8o8kuIkSkfJwZQb7WfwBZOw2wxYInt/vlal2K1Ww9Q+SBC+ZaddBJo2AW1cmEcqc4rZ14dgVovuyJnOLmoVb1Ny7DTboBSQ0Q2dlv7Oy+ZlXFnploV8W/AaM7aJdY/BYO4hG+PHAD/fbnRhf0/3mT0OEHxAU8XQOScOJXJZyRSjfuhGtLy2zR+Xct3EbG9izmSuS0VATa0616Y60TeckM7YlEylYquAqSAB4/cGCJfcdDdUsP3sbhKc0y2lU3NXMRELvBVcVIijfHWfMfNywdDO4jlbe4zcjDRLv5swJj1i9S8+sVFvB5uxNo4eJvPXGaeLoFDAOOt6o5478njN0h+/90WBLWN1RE1b709ao7u367Bld0ZMcirfOoZAkqPOBPWfP5JgIwYDUR5ePpdy41FnZp5uCoe1t8IxRQDCD4GYisiVSPe389mdVUX9scZgfF5g1rjTdY8Km2/imqlt+t3X6DVBLBwhUIeOr5AQAAFkmAABQSwMEFAAICAgAT26ITgAAAAAAAAAAAAAAABcAAABnZW9nZWJyYV9kZWZhdWx0czNkLnhtbO2Y0U7bMBSGr8dTWL6njdMkEERAFbvYJECbuNmt65y23hI72C5teLW9w55pjhOXdEAFVYeERC+SY/scJ/7O+V23p+erskB3oDSXIsNkEGAEgsmci1mGF2Z6eIzPzw5OZyBnMFEUTaUqqclw3Hiu42xrEI9cNK2qDLOCas0ZRlVBTROS4RwjtNL8RMhrWoKuKIMbNoeSXkpGjZtlbkx1Mhwul8uBf95AqtlwNjODlbYT2HcVOsOdcWKn2whajpx7GARk+OPqsp3+kAttqGCAkV1HDlO6KIy2JhRQgjDI1BVkmK64HtlHFHQCRYbHTfMzRp1/hkckGOGzg0+nei6XSE5+ArO9Ri1gHeMaw8bHDl/IQiqkMmyRzNx14q60qObUWhaVcy1oDQrd0aIZdT10YSRz0a53SgsN3tc+50rm0I5Enb/gpQOItAHLnmCkK4DcWe3iApeI2uW0Px8XcGPqApCZc/ZLgLZw415QY3zheQ5NabQxcCvaEN1cM1xRZdNplEt2a4Nd9Z/fjfvpsIP8CLd9HQE93t9cewO4TeNOwNPUEQ9J6pi7+5p6vC/qTEqVa7RqU4nq7n7f3Ze9FE9po6buaQOyhX2wjf3zMJkUnPVgfhU2B9ryaoqCLdQdbBRyvBvXkDiuJCCOK0nDHlcStB8SpQEhCQnfaXXzGYg7S0QqbberoNsR68Cn1/esiE886XruO8PNY19Z8RUa+7ixdx+H3hh5I/JG3KuZLTLbritZ1HPIlRQPW5lic15CDlT0y2Bkc7QrpteXTls70ZErnea2rpyoq5w4TYIoifYm0F0L53m2twuau32uW+t33+5BteLYN6AkSpvPUULiYxKFZF+A/pc+guf10Q55CdTeuA/3JB00Trxx5I1jb6Rb5MXLquCMm1eL61uvq18GwZtpi8QjVzoxeXTEeD/Seoqs4rrc3LDIG25YSXuIaPWYJu+SqvvqZ1QZ0JyK3gHhohn493ibfBxvX1egtf1K5vlmib6d7t251i44bUs0fJ/CF2DW67xu7P4mGn9soq9hqRdqan9VPyX4bmgTb7TbUcXGPS35o5eyeZj4TSRPXir5Ye/fgaH/B+LsL1BLBwhJaPm6NgMAACMRAABQSwMEFAAICAgAT26ITgAAAAAAAAAAAAAAAAwAAABnZW9nZWJyYS54bWzlWllv4zgSfp75FYQeFulBYvMQdfQmPXAfwA7QM91IZhaLfZgBLTEON7KkluTEDvph/+H+pa0iJVmO4xztdGMWG8QmRRaLrPrqopLjH5fzjFzpqjZFfuKxEfWIzpMiNfnsxFs050eR9+Or749nupjpaaXIeVHNVXPiSaTs18HTSAq7WpXliZdkqq5N4pEyUw0uOfFSj5gUKHWSTAPBj1gi5JEvp+poypU4Smks+VTQOJCxR8iyNi/z4hc113WpEn2WXOi5el8kqrH7XTRN+XI8vr6+HnUnGxXVbDybTUfLGrYCqfL6xGs7L4HdxqJrYck5pWz8j5/fO/ZHJq8blSfaIyjxwrz6/rvja5OnxTW5NmlzAfqhFES80GZ2AToI8GGMVCUootRJY650DWsHj1boZl56lkzlOP+d65Gsl8cjqbkyqa5OPDrype+RojI6b9pp1m4z7hgcXxl97Thhz24Ci5qiyKYKmZDPnwmnnJJDbJhrODRB4KaoG6PCNdw1vmuko/Hdct+R+o7GdzS+APhNbaaZPvHOVVaD1kx+XgFi/XPdrDJtz9MOrAVmhyBTbW6AWKAWnZqtgg/xA6o99Dv1DoSMBkIyFOIzYXh62wiC52b2/Nj47WPgHkPbMNqORvgV4wPoJIhsZ0+ZxBfJxAa7NtXi3k3d/HrPfkdrNI/dke8lZ78nf5KUeyq325TJwaaSHtpf+9naUjxJztuq/ZIdgw0n/OYC+zQOn0VkHrNtZEPcVW7vGtI7I49rWdt+cygk45vHIoxICBiSsBjjIEYDTpgkPoxEMBISgWOS+UQQJGGC2GDn28ARwAxOwzcogTAMiiAYgagKQnKMo1ISCWQhrsWQFMSWH4UPUsOJ4CNwTAj42DHhwwcjqwRG0rGBc0gR2B5GMgn8JSqU2EERET+GjXBAhowIOAM8h5QAR4HsmZUDojf+MuICd0h4RIAfiI6cKd8j6vR4gLIeiADH4y5VHbdgkPoCqds9Gz2vER4Rk1CQgPc4BajGFqyQk1CSMBhAdoigBXKNG6IWbeAmo03wAhwMrSXAfqh3hyL3OyAPWyg/b0EJmvfXyocDIitGCBiLzR0dCnAK3uPAJULBIbuACXASoP3sgAQqpaI2vXYvdFb2OFg1mrxcNBuqS+Zp120KoFaZrYNa+rRILl/fUrZWddP1gQjKiXWd4sqLjTLmu+NMTXUGleAZWgIhVyrDqGb5nxd5Qzqv5J5lZ0umY71IMpMalf8dgO9qlV8W86muiO0WKKJlgstJV1vZDNaVVj6LHElSFFV6tqrBTsjyn7qCxZxFI0EZOFYc+LHgPpjyqpuKRzGNYhiLwyCKMAPUicrsIcNRHLKYx0EQCsl9iJSrHXNhez59daabBhRQE7XUdae7WWXSYf+n+nWRpT1eZWHy5o0qm0Vlq2jIlxVKNclnmbaqtBhDzZlcTovlmYu4geP166rE+sHtP529KbKiIuCCXEogaNupay0NHqynopaGWooWKGTaz4OIlsK2U9daKkDZHa0VlHVS0m4XUxP3vGFS1kKwfl3kpnnfPTQmuVwLivQO/06DmyzZM7E8Ht8yveNLXeU6w80Wta7FW2fB6yMkYMQmXxSL2s04AMftgo+quZjk6amegVt+VBgbG9jwNpNUJ2YOC914q0+FWP8GArjRVM8q3cnt/NRpu3UpUpeVVml9oXXT69yZ/pDMCtkJddwoCN42380NhI0jjtevuVrCIbAHLlO6Gx0uq5PKlGjKZApx/FKvzTU1NTJKB+Jv+rB4u8MRj+iI8hicDCru0IekxkLZuyJOShb5QSTDOI5oxODS4JGbflbEMZMBZJAgCBj4arB21ViMfHBGzvwYVnMGrrq03gOiWdlu2ifhjyDTRFDHw/UxCiAgPMJxW7m/3HO3/PR/wTsGLPmzscTrvR4ye3TYAvsqSzRHcLR1xWEZdQ8ut7QbVcW/MDEVOWms5ukdHo+Gij5dw1FaWtOgAB5Ri+aiqOxFG04MLRp5pudwx24Z5ou5rvCVRauOU3tjB8dbtO7XehJkLTglKaZ4nnXd7hatdQDzO6IyUVl5ofCij28T8AfMnDIWsC4WqxWmykGytdx/LtLuJO05Mnxj4Jy/93xgP62LbNHoswRCTr5+Z+LAbpMtuCz60RKvqthZYS2HnXOzHMQG0Jm5gSDZRzwL0cRFsKG46/zRXIDh5LrGJIIXgxYt2/mbSVOd9wKoHAKnxQmqDu1svacH01pZJ1xHpXGLGGK3hIBZ48unTvXvoL5ZQsA7OD0k9EXHyHq0q3Y24W4n+sVbwG74RqsOfYVvILbwDUMLMDatia8xpo/EdBjza8SFtbBYeG4G5mdPjkWDWyiHo1vJYq2xpJjPVZ6S3Jb4P+WYykBQb11cKnriLScQJOD47MRb2a4TdtF0BBPHt+X2gFonj1erv63WILJqxWbqmv212hn70UNq9b9IrW9MlWT6lk4nTp/vtnSZ3K9LiGSDeJTsZaK7QtATFXmnm8udXk6KUiWmAX2zsD0U1Pc6v4LjF1BJkSXtDJ12lt6NLFmH0oq1QzdsgBdEjsosyaSjn3RUEw4LXU+0TCd+x2siB1LrT7kTpnZ5Du8+5twk92P80Zr4JsTJFrZvnuInb56MLdhGalzohFUfukXkL1nzV7gZ020LYNxlYtt+cZjqCp515LZVJuQybyuIs7uC+NAZEZIgCoOYCSgC/TCKhWhjXgzXN8EDSnE2iOKvEAJP1epuR32zBeb5/WBWwKmH6s/gphsq3lblapfqb4Z77e3qoMAM0e9zDdjL9kXrUusSi+kP+a+Vymv8Y9HmDWs3grYsv4XhO4chQsnvgrK5H0p7b1uXc15/l7ttV7dKw0DEAYvDCC4iVHD5YKF4f+ZzZsDoviXjh/PzWjc271nU2X3l5JMA53cBrqpk7ZRiy/22a7bXXc1GoWY7JAenZEwODjj5gfzn3y9eQFN/qpqDgwPfjcB384Ickeb3A/4Cfh5X5InUW++3Tz3yVco8eqvMo6MgFIH0JQvAJdE7oWZ/IPTtm6vePiVXvd3W4R13oF06fJ4s1L2Ueq4sFHHmc0njOIqiILRvBpGbDKlggU8jKnwK418hCbmC8czWQ7uykY1k29WjfkT1WKpqjZzeKzUxKSxykj3bPfb/oqg08zIzcN5nzYlgv6q0lm+Hf6t1iv+ZQd4rYKsycraozlWiyaTS6gEDLPId95XXzvBOIeAeQGS2sfeHQXj+/eCIQQy+bZbpH8KtT//gjgOO3GuqnxYqrUySmblp9Dpa47p94jVnsbXYuA3YQ5P1W5OVcUD9wJdPDDyLpcmMqla7K5U7nFEMReOPF01+S9Ge6Izf0v0gIPsBi2IZs4hJGclbzviwL5buJX61fcW70yA3ouef1xq/FmS0g2wbMTfFu6muc8MHYN4XCIeqHw/f2No/I7b/0fXqv1BLBwi7diEyEwoAAJ0mAABQSwECFAAUAAgICABPbohORczeXRoAAAAYAAAAFgAAAAAAAAAAAAAAAAAAAAAAZ2VvZ2VicmFfamF2YXNjcmlwdC5qc1BLAQIUABQACAgIAE9uiE5UIeOr5AQAAFkmAAAXAAAAAAAAAAAAAAAAAF4AAABnZW9nZWJyYV9kZWZhdWx0czJkLnhtbFBLAQIUABQACAgIAE9uiE5JaPm6NgMAACMRAAAXAAAAAAAAAAAAAAAAAIcFAABnZW9nZWJyYV9kZWZhdWx0czNkLnhtbFBLAQIUABQACAgIAE9uiE67diEyEwoAAJ0mAAAMAAAAAAAAAAAAAAAAAAIJAABnZW9nZWJyYS54bWxQSwUGAAAAAAQABAAIAQAATxMAAAAA"
};
$result;
}
COMMENT('Uses GeoGebraWeb (JavaScript) so it should work on computers and tablets. Uses MO and is NOT randomized. Does not use a JS listener. Uses a blank geogebra applet just to show an interactive diagram.');
ENDDOCUMENT();
