https://community.wolfram.com RSS Feed for Wolfram Community showing any discussions tagged with Computable Document Format sorted by active. https://community.wolfram.com/groups/-/m/t/3605573 I have a book, "Computer Simulations with Mathematica", Gaylord & Wellin, 1995. It has a CD with text chapters in it. I downloaded the contents of the disk. But when I read a chapter into a notebook, the contents consist entirely of code for running the notebook, which I tried. This generates a typically opaque MMA error message - Syntax::sntxf: "" cannot be followed by "(* Content-type: application/mathematica *)\012\012(*** Wolfram Notebook File \". The statement is the first line in the document. However, it is NOT preceded by the double quotes, "". When I open the document with CDF (As suggested in a chat yesterday.), all I see is the same notebook commands I get when I open it in an executable form. Is CDF the right tool to use? I tried MathReader that came on the CD, as the authors suggest, but it wouldn't run. I get a message telling me that it won't run on my computer. Is there a version of MathReader that will work? I'm running MMA 14.3 on Win 11 pro 64 bit. Mark Harder 2026-01-13T04:11:26Z https://community.wolfram.com/groups/-/m/t/3532726 I have sensitive security machine parameters in my calculation input cells. I'd like to hide input cells and permanently lock them so that other users cannot open or see my input cells. I want that other users can use slide bars and numeric input window in Manipulate [ ] function but I have to hide and lock the details of calculations to protect the security machine parameters. I know that we can hide Input Cells using the following code, but other users can still open it by double clicking the right cell bracket or editing the notebook. CreatePalette[ Column[{Button[ "Hide code", {NotebookFind[SelectedNotebook[], "Output", All, CellStyle]; FrontEndExecute[ FrontEndToken[SelectedNotebook[], "SelectionCloseUnselectedCells"]]}], Button["Show code", NotebookFind[SelectedNotebook[], "Input", All, CellStyle]]}]] How can I create, hide, lock, and distribute my notebook without revealing the details of calculations? Yeonjoon Park 2025-08-18T20:47:24Z https://community.wolfram.com/groups/-/m/t/2557611 I am projecting 2d triangles into a 3d space (aligning short side with z axis). both the notebook version and the cdf preview work fine but the player gives a different rendering. ![enter image description here][1] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2022-06-25at9.49.02am.png&userId=2555853 This is the module for the transformation: TRIV[Long_, Short_, Mid_] := Module[{mastu = Long, mast0 = Short, mastb = Mid}, T = SSSTriangle[mastu, mast0, mastb]; Tang = PolygonAngle[T][[1]]; rT = RotationTransform[(Pi/2) - Tang, {0, 0`}]; Triangle[PolygonCoordinates[rT[T]] /. {x1_, x2_} -> {x1, 0, x2}]] Then the manipulate environment: Manipulate[ fore = TRIV[tr, short, br]; Graphics3D[{fore, Purple, Line[{{0, 0, -1.2}, {0, 0, z}}], Text[Style["z", Italic, 16], {.2, .2, z + .2}], }], Grid[{{Control@{{tr, 1.695}, InputField, ImageSize -> Small}, Control@{{short, .5}, InputField, ImageSize -> Small}}, {Control@{{br, 1.32}, InputField, ImageSize -> Small}, Control@{{z, 2}, InputField, ImageSize -> Small}}, {Control@{{y, 1.5}, InputField, ImageSize -> Small}, Control@{{x, 2}, InputField, ImageSize -> Small}}}], SaveDefinitions -> True, Initialization :> TRIV[1.695, .5, 1.32]] I can't work out what I'm getting wrong? Andrew W 2022-06-25T00:07:09Z https://community.wolfram.com/groups/-/m/t/313447 *WOLFRAM MATERIALS for the ARTICLE:* > Jim Arlow, Interactive Computational Geometry: A Taxonomic Approach. > [Clear View Training][1] > [Wolfram Notebook Archive][2] > [Amazon][3] ![enter image description here][4] Hello community, I have just published a new book in CDF format called "Interactive Computational Geometry". Ed Pegg of Wolfram suggested I notify the community. The book comprises text, plus 53 interactive Demonstrations of a selection of some of the most fundamental computational geometry algorithms. Note: The book is written for Mathematica 10, but will work OK in Player 9 (until Player 10 is released). There are 3 demonstrations that are Mathematica 10 specific that don't work in Player 9. These are simple demos of Mathematica 10 features, and don't really detract from the rest of the book. Full book is embedded below. &[Wolfram Notebook][5] [1]: https://www.clearviewtraining.com/interactive-computational.html [2]: https://notebookarchive.org/interactive-computational-geometry-second-edition--2019-01-8aukd4r/ [3]: https://www.amazon.com/Interactive-Computational-Geometry-Taxonomic-Approach-ebook/dp/B089S4LJ46 [4]: /c/portal/getImageAttachment?filename=ScreenShot2014-08-18at1.16.47PM.png&userId=11733 [5]: https://www.wolframcloud.com/obj/cbcf01c5-7960-4a03-9a26-94099822d379 Jim Arlow 2014-08-06T17:25:44Z https://community.wolfram.com/groups/-/m/t/2391187 I have a Prueba.nb file that works fine within Mathematica 12.3.1. I convert it to a Prueba.CFD file and the test that numbers are entered in the InputField box when running in Wolfram Player 12.3.1 stops working. Within the project that I develop, in other circumstances, Wolfram Player does not behave in the same way as in Mathematica. Any ideas? Gracias Ernesto Espinosa 2021-10-23T16:21:08Z https://community.wolfram.com/groups/-/m/t/2340693 &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/02949580-d371-4bdb-add5-b7ed5feab1eb Paul Abbott 2021-08-13T06:28:55Z https://community.wolfram.com/groups/-/m/t/2322400 Does anyone know of any (worthwhile) examples of iOS apps created for Wolfram Player? I've played around with it a little, enough to discover that, with the exception of textbook apps, most CDF-apps are virtually unusable, at least on my iPhone. The screen is fixed in portrait mode, the app GUI typically doesn't scale to the screen resolution and operating any more than a single control is very challenging. That's been my experience with it, at least. A notebook template specifically designed for creating smartphone/tablet apps might be helpful. But perhaps one simply has to shelve the idea of using the Wolfram platform for app development, at least until the functionality improves. Does anyone on the community have experience/ideas/examples they could share? Jonathan Kinlay 2021-07-19T08:40:42Z https://community.wolfram.com/groups/-/m/t/2193335 I want my iPad to run a NB deployed in the cloud in which the major functionality is a Graph with Nodes and Edges, each which should display tooltips. The tooltips are active running the NB on a desktop. One portion of the NB displays a Dataset, which is active and functional under Wolfram Player in that I can control which rows of the Dataset are displayed. (The Dataset contains the data which is used to generate the Nodes, Edges and Tooltips for the Graph). The Wolfram Player for the Mac works perfectly -- the tooltips function properly. (Even better, Wolfram Player for the Mac installs and performs perfectly on my MacBook Air M1, Apple's Silicon system -- functioning under Rosetta 2). The Graphs are rendered correctly, but neither use of my finger nor an Apple Pencil touching the screen brings up a tooltip for any of the Nodes or Edges. Is there a more appropriate WL process which will give me similar functionality when executed from the Cloud using Wolfram Player on the iPad? Lawrence Winkler 2021-02-13T21:01:04Z https://community.wolfram.com/groups/-/m/t/2184011 1. Can a Manipulate[] object be inserted into a Microsoft Word document. If so what export formats will work? Which is (are) best? 2. Same question for an Adobe Reader document. 3. Is there a trick to make animations that are fluid in a Mathematica notebook appear more fluid when viewed on Wolfram Cloud through a browser instead of skipping most of the frames? 4. Can I update a notebook published to the cloud so that the old link opens the revised notebook? Jay Gourley 2021-02-03T18:33:40Z https://community.wolfram.com/groups/-/m/t/2146403 I am trying to understand what the requirements are for a notebook to run successfully on the Wolfram Player on my iPad. The program runs fine in Mathematica 12 on my desktop, but won't do anything in Player. I have followed all the requirements I know about, such as avoiding requiring user keyboard entry and not having any file requests. I have also tried initializing the code outside the Manipulate function. I have attached a test file that runs fine in Mathematica. I would appreciate it if someone can tell me what changes need to be made to the file to get it to run in Player. If anyone knows of a document that spells out the specific programming requirements to get a notebook file to run in Player, please publish a link to the document.&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/a423a3c9-17f4-46ea-aff4-baa5cef5b294 Mike Luntz 2020-12-23T21:06:19Z https://community.wolfram.com/groups/-/m/t/2132648 Hello everyone, I'm creating a series of student exams using a loop, CreateDocument, NotebookWrite, and CDFDeploy. Here is a code fragment (without exam questions) for creating one exam. It works well. nb = CreateDocument[]; NotebookWrite[nb, Cell["EXAM", "Title"]]; NotebookWrite[nb, Cell["More Here", "Chapter"]]; NotebookWrite[nb, Cell["", "Chapter"]]; NotebookWrite[nb, Cell[DateString[{"DayName", ", ", "MonthName", " ", "Day", ", ", "Year", " ", "Hour12Short", ":", "Minute", " ", "AMPM"}], "Text"]]; NotebookWrite[nb, Cell["INSTRUCTIONS", "Text"]]; NotebookWrite[nb, Cell["", "Text"]]; (*Exam questions to go here*) NotebookWrite[nb, Cell[BoxData[ToBoxes[Array[a, {5, 6}]]], "Print"], After] CDFDeploy["/myPath/Prototype Exam.cdf", nb] NotebookClose[nb]; I need advice on styling the CDFs. The CDF file that is produced by CreateDocument and CDFDeploy uses the default stylesheet. (1) How can I make the CDF adopt the cell styling or stylesheet of the notebook that I am using to create the CDFs? I know I can wrap each output cell in Style but that is a pain. (2) How can I set an option in the CDF so that all output is displayed in TraditionalForm? The default output is standardForm. (3) Is there some way to disable the Print menu item and Print button that appears in the CDF when opened in Wolfram Player? I posted this last question some time ago, and the response was that there isn't, but I am asking again just in case the most recent version of Mathematica includes that capability. Regards, Greg Gregory Lypny 2020-12-08T16:34:29Z https://community.wolfram.com/groups/-/m/t/529439 I have recently published the [Mathematica Toolbox][1], a WordPress plugin for website owners who sometimes write about Mathematica. I hope that someone here will find it useful. For details please see the WordPress plugin page. Here is a quick rundown: - Syntax highlighting for the Wolfram Language. - Automated embedding of CDFs. - Automated replacement of glyphs such \\[Alpha] that appear in code copied from Mathematica. - Various utility shortcodes: generate links to the documentation, reference users on Mathematica.Stackexchange.com, and more. [1]: https://wordpress.org/plugins/mathematica-toolbox/ Calle E 2015-07-12T14:20:02Z https://community.wolfram.com/groups/-/m/t/2050267 Hi, I am very new to Mathematica and am helping a friend with his invention. The notebook below was created with Mathematica 12 Home Edition on Windows 10. I am trying to share it with my friend by sending him the cdf and asking him to load it in the Player. Unfortunately the Manipulate function at the end only displays an empty plot with an x and y axis when I open it in the Player myself. What am I doing wrong? Thank you, Christoph Wagner &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/e84b0a44-cd93-4482-a34f-2593580c292c Christoph Wagner 2020-08-03T18:51:49Z https://community.wolfram.com/groups/-/m/t/2065757 Can CDFs be opened on a Chromebook? Frederick Adkins 2020-08-27T03:23:53Z https://community.wolfram.com/groups/-/m/t/1197947 [![enter image description here][1]][2] We are [**excited to announce**][2] the release of Wolfram Player for iOS! Now you can harness the power of the Computable Document Format (CDF) anytime, anywhere. Wolfram Player syncs up with other apps on your mobile device—allowing you to access documents from any source—including from the Wolfram Cloud, iTunes, Dropbox and more! One of the biggest features of this app is the ability to sideload documents into Wolfram Player from other applications. Additionally, Demonstrations and other Manipulate figures look and feel a lot more like what we envision them to be. The intuitive tactile interface offered by Wolfram Player gives a true hands-on approach to interactive modeling in a way that's never been done before. When integrated with the Wolfram Cloud app, you can seamlessly move between designing notebooks and pulling them down for testing, thereby paving the way for increased collaboration and efficiency for a variety of projects. [**Check it out for yourself**][3]. [![enter image description here][4]][3] [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=player_image.jpg&userId=515558 [2]: http://blog.wolfram.com/2017/10/04/notebooks-in-your-pocket-wolfram-player-for-ios-is-now-shipping/ [3]: https://itunes.apple.com/us/app/wolfram-player/id1059014516 [4]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Wolfram_Notebooks_Timeline2.png&userId=11733 Jesse Dohmann 2017-10-04T16:21:05Z https://community.wolfram.com/groups/-/m/t/1984945 I created my first presenter notebook for testing purposes and then both saved it and exported it as cdf. When I re-open the nb file, the Presenter menu on top is not functional, whereas this works without problems with the cdf. To re-open the nb file correctly, i.e. with a working menu, I have to take the following workaround: 1. Open Mathematica (I am using 12.0) 2. File New Notebook 3. File New Presenter Notebook 4. Create 4. Open file (to re-open my nb presenter file) Now my presenter notebook will be opened correctly. I have attached two screenshots: the incorrect opened presenter file and the correct opened after my 4 steps of the workaround. There is no error message by Mathematica. [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PresenterNotebooknotproperlyopened.JPG&userId=1118470 Volker Trimkowski 2020-05-25T18:21:27Z https://community.wolfram.com/groups/-/m/t/1972104 I tried following the steps for embedding cdf content in html page but it does not work. Please help. Here is the exact code: <html> <body> Hi <script type="text/javascript" src="http://www.wolfram.com/cdf-player/plugin/v2.1/cdfplugin.js"></script> <script type="text/javascript"> var cdf = new cdfplugin(); cdf.setDefaultContent('<a href="http://www.wolfram.com/cdf-player/"><img src="manipulatesine.png"></a>'); cdf.embed('manipulatesine.cdf', 439, 346); </script> </body> </html> Radhika Prasad 2020-05-12T11:35:14Z https://community.wolfram.com/groups/-/m/t/1920768 I created a slide show containing Manipulate cells. Each time I quit and relaunch Mathematica I have to evaluate the notebook before I use it, which is not a problem. I have saved the slide show as a CDF and when my students open the file they have the same problem. What shows up in the output cells is part of the input, some of it highlighted in pink. Can I share slide shows with people who only have Wolfram Player? Stephen Perencevich 2020-04-04T16:21:43Z https://community.wolfram.com/groups/-/m/t/1921192 I have created a slideshow with several manipulate cells. They work beautifully, but I would like for others to see them. Is there a way to share this show with my students who do not have Mathematica so that they can manipulate the sliders, say using the Player? I tried converting the notebook to a CDF document, but that failed. I am doing that "remote teaching" thing and I'd like to get them as much in the way of resources as I can. Any help would be appreciated. Stephen Perencevich 2020-04-05T11:23:27Z https://community.wolfram.com/groups/-/m/t/1378454 Abstract -------- **Goal of the project** In order to verify if the set of guidelines of a notebook submission are respected, we create a test framework code for the computational essay. The main specification is to read in notebook and generate a feedback report. The screening of article is the first check in the editorial process. Typically this control verifies that all elements of the submission are well presented: author information, code length, sections composed of text,code text and code, references. We want to implement a feedback report as the author upload the submission and a report for the editor on a set of notebooks. A preliminary test is made on a randomly selected notebook from a directory. ![Web Notebook Report][1] **Summary of the results** - Identify the set of guidelines. - Match between submission and required guidelines. - Immediate warnings for author upload. ---------- Read in Notebook Template and Generate Feedback Report ====================================================== Get file and divide by cells ---------------------------- A preliminary test is made on a randomly selected notebook from a directory. testFile = RandomChoice@ FileNames[___, FileNameJoin[{NotebookDirectory[], "essay-submissions", "ComputationalEssays", "ComputationalEssays"}]] A second test is made on all the files of the directory, useful for the editor who has to check a list of notebook multiple submissions and generate a status report. allFiles = FileNames[___, FileNameJoin[{NotebookDirectory[], "essay-submissions", "ComputationalEssays", "ComputationalEssays"}]]; cells = NotebookImport[testFile, _ -> "Cell"]; The notebook template has identifying cells, listed below: cells[[All, 2]] **Test for functions** We implement three functions corresponding to the tests: - The author contact information, the corresponding author, is present at the bottom of the notebook submission. - The code cells shouldn't be too big and they should be divided in multiple code cells. - Each code cell should be presenter with a single grey line of TextCode. ---------- Author Information ------------------ The first check of the report is about the Author Section. If the author doesn't add his contact email or change the author contact information this will be reported as an error. authorSection = Position[cells, Cell["Author contact information", "Section", ___]] hasOnlyOneAuthorSectionQ[authorSection_] := Length@authorSection === 1 If[ hasOnlyOneAuthorSectionQ[authorSection], 1, issueError["Cannot find just one AuthorInfo cell"] ] Metric on Line Code ------------------- The second check is evaluating the length of the Code cells. Each code cell is of Input/Output type, once they are identified, they are converted as images. For each image of code it has been considered only the height and it has been compared to a reference height of 75 pixels. An error is given for each image of code cell has his size greater than the reference measure. Select the cell with the code: input/output type. NotebookImport[testFile, "Input" | "Output", "FlattenCellGroups" -> False] Take all code cells and transform them as images. cellObj = SelectionMove[EvaluationCell[], Previous, Cell]; cellExpr = NotebookRead@EvaluationNotebook[]; Rasterize@cellExpr ImageDimensions@Rasterize@cellExpr Then take their dimensions. cellHeights = Last@*ImageDimensions@*Rasterize /@ Cases[cells, Cell[___, "Input", ___]] Count the number of cells of code for which the height of the image is bigger than 75. numberOfBigPictures = Count[cellHeights/75., _?(# >= 1 &)] Give a warning with the number of code cells exceeding the reference height. If[numberOfBigPictures >= 1, issueError[ numberOfBigPictures " code cells are exceeding the suggested size"]] Warning on Text Before Each Line of Code ---------------------------------------- Each code cell should be introduced with a single line of text code explaining each segment. Cell codes are identifies as triplets code text input and output. n = Length[ SequenceCases[ cells[[All, 2]], {Except["CodeText" | "Input" | "Output"], "Input"}]] Every time there is no code text before input a warning is given. If[n > 0, ReportPrint[ "You have " <> ToString[n] <> " cases of Input cell (your code) without descriptive grey text.", "WARNING"]]; Notebook Report --------------- A notebook is analysed and the checks are implemented, the resulting report is shown as a grid on the web submission page. - **quickParse** is the notebook reader . quickParse[notebook_] := Module[ {cells, testHasAuthor, codeCellTooBig, TextCodeNotFound}, cells = NotebookImport[notebook, _ -> "Cell"]]; - **testHasAuthor** checks if the author contact information has been modified. testHasAuthor[notebook_] := Module[ {cells, section}, cells = NotebookImport[notebook, _ -> "Cell"]; section = Position[cells, Cell["Author contact information", "Section", ___]]; Which[ Length @ section === 0, "No author specified", Length @ section > 1, "Multiple authors specifieds", True, None ] ]; - **codeCellTooBig** transforms each input cell in an image and it checks whether it exceeds a reference height. codeCellTooBig[notebook_] := Module[ {cells, selection}, cells = NotebookImport[notebook, "Code" | "Input" -> "Cell"]; selection = Select[ Map[ImageDimensions@Rasterize[#] &, cells], Last[#] > 75 & ]; If[ Length[selection] > 0, TemplateApply["`` cells are too big", Length[selection]], None ] ]; - **TextCodeNotFound** checks if the text code is present before the input cell. TextCodeNotFound[notebook_] := Module[ {n, cells}, cells = NotebookImport[notebook, _ -> "Cell"]; n = Length[ SequenceCases[ cells[[All, 2]], {Except["CodeText" | "Input" | "Output"], "Input"}]]; If[n > 0, TemplateApply[ "You have " <> ToString[n] <> " code cells without the single line of text code."], None ] ]; - **AllTests** implements the checks all together. AllTests = { <|"Test" -> testHasAuthor, "Title" -> "Author check"|>, <|"Test" -> codeCellTooBig, "Title" -> "Code cell check"|>, <|"Test" -> TextCodeNotFound, "Title" -> "TextCode cell check"|> }; - **notebookReport** results in a table with the check answers. notebookReport[notebook_List] := Column[Map[notebookReport, notebook]] notebookReport[notebook_String] := Module[ {tests, titles, results}, tests = Map[#Test[notebook] &, AllTests]; titles = AllTests[[All, "Title"]]; results = Join @@ Replace[ Transpose[{titles, tests}], { {title_, result_String} :> {{title, result}}, {title_, {result_String}} :> {{title, result}}, {title_, {result_String, results__String}} :> Join[{{title, result}}, Map[{SpanFromAbove, #} &, {results}]], {title_, None} :> {{title, Style["OK", Green]}} }, {1} ]; Labeled[ If[ Length[results] > 0, Grid[results, Alignment -> Left, Frame -> All ], Style["No error found :)", Blue] ], FileBaseName[notebook], Top ] ] Deploy to the web ----------------- The test report is showed after the notebook submission. CloudDeploy[ FormPage[{"submission" -> Restricted["CachedFile", "NB"]}, Rasterize@notebookReport@#submission &], "/publish", Permissions -> "Public"] Code Repository --------------- https://github.com/vivlet/Summer2018Starter Future Directions ----------------- - Implement future specifications required by the author's guidelines. - Automatic check of references as Crossed Check References http://www.ithenticate.com/. - Automatic check of data repository, https://datarepository.wolframcloud.com/, https://resources.wolframcloud.com/NeuralNetRepository/ - Automatic check of software repository, es. GitHub. - Integration of keywords and reviewers database. References ---------- http : // blog.stephenwolfram.com/2017/11/what - is - a - computational - essay/ Keywords -------- - Notebook Feedback Report - Notebook Testing framework Other information ----------------- - Publishing notebook - Authoring notebook [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=SubmissionsCheck.PNG&userId=1362937 Viviana Letizia 2018-07-11T14:53:00Z