API tools faq
paste
Advertisement
Guest User

mathematica error

a guest
Aug 6th, 2013
48
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.53 KB | None | 0 0
raw download clone embed print report
  1. x = {Cell[
  2. CellGroupData[{Cell[
  3. BoxData[{RowBox[{RowBox[{RowBox[{"GetCode", "[", "]"}], " ",
  4. ":=", RowBox[{"Cell", "[",
  5. RowBox[{RowBox[{"BoxData", "[",
  6. RowBox[{"StyleBox", "[", "\[IndentingNewLine]",
  7. RowBox[{RowBox[{"DynamicBox", "[",
  8. RowBox[{"ToBoxes", "[",
  9. RowBox[{RowBox[{"Refresh", "[",
  10. "\[IndentingNewLine]", "\[IndentingNewLine]",
  11. RowBox[{RowBox[{"InputForm", "@@",
  12. RowBox[{"MakeExpression", "@",
  13. "\[IndentingNewLine]",
  14. RowBox[{"First", "@",
  15. RowBox[{"First", "@",
  16. RowBox[{"Cases", "[",
  17. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  18. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  19. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  20. RowBox[{"Cell", "[",
  21. RowBox[{"___", ",",
  22. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}],
  23. ",", "___"}], "]"}], ",", "Infinity"}],
  24. "]"}]}]}]}]}], "\[IndentingNewLine]",
  25. "\[IndentingNewLine]", ",", " ",
  26. RowBox[{"UpdateInterval", " ", "->", " ", "1"}]}],
  27. "]"}], ",", " ", "StandardForm"}], "]"}],
  28. "\[IndentingNewLine]", "]"}], ",",
  29. RowBox[{"StripOnInput", "->", "False"}], ",",
  30. RowBox[{"LineColor", "->",
  31. RowBox[{"GrayLevel", "[", "0.5", "]"}]}], ",",
  32. RowBox[{"FrontFaceColor", "->",
  33. RowBox[{"GrayLevel", "[", "0.5", "]"}]}], ",",
  34. RowBox[{"BackFaceColor", "->",
  35. RowBox[{"GrayLevel", "[", "0.5", "]"}]}], ",",
  36. RowBox[{"GraphicsColor", "->",
  37. RowBox[{"GrayLevel", "[", "0.5", "]"}]}], ",",
  38. RowBox[{"FontColor", "->",
  39. RowBox[{"GrayLevel", "[", "0.5", "]"}]}]}], "]"}],
  40. "\[IndentingNewLine]", "]"}], ",", " ",
  41. "\"Output\"", ",",
  42. RowBox[{"CellTags", "\[Rule]", "\"MyCode\""}]}],
  43. "]"}]}], ";"}], "\[IndentingNewLine]",
  44. "\[IndentingNewLine]",
  45. RowBox[{RowBox[{RowBox[{"DynamicQ", "[", "]"}], " ", ":=",
  46. " ", RowBox[{"(", "\[IndentingNewLine]",
  47. RowBox[{RowBox[{"Length", "@",
  48. RowBox[{"Cases", "[", "\[IndentingNewLine]",
  49. RowBox[{RowBox[{"Cases", "[",
  50. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  51. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  52. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  53. RowBox[{"Cell", "[",
  54. RowBox[{"___", ",",
  55. RowBox[{"CellTags", "\[Rule]", "\"MyCode\""}],
  56. ",", "___"}], "]"}], ",", "Infinity"}], "]"}],
  57. "\[IndentingNewLine]", ",",
  58. RowBox[{"DynamicBox", "[", "___", "]"}],
  59. "\[IndentingNewLine]", ",", "Infinity"}], "]"}]}],
  60. "\[Equal]", "1"}], "\[IndentingNewLine]", ")"}]}],
  61. ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
  62. RowBox[{RowBox[{"CellPrint", "@",
  63. RowBox[{"Cell", "[",
  64. RowBox[{RowBox[{"BoxData", "[",
  65. RowBox[{"ToBoxes", "[", "\[IndentingNewLine]",
  66. RowBox[{"Graphics", "[",
  67. RowBox[{RowBox[{"{", RowBox[{"Circle", "[", "]"}],
  68. "}"}], ",",
  69. RowBox[{"ImageSize", "\[Rule]",
  70. RowBox[{"{", RowBox[{"100", ",", "Automatic"}],
  71. "}"}]}]}], "]"}], "\[IndentingNewLine]", "]"}],
  72. "]"}], ",", "\"Output\"", ",",
  73. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}]}],
  74. "]"}]}], ";"}], "\[IndentingNewLine]",
  75. "\[IndentingNewLine]",
  76. RowBox[{RowBox[{"Print", "[",
  77. RowBox[{RowBox[{"Button", "[",
  78. RowBox[{"\"Diable/Enable Dynamic\"", ",",
  79. "\[IndentingNewLine]",
  80. RowBox[{RowBox[{"If", "[",
  81. RowBox[{RowBox[{"DynamicQ", "[", "]"}], ",",
  82. "\[IndentingNewLine]",
  83. RowBox[{RowBox[{"NotebookLocate", "[",
  84. "\"MyCode\"", "]"}], ";", "\[IndentingNewLine]",
  85. RowBox[{"code", " ", "=", " ",
  86. RowBox[{"InputForm", "@@",
  87. RowBox[{"MakeExpression", "@",
  88. "\[IndentingNewLine]",
  89. RowBox[{"First", "@",
  90. RowBox[{"First", "@",
  91. RowBox[{"Cases", "[",
  92. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  93. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  94. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  95. RowBox[{"Cell", "[",
  96. RowBox[{"___", ",",
  97. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}],
  98. ",", "___"}], "]"}], ",", "Infinity"}],
  99. "]"}]}]}]}]}]}], ";", "\[IndentingNewLine]",
  100. RowBox[{"NotebookWrite", "[",
  101. RowBox[{RowBox[{"EvaluationNotebook", "[", "]"}],
  102. ",", RowBox[{"Cell", "[",
  103. RowBox[{RowBox[{"BoxData", "[",
  104. "\[IndentingNewLine]",
  105. RowBox[{"ToBoxes", "[", "code", "]"}],
  106. "\[IndentingNewLine]", "]"}], ",", "\"Input\"",
  107. ",", RowBox[{"CellTags", "\[Rule]",
  108. "\"MyCode\""}]}], "]"}]}], "\[IndentingNewLine]",
  109. "]"}], ";"}], "\[IndentingNewLine]", ",",
  110. "\[IndentingNewLine]",
  111. RowBox[{RowBox[{"NotebookLocate", "[",
  112. "\"MyCode\"", "]"}], ";", "\[IndentingNewLine]",
  113. RowBox[{"NotebookWrite", "[",
  114. RowBox[{RowBox[{"EvaluationNotebook", "[", "]"}],
  115. ",", RowBox[{"GetCode", "[", "]"}]}], "]"}],
  116. ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}],
  117. "\[IndentingNewLine]", "]"}],
  118. RowBox[{"Button", "[",
  119. RowBox[{"\"Update Graphics\"", ",",
  120. "\[IndentingNewLine]",
  121. RowBox[{RowBox[{"NotebookLocate", "[",
  122. "\"MyGraphic\"", "]"}], ";",
  123. "\[IndentingNewLine]",
  124. RowBox[{"NotebookWrite", "[",
  125. RowBox[{RowBox[{"EvaluationNotebook", "[", "]"}],
  126. ",", "\[IndentingNewLine]",
  127. RowBox[{"Cell", "[",
  128. RowBox[{RowBox[{"BoxData", "[",
  129. "\[IndentingNewLine]",
  130.  
  131. RowBox[{"ToBoxes", "@",
  132. RowBox[{"ReleaseHold", "@",
  133. RowBox[{"MakeExpression", "@",
  134. RowBox[{"First", "@",
  135. RowBox[{"First", "@",
  136. RowBox[{"Cases", "[",
  137. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  138. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  139. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  140. RowBox[{"Cell", "[",
  141. RowBox[{"___", ",",
  142. RowBox[{"CellTags", "\[Rule]", "\"MyCode\""}],
  143. ",", "___"}], "]"}], ",",
  144. RowBox[{"{", "1", "}"}]}], "]"}]}]}]}]}]}],
  145. "\[IndentingNewLine]", "]"}], ",", "\"Input\"",
  146. ",", RowBox[{"CellTags", "\[Rule]",
  147. "\"MyGraphic\""}]}], "]"}]}],
  148. "\[IndentingNewLine]", "]"}], ";"}]}],
  149. "\[IndentingNewLine]", "]"}]}],
  150. "\[IndentingNewLine]", "]"}], ";"}],
  151. "\[IndentingNewLine]",
  152. RowBox[{RowBox[{"CellPrint", "@",
  153. RowBox[{"GetCode", "[", "]"}]}], ";"}],
  154. "\[IndentingNewLine]",
  155. RowBox[{"(*", " ",
  156. RowBox[{RowBox[{"CellPrint", "@",
  157. RowBox[{"Cell", "[",
  158. RowBox[{RowBox[{"BoxData", "[", "\n", " ",
  159.  
  160. RowBox[{"DynamicBox", "[",
  161. RowBox[{RowBox[{"ToBoxes", "[", "\n", " ",
  162. RowBox[{RowBox[{"Refresh", "[",
  163. "\[IndentingNewLine]", "\[IndentingNewLine]",
  164. RowBox[{RowBox[{"ToBoxes", "@@",
  165. RowBox[{"MakeExpression", "@",
  166. RowBox[{"First", "@",
  167. RowBox[{"First", "@",
  168. RowBox[{"Cases", "[",
  169. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  170. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  171. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  172. RowBox[{"Cell", "[",
  173. RowBox[{"___", ",",
  174. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}],
  175. ",", "___"}], "]"}], ",", "Infinity"}],
  176. "]"}]}]}]}]}], "\[IndentingNewLine]",
  177. "\[IndentingNewLine]", ",", " ",
  178. RowBox[{"UpdateInterval", " ", "->", " ", "1"}]}],
  179. "]"}], ",", " ", "StandardForm"}], "]"}], ",",
  180. "\n", " ",
  181. RowBox[{"ImageSizeCache", "->",
  182. RowBox[{"{",
  183. RowBox[{"7.", ",", " ",
  184. RowBox[{"{", RowBox[{"0.", ",", " ", "7."}],
  185. "}"}]}], "}"}]}]}], "]"}], "]"}], ",", " ",
  186. "\"Input\"", ",", "\n", " ",
  187.  
  188. RowBox[{"CellChangeTimes", "->",
  189. RowBox[{"{", "3.5839336357137146`*^9", "}"}]}]}],
  190. "]"}]}], ";"}], " ", "*)"}]}], "Input",
  191. CellChangeTimes -> {{3.583934510565753`*^9,
  192. 3.583934511856827`*^9}, {3.583934664748572`*^9,
  193. 3.5839346658266335`*^9}, {3.5839347013006625`*^9,
  194. 3.5839347413869553`*^9}, {3.5840371605430984`*^9,
  195. 3.5840371644633226`*^9}, {3.584037543148982`*^9,
  196. 3.5840375483802814`*^9}, {3.5840376301689596`*^9,
  197. 3.58403763314813`*^9}, {3.5840379794969397`*^9,
  198. 3.5840379849482517`*^9}, {3.584038161913374`*^9,
  199. 3.5840381620333805`*^9}, {3.5840382216817923`*^9,
  200. 3.5840382347065372`*^9}, {3.584038314514102`*^9,
  201. 3.584038404605255`*^9}, {3.584038532517571`*^9,
  202. 3.584038597695299`*^9}, {3.584038687541438`*^9,
  203. 3.5840386918726854`*^9}, {3.584039048367076`*^9,
  204. 3.584039061991855`*^9}, {3.5840390957977886`*^9,
  205. 3.5840391146768684`*^9}, {3.5840391487528176`*^9,
  206. 3.584039223027066`*^9},
  207. 3.584039294112132`*^9, {3.5840393403057737`*^9,
  208. 3.5840393424338956`*^9}, {3.584039422535477`*^9,
  209. 3.5840394380653653`*^9}, {3.584039583294672`*^9,
  210. 3.58403964007292`*^9}, {3.5840397635889845`*^9,
  211. 3.584039787743366`*^9}, {3.5840398667668858`*^9,
  212. 3.58403996369843`*^9}, {3.5840997717017965`*^9,
  213. 3.584099772842862`*^9}, {3.584099821697656`*^9,
  214. 3.584099905367442`*^9}, {3.5840999484909086`*^9,
  215. 3.584099982721866`*^9}, {3.5841018839826117`*^9,
  216. 3.584101910102106`*^9}, {3.5841019486933136`*^9,
  217. 3.58410195248053`*^9}, {3.5841019847563763`*^9,
  218. 3.5841020516122`*^9}, {3.584102213812477`*^9,
  219. 3.584102344090929`*^9}, {3.5841025149507017`*^9,
  220. 3.584102539470104`*^9}, {3.5841026849254236`*^9,
  221. 3.5841026889376526`*^9}, {3.584102849067812`*^9,
  222. 3.58410289659053`*^9}, {3.584132219720541`*^9,
  223. 3.5841322320532465`*^9}, {3.584132266697228`*^9,
  224. 3.5841323003051505`*^9}, {3.5841323337920656`*^9,
  225. 3.5841323644888215`*^9}, {3.584132415197722`*^9,
  226. 3.584132534840565`*^9}, {3.5841326039095154`*^9,
  227. 3.584132614673131`*^9}, {3.5841327004370365`*^9,
  228. 3.584132728187624`*^9}, {3.5841327914192405`*^9,
  229. 3.584132819161827`*^9}, {3.5841329657822137`*^9,
  230. 3.584133012077862`*^9}, {3.584133806760315`*^9,
  231. 3.5841338189360113`*^9}, {3.5841338991816006`*^9,
  232. 3.584133943612142`*^9}, {3.584138353766389`*^9,
  233. 3.584138354630438`*^9}, {3.5841384593294263`*^9,
  234. 3.584138460711506`*^9},
  235. 3.584138694563881`*^9, {3.584210382251153`*^9,
  236. 3.5842103875574565`*^9}, 3.584210656479838`*^9,
  237. 3.5842108551071987`*^9, {3.584211265046646`*^9,
  238. 3.5842112683858366`*^9},
  239. 3.5842113075620775`*^9, {3.584313369762908`*^9,
  240. 3.584313370790967`*^9}, {3.584836878760091`*^9,
  241. 3.5848368798441525`*^9}}],
  242. Cell[BoxData[
  243. GraphicsBox[CircleBox[{0, 0}],
  244. ImageSize -> {100, Automatic}]], "Output",
  245. CellChangeTimes -> {3.5843176186689315`*^9},
  246. CellTags -> "MyGraphic"],
  247. Cell[BoxData[
  248. RowBox[{ButtonBox["\"Diable/Enable Dynamic\"",
  249. Appearance -> Automatic,
  250.  
  251. ButtonFunction :> (If[$CellContext`DynamicQ[],
  252. NotebookLocate["MyCode"]; $CellContext`code =
  253. InputForm @@
  254. MakeExpression[
  255. First[First[
  256. Cases[NotebookGet[EvaluationNotebook[]][[1]],
  257. Cell[___,
  258. CellTags -> "MyGraphic", ___], \[Infinity]]]]];
  259. NotebookWrite[EvaluationNotebook[],
  260. Cell[BoxData[ToBoxes[$CellContext`code]], "Input",
  261. CellTags -> "MyCode"]];, NotebookLocate["MyCode"];
  262. NotebookWrite[
  263. EvaluationNotebook[], $CellContext`GetCode[]];];),
  264. Evaluator -> Automatic, Method -> "Preemptive"], " ",
  265. ButtonBox["\"Update Graphics\"", Appearance -> Automatic,
  266. ButtonFunction :> (NotebookLocate["MyGraphic"];
  267. NotebookWrite[EvaluationNotebook[],
  268. Cell[BoxData[
  269. ToBoxes[
  270. ReleaseHold[
  271. MakeExpression[
  272. First[First[
  273. Cases[NotebookGet[EvaluationNotebook[]][[1]],
  274. Cell[___, CellTags -> "MyCode", ___], {1}]]]]]]],
  275. "Input", CellTags -> "MyGraphic"]];),
  276. Evaluator -> Automatic, Method -> "Preemptive"]}]],
  277. "Print", CellChangeTimes -> {3.5843176187029333`*^9}],
  278. Cell[
  279. BoxData[StyleBox[
  280. DynamicBox[
  281. ToBoxes[Refresh[
  282. InputForm @@
  283. MakeExpression[
  284. First[First[
  285. Cases[NotebookGet[EvaluationNotebook[]][[1]],
  286. Cell[___,
  287. CellTags -> "MyGraphic", ___], \[Infinity]]]]],
  288. UpdateInterval -> 1], StandardForm],
  289. ImageSizeCache -> {385.`, {2.`, 8.`}}],
  290. StripOnInput -> False, LineColor -> GrayLevel[0.5`],
  291. FrontFaceColor -> GrayLevel[0.5`],
  292. BackFaceColor -> GrayLevel[0.5`],
  293. GraphicsColor -> GrayLevel[0.5`],
  294. FontColor -> GrayLevel[0.5`], $CellContext`BackFaceColor ->
  295. GrayLevel[0.5`]]], "Output",
  296. CellChangeTimes -> {3.584317618704934`*^9},
  297. CellTags -> "MyCode"]}, Open]],
  298. Cell[CellGroupData[{Cell[
  299. BoxData[RowBox[{"InputForm", "@@",
  300. RowBox[{"MakeExpression", "@", "\[IndentingNewLine]",
  301. RowBox[{"First", "@",
  302. RowBox[{"First", "@", "\[IndentingNewLine]",
  303. RowBox[{"Cases", "[",
  304. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  305. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}],
  306. "[", RowBox[{"[", "1", "]"}], "]"}], ",",
  307.  
  308. RowBox[{"Cell", "[",
  309. RowBox[{"___", ",",
  310. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}],
  311. ",", "___"}], "]"}], ",", "Infinity"}],
  312. "]"}]}]}]}]}]], "Input",
  313. CellChangeTimes -> {3.5848369570215673`*^9}],
  314. Cell[BoxData[
  315. RowBox[{StyleBox[RowBox[{"First", "::", "first"}],
  316. "MessageName"], RowBox[{":", " "}],
  317. "\"\[NoBreak]\\!\\({}\\)\[NoBreak] has a length of zero and \
  318. no first element. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
  319. ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
  320. ButtonData:>\\\"paclet:ref/message/First/first\\\", ButtonNote -> \
  321. \\\"First::first\\\"]\\)\""}]], "Message", "MSG",
  322. CellChangeTimes -> {3.5843180161496663`*^9, \
  323. {3.584836814211399`*^9, 3.584836816291518`*^9},
  324. 3.584836957961621`*^9}],
  325. Cell["Graphics[Circle[{0, 0}], ImageSize -> {100, Automatic}]",
  326. "Output",
  327. CellChangeTimes -> {3.584318016150666`*^9, \
  328. {3.584836814249401`*^9, 3.5848368162925177`*^9},
  329. 3.584836957963621`*^9}]}, Open]],
  330. Cell[CellGroupData[{Cell[
  331. BoxData[RowBox[{"Cases", "[", "\[IndentingNewLine]",
  332. RowBox[{RowBox[{RowBox[{"NotebookGet", "[",
  333. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}], "[",
  334. RowBox[{"[", "1", "]"}], "]"}], ",",
  335. "\[IndentingNewLine]",
  336. RowBox[{"Cell", "[",
  337. RowBox[{"___", ",",
  338. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}], ",",
  339. "___"}], "]"}], "\[IndentingNewLine]", ",",
  340. "Infinity"}], "]"}]], "Input",
  341. CellChangeTimes -> {{3.5843181415298376`*^9,
  342. 3.584318143646959`*^9}, {3.584836969275268`*^9,
  343. 3.584836974414562`*^9}, {3.584837113038491`*^9,
  344. 3.584837114699586`*^9}, {3.5848383830785294`*^9,
  345. 3.5848383980623865`*^9}}],
  346. Cell[BoxData[
  347. RowBox[{StyleBox[RowBox[{"First", "::", "first"}],
  348. "MessageName"], RowBox[{":", " "}],
  349. "\"\[NoBreak]\\!\\({}\\)\[NoBreak] has a length of zero and \
  350. no first element. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
  351. ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
  352. ButtonData:>\\\"paclet:ref/message/First/first\\\", ButtonNote -> \
  353. \\\"First::first\\\"]\\)\""}]], "Message", "MSG",
  354. CellChangeTimes -> {{3.5848383945551863`*^9,
  355. 3.5848383984854107`*^9}}],
  356. Cell[BoxData[
  357. RowBox[{"{",
  358. RowBox[{RowBox[{"Cell", "[",
  359. RowBox[{RowBox[{"BoxData", "[",
  360. RowBox[{"GraphicsBox", "[",
  361. RowBox[{RowBox[{"CircleBox", "[",
  362. RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}],
  363. "]"}], ",",
  364. RowBox[{"ImageSize", "\[Rule]",
  365. RowBox[{"{", RowBox[{"100", ",", "Automatic"}],
  366. "}"}]}]}], "]"}], "]"}], ",", "\"Output\"", ",",
  367. RowBox[{"CellChangeTimes", "\[Rule]",
  368. RowBox[{"{", "3.5843176186689315`*^9", "}"}]}], ",",
  369. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}]}],
  370. "]"}], ",",
  371. RowBox[{"Cell", "[",
  372. RowBox[{"___", ",",
  373. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}], ",",
  374. "___"}], "]"}], ",",
  375. RowBox[{"Cell", "[",
  376. RowBox[{RowBox[{"BoxData", "[",
  377. RowBox[{"RowBox", "[",
  378. RowBox[{"{", RowBox[{"\"{\"", ",", "\"}\""}],
  379. "}"}], "]"}], "]"}], ",", "\"Input\"", ",",
  380. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}]}],
  381. "]"}], ",",
  382. RowBox[{"Cell", "[",
  383. RowBox[{"___", ",",
  384. RowBox[{"CellTags", "\[Rule]", "\"MyGraphic\""}], ",",
  385. "___"}], "]"}]}], "}"}]], "Output",
  386. CellChangeTimes -> {3.5843180264642563`*^9,
  387. 3.5843180997124457`*^9, {3.5843181444170027`*^9,
  388. 3.5843181721985917`*^9},
  389. 3.5848368246919985`*^9, {3.584836895896071`*^9,
  390. 3.5848368971051397`*^9}, 3.5848369698733025`*^9,
  391. 3.584837115143611`*^9, {3.584838380405377`*^9,
  392. 3.584838398486411`*^9}}]}, Open]],
  393. Cell[CellGroupData[{Cell[
  394. BoxData[RowBox[{RowBox[{"NotebookGet", "[",
  395. RowBox[{"EvaluationNotebook", "[", "]"}], "]"}], "[",
  396. RowBox[{"[", "1", "]"}], "]"}]], "Input",
  397. CellChangeTimes -> {{3.5848385435387077`*^9,
  398. 3.5848385438907275`*^9}, {3.5848389493499184`*^9,
  399. 3.5848389502899723`*^9}}],
  400. Cell[BoxData[
  401. InterpretationBox[
  402. TagBox[PanelBox[
  403. GridBox[{{StyleBox[
  404.  
  405. StyleBox[
  406. DynamicBox[
  407. ToBoxes[
  408. FEPrivate`FrontEndResource["FEStrings",
  409. "sizeExplanation"], StandardForm],
  410. ImageSizeCache -> {299.`, {3.`, 9.`}}],
  411. StripOnInput -> False, DynamicUpdating -> True],
  412. "Panel", StripOnInput -> False,
  413. Background -> None]}, {ItemBox[
  414. TagBox[RowBox[{"{",
  415. RowBox[{RowBox[{"Cell", "[",
  416. RowBox[{"CellGroupData", "[",
  417. RowBox[{RowBox[{"{",
  418. RowBox[{RowBox[{"Cell", "[",
  419. RowBox[{"\[LeftSkeleton]", "1",
  420. "\[RightSkeleton]"}], "]"}], ",",
  421. RowBox[{"\[LeftSkeleton]", "3",
  422. "\[RightSkeleton]"}]}], "}"}], ",", "Open"}],
  423. "]"}], "]"}], ",",
  424. RowBox[{"\[LeftSkeleton]", "2",
  425. "\[RightSkeleton]"}], ",",
  426. RowBox[{"Cell", "[",
  427. RowBox[{"CellGroupData", "[",
  428. RowBox[{RowBox[{"{",
  429. RowBox[{RowBox[{"Cell", "[",
  430. RowBox[{RowBox[{"BoxData", "[",
  431. RowBox[{"RowBox", "[",
  432. RowBox[{"{",
  433. RowBox[{"\"x\"", ",", "\" \"", ",", "\"=\"", ",",
  434. "\" \"", ",",
  435. RowBox[{"RowBox", "[",
  436. RowBox[{"{",
  437. RowBox[{RowBox[{"RowBox", "[",
  438. RowBox[{"{",
  439. RowBox[{"\"NotebookGet\"", ",", "\"[\"", ",",
  440. RowBox[{"RowBox", "[",
  441. RowBox[{"{",
  442. RowBox[{"\"EvaluationNotebook\"", ",", "\"[\"",
  443. ",", "\"]\""}], "}"}], "]"}], ",", "\"]\""}],
  444. "}"}], "]"}], ",", "\"[\"", ",",
  445. RowBox[{"RowBox", "[",
  446. RowBox[{"{",
  447. RowBox[{"\"[\"", ",", "\"1\"", ",", "\"]\""}],
  448. "}"}], "]"}], ",", "\"]\""}], "}"}], "]"}]}],
  449. "}"}], "]"}], "]"}], ",", "\"Input\"", ",",
  450. RowBox[{"CellChangeTimes", "\[Rule]",
  451. RowBox[{"{",
  452. RowBox[{"{",
  453. RowBox[{"3.5848385435387077`*^9", ",",
  454. "3.5848385438907275`*^9"}], "}"}], "}"}]}]}],
  455. "]"}], ",",
  456. RowBox[{"Cell", "[",
  457. RowBox[{RowBox[{"BoxData", "[",
  458. RowBox[{"RowBox", "[",
  459. RowBox[{"{",
  460. RowBox[{"\"{\"", ",",
  461. RowBox[{"\[LeftSkeleton]", "1",
  462. "\[RightSkeleton]"}], ",", "\"}\""}], "}"}],
  463. "]"}], "]"}], ",",
  464. RowBox[{"\"\"", "\[Ellipsis]", "\"t\""}], ",",
  465. RowBox[{"\[LeftSkeleton]", "1",
  466. "\[RightSkeleton]"}]}], "]"}]}], "}"}], ",",
  467. "Open"}], "]"}], "]"}]}], "}"}], \!\(\*
  468. TagBox["#1",
  469. Short[#, 5]& ]\) &], Background -> GrayLevel[1],
  470. BaseStyle -> {Deployed -> False}, Frame -> True,
  471. FrameStyle -> GrayLevel[0, 0.2`],
  472. StripOnInput ->
  473. False]}, {RowBox[{ButtonBox[
  474. StyleBox[
  475. StyleBox[
  476. DynamicBox[
  477. ToBoxes[
  478. FEPrivate`FrontEndResource["FEStrings",
  479. "sizeShowLess"], StandardForm],
  480. ImageSizeCache -> {54.`, {1.`, 9.`}}],
  481. StripOnInput -> False, DynamicUpdating -> True],
  482. "Panel", StripOnInput -> False, Background -> None],
  483. Appearance -> Automatic,
  484. ButtonFunction :>
  485. OutputSizeLimit`ButtonFunction[Identity, 1725,
  486. 23491724622806668580, 5/2], Enabled -> True,
  487. Evaluator -> Automatic, Method -> "Queued"],
  488. "\[ThinSpace]",
  489. ButtonBox[
  490. StyleBox[
  491. StyleBox[
  492. DynamicBox[
  493. ToBoxes[
  494. FEPrivate`FrontEndResource["FEStrings",
  495. "sizeShowMore"], StandardForm],
  496. ImageSizeCache -> {60.`, {1.`, 9.`}}],
  497. StripOnInput -> False, DynamicUpdating -> True],
  498. "Panel", StripOnInput -> False, Background -> None],
  499. Appearance -> Automatic,
  500.  
  501. ButtonFunction :>
  502. OutputSizeLimit`ButtonFunction[Identity, 1725,
  503. 23491724622806668580, 5 2], Enabled -> True,
  504. Evaluator -> Automatic, Method -> "Queued"],
  505. "\[ThinSpace]",
  506. ButtonBox[
  507. StyleBox[
  508. StyleBox[
  509. DynamicBox[
  510. ToBoxes[
  511. FEPrivate`FrontEndResource["FEStrings",
  512. "sizeShowAll"], StandardForm],
  513. ImageSizeCache -> {92.`, {3.`, 9.`}}],
  514. StripOnInput -> False, DynamicUpdating -> True],
  515. "Panel", StripOnInput -> False, Background -> None],
  516. Appearance -> Automatic,
  517. ButtonFunction :>
  518. OutputSizeLimit`ButtonFunction[Identity, 1725,
  519. 23491724622806668580, \[Infinity]],
  520. Enabled -> True, Evaluator -> Automatic,
  521. Method -> "Queued"], "\[ThinSpace]",
  522. ButtonBox[
  523. StyleBox[
  524. StyleBox[
  525. DynamicBox[
  526. ToBoxes[
  527. FEPrivate`FrontEndResource["FEStrings",
  528. "sizeChangeLimit"], StandardForm],
  529. ImageSizeCache -> {78.`, {1.`, 9.`}}],
  530. StripOnInput -> False, DynamicUpdating -> True],
  531. "Panel", StripOnInput -> False, Background -> None],
  532. Appearance -> Automatic,
  533. ButtonFunction :>
  534. FrontEndExecute[{FrontEnd`SetOptions[
  535. FrontEnd`$FrontEnd,
  536. FrontEnd`PreferencesSettings -> {"Page" ->
  537. "Evaluation"}],
  538. FrontEnd`FrontEndToken["PreferencesDialog"]}],
  539. Evaluator -> None, Method -> "Preemptive"]}]}},
  540. GridBoxAlignment -> {"Columns" -> {{Left}},
  541. "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
  542. "RowsIndexed" -> {}},
  543. GridBoxDividers -> {"Columns" -> {{False}},
  544. "ColumnsIndexed" -> {}, "Rows" -> {{False}},
  545. "RowsIndexed" -> {}},
  546. GridBoxItemSize -> {"Columns" -> {{Automatic}},
  547. "ColumnsIndexed" -> {}, "Rows" -> {{1.`}},
  548. "RowsIndexed" -> {}},
  549. GridBoxSpacings -> {"Columns" -> {Offset[
  550. 0.27999999999999997`], {Offset[0.5599999999999999`]},
  551. Offset[0.27999999999999997`]},
  552. "ColumnsIndexed" -> {},
  553. "Rows" -> {Offset[0.2`], {Offset[1.2`]}, Offset[0.2`]},
  554. "RowsIndexed" -> {}}], DefaultBaseStyle -> {},
  555. FrameMargins -> 5], Deploy,
  556. DefaultBaseStyle -> {Deployed -> True}], %1725]], "Output",
  557. CellChangeTimes -> {{3.584838541877612`*^9,
  558. 3.5848385451267986`*^9}}]}, Open]]};
  559.  
  560. Cases[x,
  561. Cell[___, CellTags -> "MyGraphic", ___]
  562. , Infinity]
  563.  
  564. (* First::first: {} has a length of zero and no first element. >> *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!