Test Page

Welcome to a static HTML page serving an interactive notebook!

The content was directly exported from WLJS Notebook using export feature HTML Embeddable

Static plots

Some example with 2D/3D graphics

ContourPlot[(*SpB[*)Power[x(*|*),(*|*)2](*]SpB*) - (*SpB[*)Power[y(*|*),(*|*)2](*]SpB*) == (*SpB[*)Power[x(*|*),(*|*)3](*]SpB*), {x, -2, 2}, {y, -2, 2}] (*VB[*)(FrontEndRef["89767da0-eace-4302-8e41-cafefd63f942"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKW1iam5mnJBropiYmp+qaGBsY6VqkmhjqJiempaalmBmnWZoYAQCJTBYN"*)(*]VB*) VectorPlot3D[{x, y, z}, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}] (*VB[*)(FrontEndRef["3a869d84-3a10-4098-a8b3-9c85bf9bd48a"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGydamFmmWJjoGicaGuiaGFha6CZaJBnrWiZbmCalWSalmFgkAgB6QxWD"*)(*]VB*)

Try to rotate it!

Interactive example

Here is a basic Manipulate function

Manipulate[ Series[Sin[x], {x,0,n}], {n,1,10,1}, ContinuousAction->True ] (*VB[*)(FrontEndRef["e9738495-4b30-4da3-a61e-d106b2f4b28c"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKp1qaG1uYWJrqmiQZG+iapCQa6yaaGabqphgamCUZpZkkGVkkAwB7CRVv"*)(*]VB*)