| ClearAll[csub]; | |
| csub[expr_Hold, rules_List, limitCount_] := | |
| With[{newrule = | |
| Replace[If[# =!= {} && #[[-1, -1]] > 1, #[[-1, 1]], {}] &@ | |
| SortBy[Tally[ | |
| Cases[expr, | |
| x_ /; Depth[Unevaluated[x]] > 2 && | |
| LeafCount[Unevaluated[x]] > limitCount :> Hold[x], | |
| Infinity]], Last], | |
| Hold[x_] :> (HoldPattern[x] -> Unique[])]}, |
| ClearAll[openerDress]; | |
| SetAttributes[openerDress, HoldAll]; | |
| openerDress[f_[args___]]:= | |
| OpenerView[{ | |
| HoldForm[f], | |
| HoldForm[f]@@Map[openerDress,Unevaluated[{args}]] | |
| }]; | |
| openerDress[x_]:=HoldForm[x]; | |
| ClearAll[stackPrettify]; |
| BeginPackage["CellTimeTrack`"] | |
| CellTimeTrack::usage = "CellTimeTrack[True|False] switches on or off the cell time-tracking mode"; | |
| Begin["`Private`"] | |
| $style = Function[ | |
| arg, | |
| StyleBox[arg, FontSize -> 16, FontWeight -> Bold, FontColor -> Darker[Green, 0.5]] | |
| ]; |
| #include <stdio.h> | |
| #include <string.h> | |
| #include <sys/types.h> | |
| #include <dirent.h> | |
| #include <unistd.h> | |
| #include <errno.h> | |
| #include <stdlib.h> | |
| #include <time.h> | |
| #include <sys/stat.h> |
| (* Mathematica Package *) | |
| (* Created by the Wolfram Workbench 05.01.2012 *) | |
| BeginPackage["CodeHighlighterGenerator`"] | |
| (* Exported symbols added here with SymbolName::usage *) | |
| HighlighterLocation; | |
| HighlighterPackageName; |
| {"AbelianGroup" -> {"8"}, "AbortKernels" -> {"7"}, "Abort" -> {"2"}, | |
| "AbortProtect" -> {"2"}, "Abs" -> {"1"}, | |
| "AbsoluteCurrentValue" -> {"6"}, "AbsoluteDashing" -> {{"2", "6"}}, | |
| "AbsoluteFileName" -> {"7"}, "AbsoluteOptions" -> {"4"}, | |
| "AbsolutePointSize" -> {{"2", "6"}}, | |
| "AbsoluteThickness" -> {{"2", "6"}}, "AbsoluteTime" -> {{"2", "6"}}, | |
| "AbsoluteTiming" -> {"5"}, "AccountingForm" -> {"2"}, | |
| "Accumulate" -> {{"6", "7"}}, "AccuracyGoal" -> {{"1", "5"}}, | |
| "Accuracy" -> {{"1", "5"}}, "ActionMenu" -> {{"6", "8"}}, | |
| "Active" -> {"3"}, "ActiveStyle" -> {"7"}, "AcyclicGraphQ" -> {"8"}, |
| ClearAll[$fileNameFunction,fileName, $importFunction,import, $exportFunction, | |
| export, $compressFunction, $uncompressFunction] | |
| $fileNameFunction = fileName; | |
| $importFunction = import; | |
| $exportFunction = export; | |
| $compressFunction = Compress; | |
| $uncompressFunction = Uncompress; | |
| {"3DGeometryAndModelingFormats" -> "ScientificAndMedicalDataFormats", | |
| "3DGeometryAndModelingFormats" -> "ScientificAndMedicalDataFormats", | |
| "3DGeometryAndModelingFormats" -> "ComputationalGeometry", | |
| "3DGeometryAndModelingFormats" -> "DataVisualization", | |
| "3DGeometryAndModelingFormats" -> "ListingOfAllFormats", | |
| "3DGeometryAndModelingFormats" -> "ImportingAndExporting", | |
| "3DGeometryAndModelingFormats" -> "Mathematica", | |
| "3DGeometryAndModelingFormats" -> "DataManipulationOverview", | |
| "3DGeometryAndModelingFormats" -> "ImportingAndExporting", |
##CodeFormatter.m
###Formatting Mathematica code
CodeFormatter.m is a pretty-printer / code formatter for
code written in the Mathematica language, which is also
written in Mathematica. It works on the box level at the
moment. The direct support for strings has not yet been
implemented, but one can always convert code to boxes and
use it then. Only a few boxes are currently supported, but
| pic = Import["ExampleData/rose.gif"]; | |
| Module[{width = 28, layers = 6, offset, highlight, slides, img, | |
| data}, | |
| offset[x_, slide_] := 15/(1 + Exp[-(x - slide) 3]); | |
| highlight[x_, slide_] := | |
| 0.85 PDF[NormalDistribution[slide, 1], x]/ | |
| PDF[NormalDistribution[slide, 1], slide] + 0.15; | |
| img = Table[pic, {n, 1, layers}]; | |
| Manipulate[Graphics3D[{ | |
| Table[{ |