@Daniel Skoog  

How to add, and display to this application the option "summarize=embed" ? Thanks

How to add to this application the option summ

@Daniel Skoog  THANKS !

TESTXLMAPLE.xlsx

@Kitonum thanks

@Markiyan Hirnyk see attachement
 

Download MathAppssierpinski.mw

@Markiyan Hirnyk 

@mmcdara Thks !

Example_Anima.mw
See Example ( with geogebra).. Thanks

Download Example_Anima.mw

Hi, @Kitonum See Attachment file ( with Geogebra)

Thanks !

thank you @Kitonum . Its possible to have animation with distances? like AB/A'B' =AC/A'C'...?

Thanks

@vv  THKS !!

@Kitonum I try this code, but i have always problem
 

Download TestCylinderInscritSphere.mw
 

Download TestCylinderInscritSphere.mw
 

Download TestCylinderInscritSphere.mw

@Kitonum A alternativ way

use DocumentTools in 
# Enter Maple commands to be executed when the specified
# action is carried out on the component.
# Use: 
#    Do( %component_name );
# and
#    Do( %component_name = value );
# to set and get properties of the component.
# You can also use arbitrary expressions
# involving components, e.g.:
#    Do( %target = %input1 + 2*%input2 );
# Note the %-prefix to each component name.
# See ?CustomizingComponents for more information.
module ()
    local M;
    Do(M=%Slider0);
    Con1:=plottools[cone]([0,0,-4],sqrt((16-(M-4)^2)),M,transparency=0.5);
    Sph1:=plottools[sphere]([0,0,0],4,color=red,transparency=0.5);
    Do(%Plot0=plots[display]({Con1,Sph1},axes=none));
    
    end module
end use; 

@Kitonum THANKS ! 

thanks @Kitonum . How to transposed this procedure for building 2 components ( Slider( with h control)  and Plot ( cone inscribed in sphere )?

  @Kitonum  thanks, but i want a interactive plot with radius control

Thanks