API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 9th, 2014
372
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 64.81 KB | None | 0 0
raw download clone embed print report
  1. (* Content-type: application/vnd.wolfram.cdf.text *)
  2.  
  3. (*** Wolfram CDF File ***)
  4. (* http://www.wolfram.com/cdf *)
  5.  
  6. (* CreatedBy='Mathematica 9.0' *)
  7.  
  8. (*************************************************************************)
  9. (* *)
  10. (* The Mathematica License under which this file was created prohibits *)
  11. (* restricting third parties in receipt of this file from republishing *)
  12. (* or redistributing it by any means, including but not limited to *)
  13. (* rights management or terms of use, without the express consent of *)
  14. (* Wolfram Research, Inc. For additional information concerning CDF *)
  15. (* licensing and redistribution see: *)
  16. (* *)
  17. (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *)
  18. (* *)
  19. (*************************************************************************)
  20.  
  21. (*CacheID: 234*)
  22. (* Internal cache information:
  23. NotebookFileLineBreakTest
  24. NotebookFileLineBreakTest
  25. NotebookDataPosition[ 1063, 20]
  26. NotebookDataLength[ 63589, 1597]
  27. NotebookOptionsPosition[ 64168, 1594]
  28. NotebookOutlinePosition[ 64513, 1609]
  29. CellTagsIndexPosition[ 64470, 1606]
  30. WindowFrame->Normal*)
  31.  
  32. (* Beginning of Notebook Content *)
  33. Notebook[{
  34.  
  35. Cell[CellGroupData[{
  36. Cell[BoxData[
  37. RowBox[{"Manipulate", "[", "\[IndentingNewLine]",
  38. RowBox[{
  39. RowBox[{
  40. RowBox[{
  41. RowBox[{
  42. RowBox[{"f", "[",
  43. RowBox[{
  44. RowBox[{"-",
  45. RowBox[{"#", "[",
  46. RowBox[{"[",
  47. RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",",
  48. RowBox[{"a", "=", "#"}]}], "]"}], "&"}], "@", "ipt"}], ";",
  49. "\[IndentingNewLine]",
  50. RowBox[{"Column", "[",
  51. RowBox[{"{",
  52. RowBox[{
  53. RowBox[{"Row", "[",
  54. RowBox[{"{",
  55. RowBox[{"\"\<Number of Circles: \>\"", ",",
  56. RowBox[{"Length", "@", "a"}]}], "}"}], "]"}], ",", "\n",
  57. RowBox[{"Graphics", "[", "\[IndentingNewLine]",
  58. RowBox[{
  59. RowBox[{"Circle", "@@@",
  60. RowBox[{"(",
  61. RowBox[{
  62. RowBox[{
  63. RowBox[{
  64. RowBox[{"Abs", "[",
  65. RowBox[{"1", "/", "#1"}], "]"}], " ",
  66. RowBox[{"{",
  67. RowBox[{
  68. RowBox[{"{",
  69. RowBox[{"#2", ",", "#3"}], "}"}], ",", "1"}], "}"}]}], "&"}],
  70. "@@@", "a"}], ")"}]}], ",",
  71. RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}], "]"}]}],
  72. ",", "\[IndentingNewLine]",
  73. RowBox[{"{",
  74. RowBox[{"ipt", ",", "l", ",",
  75. RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",",
  76. "\[IndentingNewLine]",
  77. RowBox[{"Initialization", "\[RuleDelayed]", "\[IndentingNewLine]",
  78. RowBox[{"(",
  79. RowBox[{
  80. RowBox[{"w", "=",
  81. RowBox[{"{",
  82. RowBox[{"k", ",", "x", ",", "y"}], "}"}]}], ";",
  83. RowBox[{"ratio", "=", "20"}], ";", "\[IndentingNewLine]",
  84. RowBox[{
  85. RowBox[{"f", "[",
  86. RowBox[{"h_", ",", "p_"}], "]"}], ":=",
  87. RowBox[{"(",
  88. RowBox[{
  89. RowBox[{
  90. RowBox[{"(",
  91. RowBox[{"If", "[",
  92. RowBox[{
  93. RowBox[{
  94. RowBox[{"#", "[",
  95. RowBox[{"[",
  96. RowBox[{
  97. RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "<",
  98. RowBox[{"ratio", " ", "h"}]}], ",", "\[IndentingNewLine]",
  99. RowBox[{
  100. RowBox[{"q", "=",
  101. RowBox[{
  102. RowBox[{"2", " ",
  103. RowBox[{"IdentityMatrix", "@", "4"}]}], "-", "1"}]}], ";",
  104. "\[IndentingNewLine]",
  105. RowBox[{"m", "=",
  106. RowBox[{"Join", "[",
  107. RowBox[{"#", ",",
  108. RowBox[{"{", "w", "}"}]}], "]"}]}], ";",
  109. "\[IndentingNewLine]",
  110. RowBox[{"r", "=",
  111. RowBox[{"Complement", "[",
  112. RowBox[{
  113. RowBox[{"w", "/.",
  114. RowBox[{"NSolve", "[",
  115. RowBox[{
  116. RowBox[{"And", "@@",
  117. RowBox[{"Flatten", "@",
  118. RowBox[{"MapThread", "[",
  119. RowBox[{"Equal", ",",
  120. RowBox[{"{",
  121. RowBox[{
  122. RowBox[{
  123. RowBox[{"Transpose", "@", "m"}], ".", "q", ".", "m"}],
  124. ",",
  125. RowBox[{"DiagonalMatrix", "@",
  126. RowBox[{"{",
  127. RowBox[{"0", ",", "4", ",", "4"}], "}"}]}]}], "}"}], ",",
  128. "2"}], "]"}]}]}], ",",
  129. RowBox[{"{",
  130. RowBox[{"k", ",", "x", ",", "y"}], "}"}]}], "]"}]}], ",",
  131. "a"}], "]"}]}], ";", "\[IndentingNewLine]",
  132. RowBox[{"If", "[",
  133. RowBox[{
  134. RowBox[{
  135. RowBox[{"r", "\[NotEqual]",
  136. RowBox[{"{", "}"}]}], "&&",
  137. RowBox[{
  138. RowBox[{"r", "[",
  139. RowBox[{"[", "1", "]"}], "]"}], "=!=", "k"}]}], ",",
  140. RowBox[{
  141. RowBox[{"AppendTo", "[",
  142. RowBox[{"a", ",",
  143. RowBox[{"r", "[",
  144. RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";",
  145. "\[IndentingNewLine]",
  146. RowBox[{
  147. RowBox[{"Function", "[",
  148. RowBox[{
  149. RowBox[{"{", "x", "}"}], ",",
  150. RowBox[{
  151. RowBox[{
  152. RowBox[{"f", "[",
  153. RowBox[{"h", ",",
  154. RowBox[{"Join", "[",
  155. RowBox[{"x", ",",
  156. RowBox[{"{", "#", "}"}]}], "]"}]}], "]"}], "&"}], "/@",
  157. "r"}]}], "]"}], "[", "#", "]"}], ";"}]}], "]"}]}]}],
  158. "]"}], ")"}], "&"}], "/@",
  159. RowBox[{"Subsets", "[",
  160. RowBox[{"p", ",",
  161. RowBox[{"{", "3", "}"}]}], "]"}]}], ")"}]}], ";",
  162. "\[IndentingNewLine]",
  163. RowBox[{"l", "=",
  164. RowBox[{"{",
  165. RowBox[{
  166. RowBox[{"{",
  167. RowBox[{
  168. RowBox[{"{",
  169. RowBox[{
  170. RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",",
  171. RowBox[{"{",
  172. RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",",
  173. RowBox[{"{",
  174. RowBox[{"2", ",",
  175. RowBox[{"-", "1"}], ",", "0"}], "}"}], ",",
  176. RowBox[{"{",
  177. RowBox[{"3", ",", "0", ",", "2"}], "}"}]}], "}"}], ",",
  178. RowBox[{"{",
  179. RowBox[{
  180. RowBox[{"{",
  181. RowBox[{
  182. RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}], ",",
  183. RowBox[{"{",
  184. RowBox[{"3", ",",
  185. RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",",
  186. RowBox[{"{",
  187. RowBox[{"6", ",",
  188. RowBox[{"-", "2"}], ",", "0"}], "}"}], ",",
  189. RowBox[{"{",
  190. RowBox[{"7", ",",
  191. RowBox[{
  192. RowBox[{"-", "3"}], "/", "2"}], ",", "2"}], "}"}]}], "}"}], ",",
  193. RowBox[{"{",
  194. RowBox[{
  195. RowBox[{"{",
  196. RowBox[{
  197. RowBox[{"-", "3"}], ",", "0", ",", "0"}], "}"}], ",",
  198. RowBox[{"{",
  199. RowBox[{"4", ",",
  200. RowBox[{"1", "/", "3"}], ",", "0"}], "}"}], ",",
  201. RowBox[{"{",
  202. RowBox[{"12", ",",
  203. RowBox[{"-", "3"}], ",", "0"}], "}"}], ",",
  204. RowBox[{"{",
  205. RowBox[{"13", ",",
  206. RowBox[{
  207. RowBox[{"-", "8"}], "/", "3"}], ",", "2"}], "}"}]}], "}"}], ",",
  208. RowBox[{"{",
  209. RowBox[{
  210. RowBox[{"{",
  211. RowBox[{
  212. RowBox[{"-", "3"}], ",", "0", ",", "0"}], "}"}], ",",
  213. RowBox[{"{",
  214. RowBox[{"5", ",",
  215. RowBox[{"2", "/", "3"}], ",", "0"}], "}"}], ",",
  216. RowBox[{"{",
  217. RowBox[{"8", ",",
  218. RowBox[{
  219. RowBox[{"-", "4"}], "/", "3"}], ",",
  220. RowBox[{"-", "1"}]}], "}"}], ",",
  221. RowBox[{"{",
  222. RowBox[{"8", ",",
  223. RowBox[{
  224. RowBox[{"-", "4"}], "/", "3"}], ",", "1"}], "}"}]}], "}"}], ",",
  225. RowBox[{"{",
  226. RowBox[{
  227. RowBox[{"{",
  228. RowBox[{
  229. RowBox[{"-", "4"}], ",", "0", ",", "0"}], "}"}], ",",
  230. RowBox[{"{",
  231. RowBox[{"5", ",",
  232. RowBox[{"1", "/", "4"}], ",", "0"}], "}"}], ",",
  233. RowBox[{"{",
  234. RowBox[{"20", ",",
  235. RowBox[{"-", "4"}], ",", "0"}], "}"}], ",",
  236. RowBox[{"{",
  237. RowBox[{"21", ",",
  238. RowBox[{
  239. RowBox[{"-", "15"}], "/", "4"}], ",", "2"}], "}"}]}], "}"}],
  240. ",",
  241. RowBox[{"{",
  242. RowBox[{
  243. RowBox[{"{",
  244. RowBox[{
  245. RowBox[{"-", "4"}], ",", "0", ",", "0"}], "}"}], ",",
  246. RowBox[{"{",
  247. RowBox[{"8", ",", "1", ",", "0"}], "}"}], ",",
  248. RowBox[{"{",
  249. RowBox[{"9", ",",
  250. RowBox[{
  251. RowBox[{"-", "3"}], "/", "4"}], ",",
  252. RowBox[{"-", "1"}]}], "}"}], ",",
  253. RowBox[{"{",
  254. RowBox[{"9", ",",
  255. RowBox[{
  256. RowBox[{"-", "3"}], "/", "4"}], ",", "1"}], "}"}]}], "}"}], ",",
  257. RowBox[{"{",
  258. RowBox[{
  259. RowBox[{"{",
  260. RowBox[{
  261. RowBox[{"-", "5"}], ",", "0", ",", "0"}], "}"}], ",",
  262. RowBox[{"{",
  263. RowBox[{"6", ",",
  264. RowBox[{"1", "/", "5"}], ",", "0"}], "}"}], ",",
  265. RowBox[{"{",
  266. RowBox[{"30", ",",
  267. RowBox[{"-", "5"}], ",", "0"}], "}"}], ",",
  268. RowBox[{"{",
  269. RowBox[{"31", ",",
  270. RowBox[{
  271. RowBox[{"-", "24"}], "/", "5"}], ",", "2"}], "}"}]}], "}"}],
  272. ",",
  273. RowBox[{"{",
  274. RowBox[{
  275. RowBox[{"{",
  276. RowBox[{
  277. RowBox[{"-", "5"}], ",", "0", ",", "0"}], "}"}], ",",
  278. RowBox[{"{",
  279. RowBox[{"7", ",",
  280. RowBox[{"2", "/", "5"}], ",", "0"}], "}"}], ",",
  281. RowBox[{"{",
  282. RowBox[{"18", ",",
  283. RowBox[{
  284. RowBox[{"-", "12"}], "/", "5"}], ",",
  285. RowBox[{"-", "1"}]}], "}"}], ",",
  286. RowBox[{"{",
  287. RowBox[{"18", ",",
  288. RowBox[{
  289. RowBox[{"-", "12"}], "/", "5"}], ",", "1"}], "}"}]}], "}"}],
  290. ",",
  291. RowBox[{"{",
  292. RowBox[{
  293. RowBox[{"{",
  294. RowBox[{
  295. RowBox[{"-", "6"}], ",", "0", ",", "0"}], "}"}], ",",
  296. RowBox[{"{",
  297. RowBox[{"7", ",",
  298. RowBox[{"1", "/", "6"}], ",", "0"}], "}"}], ",",
  299. RowBox[{"{",
  300. RowBox[{"42", ",",
  301. RowBox[{"-", "6"}], ",", "0"}], "}"}], ",",
  302. RowBox[{"{",
  303. RowBox[{"43", ",",
  304. RowBox[{
  305. RowBox[{"-", "35"}], "/", "6"}], ",", "2"}], "}"}]}], "}"}],
  306. ",",
  307. RowBox[{"{",
  308. RowBox[{
  309. RowBox[{"{",
  310. RowBox[{
  311. RowBox[{"-", "6"}], ",", "0", ",", "0"}], "}"}], ",",
  312. RowBox[{"{",
  313. RowBox[{"10", ",",
  314. RowBox[{"2", "/", "3"}], ",", "0"}], "}"}], ",",
  315. RowBox[{"{",
  316. RowBox[{"15", ",",
  317. RowBox[{
  318. RowBox[{"-", "3"}], "/", "2"}], ",", "0"}], "}"}], ",",
  319. RowBox[{"{",
  320. RowBox[{"19", ",",
  321. RowBox[{
  322. RowBox[{"-", "5"}], "/", "6"}], ",", "2"}], "}"}]}], "}"}], ",",
  323. RowBox[{"{",
  324. RowBox[{
  325. RowBox[{"{",
  326. RowBox[{
  327. RowBox[{"-", "6"}], ",", "0", ",", "0"}], "}"}], ",",
  328. RowBox[{"{",
  329. RowBox[{"11", ",",
  330. RowBox[{"5", "/", "6"}], ",", "0"}], "}"}], ",",
  331. RowBox[{"{",
  332. RowBox[{"14", ",",
  333. RowBox[{
  334. RowBox[{"-", "16"}], "/", "15"}], ",",
  335. RowBox[{
  336. RowBox[{"-", "4"}], "/", "5"}]}], "}"}], ",",
  337. RowBox[{"{",
  338. RowBox[{"15", ",",
  339. RowBox[{
  340. RowBox[{"-", "9"}], "/", "10"}], ",",
  341. RowBox[{"6", "/", "5"}]}], "}"}]}], "}"}], ",",
  342. RowBox[{"{",
  343. RowBox[{
  344. RowBox[{"{",
  345. RowBox[{
  346. RowBox[{"-", "7"}], ",", "0", ",", "0"}], "}"}], ",",
  347. RowBox[{"{",
  348. RowBox[{"8", ",",
  349. RowBox[{"1", "/", "7"}], ",", "0"}], "}"}], ",",
  350. RowBox[{"{",
  351. RowBox[{"56", ",",
  352. RowBox[{"-", "7"}], ",", "0"}], "}"}], ",",
  353. RowBox[{"{",
  354. RowBox[{"57", ",",
  355. RowBox[{
  356. RowBox[{"-", "48"}], "/", "7"}], ",", "2"}], "}"}]}], "}"}],
  357. ",",
  358. RowBox[{"{",
  359. RowBox[{
  360. RowBox[{"{",
  361. RowBox[{
  362. RowBox[{"-", "7"}], ",", "0", ",", "0"}], "}"}], ",",
  363. RowBox[{"{",
  364. RowBox[{"9", ",",
  365. RowBox[{"2", "/", "7"}], ",", "0"}], "}"}], ",",
  366. RowBox[{"{",
  367. RowBox[{"32", ",",
  368. RowBox[{
  369. RowBox[{"-", "24"}], "/", "7"}], ",",
  370. RowBox[{"-", "1"}]}], "}"}], ",",
  371. RowBox[{"{",
  372. RowBox[{"32", ",",
  373. RowBox[{
  374. RowBox[{"-", "24"}], "/", "7"}], ",", "1"}], "}"}]}], "}"}],
  375. ",",
  376. RowBox[{"{",
  377. RowBox[{
  378. RowBox[{"{",
  379. RowBox[{
  380. RowBox[{"-", "7"}], ",", "0", ",", "0"}], "}"}], ",",
  381. RowBox[{"{",
  382. RowBox[{"12", ",",
  383. RowBox[{"5", "/", "7"}], ",", "0"}], "}"}], ",",
  384. RowBox[{"{",
  385. RowBox[{"17", ",",
  386. RowBox[{
  387. RowBox[{"-", "48"}], "/", "35"}], ",",
  388. RowBox[{
  389. RowBox[{"-", "2"}], "/", "5"}]}], "}"}], ",",
  390. RowBox[{"{",
  391. RowBox[{"20", ",",
  392. RowBox[{
  393. RowBox[{"-", "33"}], "/", "35"}], ",",
  394. RowBox[{"8", "/", "5"}]}], "}"}]}], "}"}], ",",
  395. RowBox[{"{",
  396. RowBox[{
  397. RowBox[{"{",
  398. RowBox[{
  399. RowBox[{"-", "8"}], ",", "0", ",", "0"}], "}"}], ",",
  400. RowBox[{"{",
  401. RowBox[{"9", ",",
  402. RowBox[{"1", "/", "8"}], ",", "0"}], "}"}], ",",
  403. RowBox[{"{",
  404. RowBox[{"72", ",",
  405. RowBox[{"-", "8"}], ",", "0"}], "}"}], ",",
  406. RowBox[{"{",
  407. RowBox[{"73", ",",
  408. RowBox[{
  409. RowBox[{"-", "63"}], "/", "8"}], ",", "2"}], "}"}]}], "}"}],
  410. ",",
  411. RowBox[{"{",
  412. RowBox[{
  413. RowBox[{"{",
  414. RowBox[{
  415. RowBox[{"-", "8"}], ",", "0", ",", "0"}], "}"}], ",",
  416. RowBox[{"{",
  417. RowBox[{"12", ",",
  418. RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",",
  419. RowBox[{"{",
  420. RowBox[{"25", ",",
  421. RowBox[{
  422. RowBox[{"-", "15"}], "/", "8"}], ",",
  423. RowBox[{"-", "1"}]}], "}"}], ",",
  424. RowBox[{"{",
  425. RowBox[{"25", ",",
  426. RowBox[{
  427. RowBox[{"-", "15"}], "/", "8"}], ",", "1"}], "}"}]}], "}"}],
  428. ",",
  429. RowBox[{"{",
  430. RowBox[{
  431. RowBox[{"{",
  432. RowBox[{
  433. RowBox[{"-", "8"}], ",", "0", ",", "0"}], "}"}], ",",
  434. RowBox[{"{",
  435. RowBox[{"13", ",",
  436. RowBox[{"5", "/", "8"}], ",", "0"}], "}"}], ",",
  437. RowBox[{"{",
  438. RowBox[{"21", ",",
  439. RowBox[{
  440. RowBox[{"-", "63"}], "/", "40"}], ",",
  441. RowBox[{
  442. RowBox[{"-", "2"}], "/", "5"}]}], "}"}], ",",
  443. RowBox[{"{",
  444. RowBox[{"24", ",",
  445. RowBox[{
  446. RowBox[{"-", "6"}], "/", "5"}], ",",
  447. RowBox[{"8", "/", "5"}]}], "}"}]}], "}"}], ",",
  448. RowBox[{"{",
  449. RowBox[{
  450. RowBox[{"{",
  451. RowBox[{
  452. RowBox[{"-", "9"}], ",", "0", ",", "0"}], "}"}], ",",
  453. RowBox[{"{",
  454. RowBox[{"10", ",",
  455. RowBox[{"1", "/", "9"}], ",", "0"}], "}"}], ",",
  456. RowBox[{"{",
  457. RowBox[{"90", ",",
  458. RowBox[{"-", "9"}], ",", "0"}], "}"}], ",",
  459. RowBox[{"{",
  460. RowBox[{"91", ",",
  461. RowBox[{
  462. RowBox[{"-", "80"}], "/", "9"}], ",", "2"}], "}"}]}], "}"}],
  463. ",",
  464. RowBox[{"{",
  465. RowBox[{
  466. RowBox[{"{",
  467. RowBox[{
  468. RowBox[{"-", "9"}], ",", "0", ",", "0"}], "}"}], ",",
  469. RowBox[{"{",
  470. RowBox[{"11", ",",
  471. RowBox[{"2", "/", "9"}], ",", "0"}], "}"}], ",",
  472. RowBox[{"{",
  473. RowBox[{"50", ",",
  474. RowBox[{
  475. RowBox[{"-", "40"}], "/", "9"}], ",",
  476. RowBox[{"-", "1"}]}], "}"}], ",",
  477. RowBox[{"{",
  478. RowBox[{"50", ",",
  479. RowBox[{
  480. RowBox[{"-", "40"}], "/", "9"}], ",", "1"}], "}"}]}], "}"}],
  481. ",",
  482. RowBox[{"{",
  483. RowBox[{
  484. RowBox[{"{",
  485. RowBox[{
  486. RowBox[{"-", "9"}], ",", "0", ",", "0"}], "}"}], ",",
  487. RowBox[{"{",
  488. RowBox[{"14", ",",
  489. RowBox[{"5", "/", "9"}], ",", "0"}], "}"}], ",",
  490. RowBox[{"{",
  491. RowBox[{"26", ",",
  492. RowBox[{
  493. RowBox[{"-", "77"}], "/", "45"}], ",",
  494. RowBox[{
  495. RowBox[{"-", "4"}], "/", "5"}]}], "}"}], ",",
  496. RowBox[{"{",
  497. RowBox[{"27", ",",
  498. RowBox[{
  499. RowBox[{"-", "8"}], "/", "5"}], ",",
  500. RowBox[{"6", "/", "5"}]}], "}"}]}], "}"}], ",",
  501. RowBox[{"{",
  502. RowBox[{
  503. RowBox[{"{",
  504. RowBox[{
  505. RowBox[{"-", "9"}], ",", "0", ",", "0"}], "}"}], ",",
  506. RowBox[{"{",
  507. RowBox[{"18", ",", "1", ",", "0"}], "}"}], ",",
  508. RowBox[{"{",
  509. RowBox[{"19", ",",
  510. RowBox[{
  511. RowBox[{"-", "8"}], "/", "9"}], ",",
  512. RowBox[{
  513. RowBox[{"-", "2"}], "/", "3"}]}], "}"}], ",",
  514. RowBox[{"{",
  515. RowBox[{"22", ",",
  516. RowBox[{
  517. RowBox[{"-", "5"}], "/", "9"}], ",",
  518. RowBox[{"4", "/", "3"}]}], "}"}]}], "}"}], ",",
  519. RowBox[{"{",
  520. RowBox[{
  521. RowBox[{"{",
  522. RowBox[{
  523. RowBox[{"-", "10"}], ",", "0", ",", "0"}], "}"}], ",",
  524. RowBox[{"{",
  525. RowBox[{"11", ",",
  526. RowBox[{"1", "/", "10"}], ",", "0"}], "}"}], ",",
  527. RowBox[{"{",
  528. RowBox[{"110", ",",
  529. RowBox[{"-", "10"}], ",", "0"}], "}"}], ",",
  530. RowBox[{"{",
  531. RowBox[{"111", ",",
  532. RowBox[{
  533. RowBox[{"-", "99"}], "/", "10"}], ",", "2"}], "}"}]}], "}"}],
  534. ",",
  535. RowBox[{"{",
  536. RowBox[{
  537. RowBox[{"{",
  538. RowBox[{
  539. RowBox[{"-", "10"}], ",", "0", ",", "0"}], "}"}], ",",
  540. RowBox[{"{",
  541. RowBox[{"14", ",",
  542. RowBox[{"2", "/", "5"}], ",", "0"}], "}"}], ",",
  543. RowBox[{"{",
  544. RowBox[{"35", ",",
  545. RowBox[{
  546. RowBox[{"-", "5"}], "/", "2"}], ",", "0"}], "}"}], ",",
  547. RowBox[{"{",
  548. RowBox[{"39", ",",
  549. RowBox[{
  550. RowBox[{"-", "21"}], "/", "10"}], ",", "2"}], "}"}]}], "}"}],
  551. ",",
  552. RowBox[{"{",
  553. RowBox[{
  554. RowBox[{"{",
  555. RowBox[{
  556. RowBox[{"-", "10"}], ",", "0", ",", "0"}], "}"}], ",",
  557. RowBox[{"{",
  558. RowBox[{"18", ",",
  559. RowBox[{"4", "/", "5"}], ",", "0"}], "}"}], ",",
  560. RowBox[{"{",
  561. RowBox[{"23", ",",
  562. RowBox[{
  563. RowBox[{"-", "6"}], "/", "5"}], ",",
  564. RowBox[{
  565. RowBox[{"-", "1"}], "/", "2"}]}], "}"}], ",",
  566. RowBox[{"{",
  567. RowBox[{"27", ",",
  568. RowBox[{
  569. RowBox[{"-", "4"}], "/", "5"}], ",",
  570. RowBox[{"3", "/", "2"}]}], "}"}]}], "}"}], ",",
  571. RowBox[{"{",
  572. RowBox[{
  573. RowBox[{"{",
  574. RowBox[{
  575. RowBox[{"-", "11"}], ",", "0", ",", "0"}], "}"}], ",",
  576. RowBox[{"{",
  577. RowBox[{"12", ",",
  578. RowBox[{"1", "/", "11"}], ",", "0"}], "}"}], ",",
  579. RowBox[{"{",
  580. RowBox[{"132", ",",
  581. RowBox[{"-", "11"}], ",", "0"}], "}"}], ",",
  582. RowBox[{"{",
  583. RowBox[{"133", ",",
  584. RowBox[{
  585. RowBox[{"-", "120"}], "/", "11"}], ",", "2"}], "}"}]}], "}"}],
  586. ",",
  587. RowBox[{"{",
  588. RowBox[{
  589. RowBox[{"{",
  590. RowBox[{
  591. RowBox[{"-", "11"}], ",", "0", ",", "0"}], "}"}], ",",
  592. RowBox[{"{",
  593. RowBox[{"13", ",",
  594. RowBox[{"2", "/", "11"}], ",", "0"}], "}"}], ",",
  595. RowBox[{"{",
  596. RowBox[{"72", ",",
  597. RowBox[{
  598. RowBox[{"-", "60"}], "/", "11"}], ",",
  599. RowBox[{"-", "1"}]}], "}"}], ",",
  600. RowBox[{"{",
  601. RowBox[{"72", ",",
  602. RowBox[{
  603. RowBox[{"-", "60"}], "/", "11"}], ",", "1"}], "}"}]}], "}"}],
  604. ",",
  605. RowBox[{"{",
  606. RowBox[{
  607. RowBox[{"{",
  608. RowBox[{
  609. RowBox[{"-", "11"}], ",", "0", ",", "0"}], "}"}], ",",
  610. RowBox[{"{",
  611. RowBox[{"16", ",",
  612. RowBox[{"5", "/", "11"}], ",", "0"}], "}"}], ",",
  613. RowBox[{"{",
  614. RowBox[{"36", ",",
  615. RowBox[{
  616. RowBox[{"-", "117"}], "/", "55"}], ",",
  617. RowBox[{
  618. RowBox[{"-", "4"}], "/", "5"}]}], "}"}], ",",
  619. RowBox[{"{",
  620. RowBox[{"37", ",",
  621. RowBox[{
  622. RowBox[{"-", "112"}], "/", "55"}], ",",
  623. RowBox[{"6", "/", "5"}]}], "}"}]}], "}"}], ",",
  624. RowBox[{"{",
  625. RowBox[{
  626. RowBox[{"{",
  627. RowBox[{
  628. RowBox[{"-", "11"}], ",", "0", ",", "0"}], "}"}], ",",
  629. RowBox[{"{",
  630. RowBox[{"21", ",",
  631. RowBox[{"10", "/", "11"}], ",", "0"}], "}"}], ",",
  632. RowBox[{"{",
  633. RowBox[{"24", ",",
  634. RowBox[{
  635. RowBox[{"-", "56"}], "/", "55"}], ",",
  636. RowBox[{
  637. RowBox[{"-", "3"}], "/", "5"}]}], "}"}], ",",
  638. RowBox[{"{",
  639. RowBox[{"28", ",",
  640. RowBox[{
  641. RowBox[{"-", "36"}], "/", "55"}], ",",
  642. RowBox[{"7", "/", "5"}]}], "}"}]}], "}"}], ",",
  643. RowBox[{"{",
  644. RowBox[{
  645. RowBox[{"{",
  646. RowBox[{
  647. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  648. RowBox[{"{",
  649. RowBox[{"13", ",",
  650. RowBox[{"1", "/", "12"}], ",", "0"}], "}"}], ",",
  651. RowBox[{"{",
  652. RowBox[{"156", ",",
  653. RowBox[{"-", "12"}], ",", "0"}], "}"}], ",",
  654. RowBox[{"{",
  655. RowBox[{"157", ",",
  656. RowBox[{
  657. RowBox[{"-", "143"}], "/", "12"}], ",", "2"}], "}"}]}], "}"}],
  658. ",",
  659. RowBox[{"{",
  660. RowBox[{
  661. RowBox[{"{",
  662. RowBox[{
  663. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  664. RowBox[{"{",
  665. RowBox[{"16", ",",
  666. RowBox[{"1", "/", "3"}], ",", "0"}], "}"}], ",",
  667. RowBox[{"{",
  668. RowBox[{"49", ",",
  669. RowBox[{
  670. RowBox[{"-", "35"}], "/", "12"}], ",",
  671. RowBox[{"-", "1"}]}], "}"}], ",",
  672. RowBox[{"{",
  673. RowBox[{"49", ",",
  674. RowBox[{
  675. RowBox[{"-", "35"}], "/", "12"}], ",", "1"}], "}"}]}], "}"}],
  676. ",",
  677. RowBox[{"{",
  678. RowBox[{
  679. RowBox[{"{",
  680. RowBox[{
  681. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  682. RowBox[{"{",
  683. RowBox[{"17", ",",
  684. RowBox[{"5", "/", "12"}], ",", "0"}], "}"}], ",",
  685. RowBox[{"{",
  686. RowBox[{"41", ",",
  687. RowBox[{
  688. RowBox[{"-", "143"}], "/", "60"}], ",",
  689. RowBox[{
  690. RowBox[{"-", "2"}], "/", "5"}]}], "}"}], ",",
  691. RowBox[{"{",
  692. RowBox[{"44", ",",
  693. RowBox[{
  694. RowBox[{"-", "32"}], "/", "15"}], ",",
  695. RowBox[{"8", "/", "5"}]}], "}"}]}], "}"}], ",",
  696. RowBox[{"{",
  697. RowBox[{
  698. RowBox[{"{",
  699. RowBox[{
  700. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  701. RowBox[{"{",
  702. RowBox[{"21", ",",
  703. RowBox[{"3", "/", "4"}], ",", "0"}], "}"}], ",",
  704. RowBox[{"{",
  705. RowBox[{"28", ",",
  706. RowBox[{
  707. RowBox[{"-", "4"}], "/", "3"}], ",", "0"}], "}"}], ",",
  708. RowBox[{"{",
  709. RowBox[{"37", ",",
  710. RowBox[{
  711. RowBox[{"-", "7"}], "/", "12"}], ",", "2"}], "}"}]}], "}"}],
  712. ",",
  713. RowBox[{"{",
  714. RowBox[{
  715. RowBox[{"{",
  716. RowBox[{
  717. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  718. RowBox[{"{",
  719. RowBox[{"21", ",",
  720. RowBox[{"3", "/", "4"}], ",", "0"}], "}"}], ",",
  721. RowBox[{"{",
  722. RowBox[{"29", ",",
  723. RowBox[{
  724. RowBox[{"-", "5"}], "/", "4"}], ",",
  725. RowBox[{
  726. RowBox[{"-", "2"}], "/", "3"}]}], "}"}], ",",
  727. RowBox[{"{",
  728. RowBox[{"32", ",",
  729. RowBox[{"-", "1"}], ",",
  730. RowBox[{"4", "/", "3"}]}], "}"}]}], "}"}], ",",
  731. RowBox[{"{",
  732. RowBox[{
  733. RowBox[{"{",
  734. RowBox[{
  735. RowBox[{"-", "12"}], ",", "0", ",", "0"}], "}"}], ",",
  736. RowBox[{"{",
  737. RowBox[{"25", ",",
  738. RowBox[{"13", "/", "12"}], ",", "0"}], "}"}], ",",
  739. RowBox[{"{",
  740. RowBox[{"25", ",",
  741. RowBox[{
  742. RowBox[{"-", "119"}], "/", "156"}], ",",
  743. RowBox[{
  744. RowBox[{"-", "10"}], "/", "13"}]}], "}"}], ",",
  745. RowBox[{"{",
  746. RowBox[{"28", ",",
  747. RowBox[{
  748. RowBox[{"-", "20"}], "/", "39"}], ",",
  749. RowBox[{"16", "/", "13"}]}], "}"}]}], "}"}], ",",
  750. RowBox[{"{",
  751. RowBox[{
  752. RowBox[{"{",
  753. RowBox[{
  754. RowBox[{"-", "13"}], ",", "0", ",", "0"}], "}"}], ",",
  755. RowBox[{"{",
  756. RowBox[{"14", ",",
  757. RowBox[{"1", "/", "13"}], ",", "0"}], "}"}], ",",
  758. RowBox[{"{",
  759. RowBox[{"182", ",",
  760. RowBox[{"-", "13"}], ",", "0"}], "}"}], ",",
  761. RowBox[{"{",
  762. RowBox[{"183", ",",
  763. RowBox[{
  764. RowBox[{"-", "168"}], "/", "13"}], ",", "2"}], "}"}]}], "}"}],
  765. ",",
  766. RowBox[{"{",
  767. RowBox[{
  768. RowBox[{"{",
  769. RowBox[{
  770. RowBox[{"-", "13"}], ",", "0", ",", "0"}], "}"}], ",",
  771. RowBox[{"{",
  772. RowBox[{"15", ",",
  773. RowBox[{"2", "/", "13"}], ",", "0"}], "}"}], ",",
  774. RowBox[{"{",
  775. RowBox[{"98", ",",
  776. RowBox[{
  777. RowBox[{"-", "84"}], "/", "13"}], ",",
  778. RowBox[{"-", "1"}]}], "}"}], ",",
  779. RowBox[{"{",
  780. RowBox[{"98", ",",
  781. RowBox[{
  782. RowBox[{"-", "84"}], "/", "13"}], ",", "1"}], "}"}]}], "}"}],
  783. ",",
  784. RowBox[{"{",
  785. RowBox[{
  786. RowBox[{"{",
  787. RowBox[{
  788. RowBox[{"-", "13"}], ",", "0", ",", "0"}], "}"}], ",",
  789. RowBox[{"{",
  790. RowBox[{"18", ",",
  791. RowBox[{"5", "/", "13"}], ",", "0"}], "}"}], ",",
  792. RowBox[{"{",
  793. RowBox[{"47", ",",
  794. RowBox[{
  795. RowBox[{"-", "168"}], "/", "65"}], ",",
  796. RowBox[{
  797. RowBox[{"-", "2"}], "/", "5"}]}], "}"}], ",",
  798. RowBox[{"{",
  799. RowBox[{"50", ",",
  800. RowBox[{
  801. RowBox[{"-", "153"}], "/", "65"}], ",",
  802. RowBox[{"8", "/", "5"}]}], "}"}]}], "}"}], ",",
  803. RowBox[{"{",
  804. RowBox[{
  805. RowBox[{"{",
  806. RowBox[{
  807. RowBox[{"-", "13"}], ",", "0", ",", "0"}], "}"}], ",",
  808. RowBox[{"{",
  809. RowBox[{"23", ",",
  810. RowBox[{"10", "/", "13"}], ",", "0"}], "}"}], ",",
  811. RowBox[{"{",
  812. RowBox[{"30", ",",
  813. RowBox[{
  814. RowBox[{"-", "84"}], "/", "65"}], ",",
  815. RowBox[{
  816. RowBox[{"-", "1"}], "/", "5"}]}], "}"}], ",",
  817. RowBox[{"{",
  818. RowBox[{"38", ",",
  819. RowBox[{
  820. RowBox[{"-", "44"}], "/", "65"}], ",",
  821. RowBox[{"9", "/", "5"}]}], "}"}]}], "}"}], ",",
  822. RowBox[{"{",
  823. RowBox[{
  824. RowBox[{"{",
  825. RowBox[{
  826. RowBox[{"-", "14"}], ",", "0", ",", "0"}], "}"}], ",",
  827. RowBox[{"{",
  828. RowBox[{"15", ",",
  829. RowBox[{"1", "/", "14"}], ",", "0"}], "}"}], ",",
  830. RowBox[{"{",
  831. RowBox[{"210", ",",
  832. RowBox[{"-", "14"}], ",", "0"}], "}"}], ",",
  833. RowBox[{"{",
  834. RowBox[{"211", ",",
  835. RowBox[{
  836. RowBox[{"-", "195"}], "/", "14"}], ",", "2"}], "}"}]}], "}"}],
  837. ",",
  838. RowBox[{"{",
  839. RowBox[{
  840. RowBox[{"{",
  841. RowBox[{
  842. RowBox[{"-", "14"}], ",", "0", ",", "0"}], "}"}], ",",
  843. RowBox[{"{",
  844. RowBox[{"18", ",",
  845. RowBox[{"2", "/", "7"}], ",", "0"}], "}"}], ",",
  846. RowBox[{"{",
  847. RowBox[{"63", ",",
  848. RowBox[{
  849. RowBox[{"-", "7"}], "/", "2"}], ",", "0"}], "}"}], ",",
  850. RowBox[{"{",
  851. RowBox[{"67", ",",
  852. RowBox[{
  853. RowBox[{"-", "45"}], "/", "14"}], ",", "2"}], "}"}]}], "}"}],
  854. ",",
  855. RowBox[{"{",
  856. RowBox[{
  857. RowBox[{"{",
  858. RowBox[{
  859. RowBox[{"-", "14"}], ",", "0", ",", "0"}], "}"}], ",",
  860. RowBox[{"{",
  861. RowBox[{"19", ",",
  862. RowBox[{"5", "/", "14"}], ",", "0"}], "}"}], ",",
  863. RowBox[{"{",
  864. RowBox[{"54", ",",
  865. RowBox[{
  866. RowBox[{"-", "96"}], "/", "35"}], ",",
  867. RowBox[{
  868. RowBox[{"-", "4"}], "/", "5"}]}], "}"}], ",",
  869. RowBox[{"{",
  870. RowBox[{"55", ",",
  871. RowBox[{
  872. RowBox[{"-", "187"}], "/", "70"}], ",",
  873. RowBox[{"6", "/", "5"}]}], "}"}]}], "}"}], ",",
  874. RowBox[{"{",
  875. RowBox[{
  876. RowBox[{"{",
  877. RowBox[{
  878. RowBox[{"-", "14"}], ",", "0", ",", "0"}], "}"}], ",",
  879. RowBox[{"{",
  880. RowBox[{"22", ",",
  881. RowBox[{"4", "/", "7"}], ",", "0"}], "}"}], ",",
  882. RowBox[{"{",
  883. RowBox[{"39", ",",
  884. RowBox[{
  885. RowBox[{"-", "12"}], "/", "7"}], ",",
  886. RowBox[{
  887. RowBox[{"-", "1"}], "/", "2"}]}], "}"}], ",",
  888. RowBox[{"{",
  889. RowBox[{"43", ",",
  890. RowBox[{
  891. RowBox[{"-", "10"}], "/", "7"}], ",",
  892. RowBox[{"3", "/", "2"}]}], "}"}]}], "}"}], ",",
  893. RowBox[{"{",
  894. RowBox[{
  895. RowBox[{"{",
  896. RowBox[{
  897. RowBox[{"-", "14"}], ",", "0", ",", "0"}], "}"}], ",",
  898. RowBox[{"{",
  899. RowBox[{"27", ",",
  900. RowBox[{"13", "/", "14"}], ",", "0"}], "}"}], ",",
  901. RowBox[{"{",
  902. RowBox[{"31", ",",
  903. RowBox[{
  904. RowBox[{"-", "171"}], "/", "182"}], ",",
  905. RowBox[{
  906. RowBox[{"-", "10"}], "/", "13"}]}], "}"}], ",",
  907. RowBox[{"{",
  908. RowBox[{"34", ",",
  909. RowBox[{
  910. RowBox[{"-", "66"}], "/", "91"}], ",",
  911. RowBox[{"16", "/", "13"}]}], "}"}]}], "}"}], ",",
  912. RowBox[{"{",
  913. RowBox[{
  914. RowBox[{"{",
  915. RowBox[{
  916. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  917. RowBox[{"{",
  918. RowBox[{"16", ",",
  919. RowBox[{"1", "/", "15"}], ",", "0"}], "}"}], ",",
  920. RowBox[{"{",
  921. RowBox[{"240", ",",
  922. RowBox[{"-", "15"}], ",", "0"}], "}"}], ",",
  923. RowBox[{"{",
  924. RowBox[{"241", ",",
  925. RowBox[{
  926. RowBox[{"-", "224"}], "/", "15"}], ",", "2"}], "}"}]}], "}"}],
  927. ",",
  928. RowBox[{"{",
  929. RowBox[{
  930. RowBox[{"{",
  931. RowBox[{
  932. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  933. RowBox[{"{",
  934. RowBox[{"17", ",",
  935. RowBox[{"2", "/", "15"}], ",", "0"}], "}"}], ",",
  936. RowBox[{"{",
  937. RowBox[{"128", ",",
  938. RowBox[{
  939. RowBox[{"-", "112"}], "/", "15"}], ",",
  940. RowBox[{"-", "1"}]}], "}"}], ",",
  941. RowBox[{"{",
  942. RowBox[{"128", ",",
  943. RowBox[{
  944. RowBox[{"-", "112"}], "/", "15"}], ",", "1"}], "}"}]}], "}"}],
  945. ",",
  946. RowBox[{"{",
  947. RowBox[{
  948. RowBox[{"{",
  949. RowBox[{
  950. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  951. RowBox[{"{",
  952. RowBox[{"24", ",",
  953. RowBox[{"3", "/", "5"}], ",", "0"}], "}"}], ",",
  954. RowBox[{"{",
  955. RowBox[{"40", ",",
  956. RowBox[{
  957. RowBox[{"-", "5"}], "/", "3"}], ",", "0"}], "}"}], ",",
  958. RowBox[{"{",
  959. RowBox[{"49", ",",
  960. RowBox[{
  961. RowBox[{"-", "16"}], "/", "15"}], ",", "2"}], "}"}]}], "}"}],
  962. ",",
  963. RowBox[{"{",
  964. RowBox[{
  965. RowBox[{"{",
  966. RowBox[{
  967. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  968. RowBox[{"{",
  969. RowBox[{"24", ",",
  970. RowBox[{"3", "/", "5"}], ",", "0"}], "}"}], ",",
  971. RowBox[{"{",
  972. RowBox[{"41", ",",
  973. RowBox[{
  974. RowBox[{"-", "8"}], "/", "5"}], ",",
  975. RowBox[{
  976. RowBox[{"-", "2"}], "/", "3"}]}], "}"}], ",",
  977. RowBox[{"{",
  978. RowBox[{"44", ",",
  979. RowBox[{
  980. RowBox[{"-", "7"}], "/", "5"}], ",",
  981. RowBox[{"4", "/", "3"}]}], "}"}]}], "}"}], ",",
  982. RowBox[{"{",
  983. RowBox[{
  984. RowBox[{"{",
  985. RowBox[{
  986. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  987. RowBox[{"{",
  988. RowBox[{"28", ",",
  989. RowBox[{"13", "/", "15"}], ",", "0"}], "}"}], ",",
  990. RowBox[{"{",
  991. RowBox[{"33", ",",
  992. RowBox[{
  993. RowBox[{"-", "72"}], "/", "65"}], ",",
  994. RowBox[{
  995. RowBox[{"-", "6"}], "/", "13"}]}], "}"}], ",",
  996. RowBox[{"{",
  997. RowBox[{"40", ",",
  998. RowBox[{
  999. RowBox[{"-", "25"}], "/", "39"}], ",",
  1000. RowBox[{"20", "/", "13"}]}], "}"}]}], "}"}], ",",
  1001. RowBox[{"{",
  1002. RowBox[{
  1003. RowBox[{"{",
  1004. RowBox[{
  1005. RowBox[{"-", "15"}], ",", "0", ",", "0"}], "}"}], ",",
  1006. RowBox[{"{",
  1007. RowBox[{"32", ",",
  1008. RowBox[{"17", "/", "15"}], ",", "0"}], "}"}], ",",
  1009. RowBox[{"{",
  1010. RowBox[{"32", ",",
  1011. RowBox[{
  1012. RowBox[{"-", "161"}], "/", "255"}], ",",
  1013. RowBox[{
  1014. RowBox[{"-", "16"}], "/", "17"}]}], "}"}], ",",
  1015. RowBox[{"{",
  1016. RowBox[{"33", ",",
  1017. RowBox[{
  1018. RowBox[{"-", "48"}], "/", "85"}], ",",
  1019. RowBox[{"18", "/", "17"}]}], "}"}]}], "}"}]}], "}"}]}]}],
  1020. ")"}]}], ",",
  1021. RowBox[{"TrackedSymbols", ":>",
  1022. RowBox[{"{", "ipt", "}"}]}], ",",
  1023. RowBox[{"SynchronousUpdating", "\[Rule]", "False"}], ",",
  1024. RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]",
  1025. "]"}]], "Input",
  1026. CellChangeTimes->CompressedData["
  1027. 1:eJxTTMoPSmViYGCQAWIQzdDQGqv555UjnGbgSoLQe7Mg9OY8CH2vFEIfqoOo
  1028. L2uA8P/NgfC150PouOUQ8eUrILTxKwjd/Boiv+QThN4FpSexaIHpDjYwzbD+
  1029. BISvfh5Cf74BEW98COEbv4Dw7SB0w/oPENrsE0Q86BuE3vgdQi9g1YaIc4Lp
  1030. hl4+CL1KACL+yxxCT7SAiMvZQfj7ofQENwhd6g2R9/eH8IWCIfSxLl2w+I1u
  1031. CL1/JphmOA2lXVdDxGs2QPipx6HqITSDyXkIvwlCM1TdgvDL70JoqQX6YJph
  1032. IZhmCNsF4U/bC6IBP4/Nww==
  1033. "]],
  1034.  
  1035. Cell[BoxData[
  1036. TagBox[
  1037. StyleBox[
  1038. DynamicModuleBox[{$CellContext`ipt$$ = {{-1, 0, 0}, {2, 1, 0}, {2, -1,
  1039. 0}, {3, 0, 2}}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
  1040. Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
  1041. 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
  1042. Hold[$CellContext`ipt$$], {{{-1, 0, 0}, {2, 1, 0}, {2, -1, 0}, {3, 0,
  1043. 2}}, {{-2, 0, 0}, {3,
  1044. Rational[1, 2], 0}, {6, -2, 0}, {7,
  1045. Rational[-3, 2], 2}}, {{-3, 0, 0}, {4,
  1046. Rational[1, 3], 0}, {12, -3, 0}, {13,
  1047. Rational[-8, 3], 2}}, {{-3, 0, 0}, {5,
  1048. Rational[2, 3], 0}, {8,
  1049. Rational[-4, 3], -1}, {8,
  1050. Rational[-4, 3], 1}}, {{-4, 0, 0}, {5,
  1051. Rational[1, 4], 0}, {20, -4, 0}, {21,
  1052. Rational[-15, 4], 2}}, {{-4, 0, 0}, {8, 1, 0}, {9,
  1053. Rational[-3, 4], -1}, {9,
  1054. Rational[-3, 4], 1}}, {{-5, 0, 0}, {6,
  1055. Rational[1, 5], 0}, {30, -5, 0}, {31,
  1056. Rational[-24, 5], 2}}, {{-5, 0, 0}, {7,
  1057. Rational[2, 5], 0}, {18,
  1058. Rational[-12, 5], -1}, {18,
  1059. Rational[-12, 5], 1}}, {{-6, 0, 0}, {7,
  1060. Rational[1, 6], 0}, {42, -6, 0}, {43,
  1061. Rational[-35, 6], 2}}, {{-6, 0, 0}, {10,
  1062. Rational[2, 3], 0}, {15,
  1063. Rational[-3, 2], 0}, {19,
  1064. Rational[-5, 6], 2}}, {{-6, 0, 0}, {11,
  1065. Rational[5, 6], 0}, {14,
  1066. Rational[-16, 15],
  1067. Rational[-4, 5]}, {15,
  1068. Rational[-9, 10],
  1069. Rational[6, 5]}}, {{-7, 0, 0}, {8,
  1070. Rational[1, 7], 0}, {56, -7, 0}, {57,
  1071. Rational[-48, 7], 2}}, {{-7, 0, 0}, {9,
  1072. Rational[2, 7], 0}, {32,
  1073. Rational[-24, 7], -1}, {32,
  1074. Rational[-24, 7], 1}}, {{-7, 0, 0}, {12,
  1075. Rational[5, 7], 0}, {17,
  1076. Rational[-48, 35],
  1077. Rational[-2, 5]}, {20,
  1078. Rational[-33, 35],
  1079. Rational[8, 5]}}, {{-8, 0, 0}, {9,
  1080. Rational[1, 8], 0}, {72, -8, 0}, {73,
  1081. Rational[-63, 8], 2}}, {{-8, 0, 0}, {12,
  1082. Rational[1, 2], 0}, {25,
  1083. Rational[-15, 8], -1}, {25,
  1084. Rational[-15, 8], 1}}, {{-8, 0, 0}, {13,
  1085. Rational[5, 8], 0}, {21,
  1086. Rational[-63, 40],
  1087. Rational[-2, 5]}, {24,
  1088. Rational[-6, 5],
  1089. Rational[8, 5]}}, {{-9, 0, 0}, {10,
  1090. Rational[1, 9], 0}, {90, -9, 0}, {91,
  1091. Rational[-80, 9], 2}}, {{-9, 0, 0}, {11,
  1092. Rational[2, 9], 0}, {50,
  1093. Rational[-40, 9], -1}, {50,
  1094. Rational[-40, 9], 1}}, {{-9, 0, 0}, {14,
  1095. Rational[5, 9], 0}, {26,
  1096. Rational[-77, 45],
  1097. Rational[-4, 5]}, {27,
  1098. Rational[-8, 5],
  1099. Rational[6, 5]}}, {{-9, 0, 0}, {18, 1, 0}, {19,
  1100. Rational[-8, 9],
  1101. Rational[-2, 3]}, {22,
  1102. Rational[-5, 9],
  1103. Rational[4, 3]}}, {{-10, 0, 0}, {11,
  1104. Rational[1, 10], 0}, {110, -10, 0}, {111,
  1105. Rational[-99, 10], 2}}, {{-10, 0, 0}, {14,
  1106. Rational[2, 5], 0}, {35,
  1107. Rational[-5, 2], 0}, {39,
  1108. Rational[-21, 10], 2}}, {{-10, 0, 0}, {18,
  1109. Rational[4, 5], 0}, {23,
  1110. Rational[-6, 5],
  1111. Rational[-1, 2]}, {27,
  1112. Rational[-4, 5],
  1113. Rational[3, 2]}}, {{-11, 0, 0}, {12,
  1114. Rational[1, 11], 0}, {132, -11, 0}, {133,
  1115. Rational[-120, 11], 2}}, {{-11, 0, 0}, {13,
  1116. Rational[2, 11], 0}, {72,
  1117. Rational[-60, 11], -1}, {72,
  1118. Rational[-60, 11], 1}}, {{-11, 0, 0}, {16,
  1119. Rational[5, 11], 0}, {36,
  1120. Rational[-117, 55],
  1121. Rational[-4, 5]}, {37,
  1122. Rational[-112, 55],
  1123. Rational[6, 5]}}, {{-11, 0, 0}, {21,
  1124. Rational[10, 11], 0}, {24,
  1125. Rational[-56, 55],
  1126. Rational[-3, 5]}, {28,
  1127. Rational[-36, 55],
  1128. Rational[7, 5]}}, {{-12, 0, 0}, {13,
  1129. Rational[1, 12], 0}, {156, -12, 0}, {157,
  1130. Rational[-143, 12], 2}}, {{-12, 0, 0}, {16,
  1131. Rational[1, 3], 0}, {49,
  1132. Rational[-35, 12], -1}, {49,
  1133. Rational[-35, 12], 1}}, {{-12, 0, 0}, {17,
  1134. Rational[5, 12], 0}, {41,
  1135. Rational[-143, 60],
  1136. Rational[-2, 5]}, {44,
  1137. Rational[-32, 15],
  1138. Rational[8, 5]}}, {{-12, 0, 0}, {21,
  1139. Rational[3, 4], 0}, {28,
  1140. Rational[-4, 3], 0}, {37,
  1141. Rational[-7, 12], 2}}, {{-12, 0, 0}, {21,
  1142. Rational[3, 4], 0}, {29,
  1143. Rational[-5, 4],
  1144. Rational[-2, 3]}, {32, -1,
  1145. Rational[4, 3]}}, {{-12, 0, 0}, {25,
  1146. Rational[13, 12], 0}, {25,
  1147. Rational[-119, 156],
  1148. Rational[-10, 13]}, {28,
  1149. Rational[-20, 39],
  1150. Rational[16, 13]}}, {{-13, 0, 0}, {14,
  1151. Rational[1, 13], 0}, {182, -13, 0}, {183,
  1152. Rational[-168, 13], 2}}, {{-13, 0, 0}, {15,
  1153. Rational[2, 13], 0}, {98,
  1154. Rational[-84, 13], -1}, {98,
  1155. Rational[-84, 13], 1}}, {{-13, 0, 0}, {18,
  1156. Rational[5, 13], 0}, {47,
  1157. Rational[-168, 65],
  1158. Rational[-2, 5]}, {50,
  1159. Rational[-153, 65],
  1160. Rational[8, 5]}}, {{-13, 0, 0}, {23,
  1161. Rational[10, 13], 0}, {30,
  1162. Rational[-84, 65],
  1163. Rational[-1, 5]}, {38,
  1164. Rational[-44, 65],
  1165. Rational[9, 5]}}, {{-14, 0, 0}, {15,
  1166. Rational[1, 14], 0}, {210, -14, 0}, {211,
  1167. Rational[-195, 14], 2}}, {{-14, 0, 0}, {18,
  1168. Rational[2, 7], 0}, {63,
  1169. Rational[-7, 2], 0}, {67,
  1170. Rational[-45, 14], 2}}, {{-14, 0, 0}, {19,
  1171. Rational[5, 14], 0}, {54,
  1172. Rational[-96, 35],
  1173. Rational[-4, 5]}, {55,
  1174. Rational[-187, 70],
  1175. Rational[6, 5]}}, {{-14, 0, 0}, {22,
  1176. Rational[4, 7], 0}, {39,
  1177. Rational[-12, 7],
  1178. Rational[-1, 2]}, {43,
  1179. Rational[-10, 7],
  1180. Rational[3, 2]}}, {{-14, 0, 0}, {27,
  1181. Rational[13, 14], 0}, {31,
  1182. Rational[-171, 182],
  1183. Rational[-10, 13]}, {34,
  1184. Rational[-66, 91],
  1185. Rational[16, 13]}}, {{-15, 0, 0}, {16,
  1186. Rational[1, 15], 0}, {240, -15, 0}, {241,
  1187. Rational[-224, 15], 2}}, {{-15, 0, 0}, {17,
  1188. Rational[2, 15], 0}, {128,
  1189. Rational[-112, 15], -1}, {128,
  1190. Rational[-112, 15], 1}}, {{-15, 0, 0}, {24,
  1191. Rational[3, 5], 0}, {40,
  1192. Rational[-5, 3], 0}, {49,
  1193. Rational[-16, 15], 2}}, {{-15, 0, 0}, {24,
  1194. Rational[3, 5], 0}, {41,
  1195. Rational[-8, 5],
  1196. Rational[-2, 3]}, {44,
  1197. Rational[-7, 5],
  1198. Rational[4, 3]}}, {{-15, 0, 0}, {28,
  1199. Rational[13, 15], 0}, {33,
  1200. Rational[-72, 65],
  1201. Rational[-6, 13]}, {40,
  1202. Rational[-25, 39],
  1203. Rational[20, 13]}}, {{-15, 0, 0}, {32,
  1204. Rational[17, 15], 0}, {32,
  1205. Rational[-161, 255],
  1206. Rational[-16, 17]}, {33,
  1207. Rational[-48, 85],
  1208. Rational[18, 17]}}}}}, Typeset`size$$ = {400., {204.5, 209.5}},
  1209. Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
  1210. False, $CellContext`ipt$54170$$ = 0},
  1211. DynamicBox[Manipulate`ManipulateBoxes[
  1212. 1, StandardForm,
  1213. "Variables" :> {$CellContext`ipt$$ = {{-1, 0, 0}, {2, 1, 0}, {2, -1,
  1214. 0}, {3, 0, 2}}}, "ControllerVariables" :> {
  1215. Hold[$CellContext`ipt$$, $CellContext`ipt$54170$$, 0]},
  1216. "OtherVariables" :> {
  1217. Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
  1218. Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
  1219. Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
  1220. Typeset`skipInitDone$$},
  1221. "Body" :> (($CellContext`f[-
  1222. Part[#, 1, 1], $CellContext`a = #]& )[$CellContext`ipt$$]; Column[{
  1223. Row[{"Number of Circles: ",
  1224. Length[$CellContext`a]}],
  1225. Graphics[
  1226. Apply[Circle,
  1227. Apply[Abs[1/#] {{#2, #3}, 1}& , $CellContext`a, {1}], {1}],
  1228. ImageSize -> 400]}]),
  1229. "Specifications" :> {{$CellContext`ipt$$, {{{-1, 0, 0}, {2, 1, 0}, {
  1230. 2, -1, 0}, {3, 0, 2}}, {{-2, 0, 0}, {3,
  1231. Rational[1, 2], 0}, {6, -2, 0}, {7,
  1232. Rational[-3, 2], 2}}, {{-3, 0, 0}, {4,
  1233. Rational[1, 3], 0}, {12, -3, 0}, {13,
  1234. Rational[-8, 3], 2}}, {{-3, 0, 0}, {5,
  1235. Rational[2, 3], 0}, {8,
  1236. Rational[-4, 3], -1}, {8,
  1237. Rational[-4, 3], 1}}, {{-4, 0, 0}, {5,
  1238. Rational[1, 4], 0}, {20, -4, 0}, {21,
  1239. Rational[-15, 4], 2}}, {{-4, 0, 0}, {8, 1, 0}, {9,
  1240. Rational[-3, 4], -1}, {9,
  1241. Rational[-3, 4], 1}}, {{-5, 0, 0}, {6,
  1242. Rational[1, 5], 0}, {30, -5, 0}, {31,
  1243. Rational[-24, 5], 2}}, {{-5, 0, 0}, {7,
  1244. Rational[2, 5], 0}, {18,
  1245. Rational[-12, 5], -1}, {18,
  1246. Rational[-12, 5], 1}}, {{-6, 0, 0}, {7,
  1247. Rational[1, 6], 0}, {42, -6, 0}, {43,
  1248. Rational[-35, 6], 2}}, {{-6, 0, 0}, {10,
  1249. Rational[2, 3], 0}, {15,
  1250. Rational[-3, 2], 0}, {19,
  1251. Rational[-5, 6], 2}}, {{-6, 0, 0}, {11,
  1252. Rational[5, 6], 0}, {14,
  1253. Rational[-16, 15],
  1254. Rational[-4, 5]}, {15,
  1255. Rational[-9, 10],
  1256. Rational[6, 5]}}, {{-7, 0, 0}, {8,
  1257. Rational[1, 7], 0}, {56, -7, 0}, {57,
  1258. Rational[-48, 7], 2}}, {{-7, 0, 0}, {9,
  1259. Rational[2, 7], 0}, {32,
  1260. Rational[-24, 7], -1}, {32,
  1261. Rational[-24, 7], 1}}, {{-7, 0, 0}, {12,
  1262. Rational[5, 7], 0}, {17,
  1263. Rational[-48, 35],
  1264. Rational[-2, 5]}, {20,
  1265. Rational[-33, 35],
  1266. Rational[8, 5]}}, {{-8, 0, 0}, {9,
  1267. Rational[1, 8], 0}, {72, -8, 0}, {73,
  1268. Rational[-63, 8], 2}}, {{-8, 0, 0}, {12,
  1269. Rational[1, 2], 0}, {25,
  1270. Rational[-15, 8], -1}, {25,
  1271. Rational[-15, 8], 1}}, {{-8, 0, 0}, {13,
  1272. Rational[5, 8], 0}, {21,
  1273. Rational[-63, 40],
  1274. Rational[-2, 5]}, {24,
  1275. Rational[-6, 5],
  1276. Rational[8, 5]}}, {{-9, 0, 0}, {10,
  1277. Rational[1, 9], 0}, {90, -9, 0}, {91,
  1278. Rational[-80, 9], 2}}, {{-9, 0, 0}, {11,
  1279. Rational[2, 9], 0}, {50,
  1280. Rational[-40, 9], -1}, {50,
  1281. Rational[-40, 9], 1}}, {{-9, 0, 0}, {14,
  1282. Rational[5, 9], 0}, {26,
  1283. Rational[-77, 45],
  1284. Rational[-4, 5]}, {27,
  1285. Rational[-8, 5],
  1286. Rational[6, 5]}}, {{-9, 0, 0}, {18, 1, 0}, {19,
  1287. Rational[-8, 9],
  1288. Rational[-2, 3]}, {22,
  1289. Rational[-5, 9],
  1290. Rational[4, 3]}}, {{-10, 0, 0}, {11,
  1291. Rational[1, 10], 0}, {110, -10, 0}, {111,
  1292. Rational[-99, 10], 2}}, {{-10, 0, 0}, {14,
  1293. Rational[2, 5], 0}, {35,
  1294. Rational[-5, 2], 0}, {39,
  1295. Rational[-21, 10], 2}}, {{-10, 0, 0}, {18,
  1296. Rational[4, 5], 0}, {23,
  1297. Rational[-6, 5],
  1298. Rational[-1, 2]}, {27,
  1299. Rational[-4, 5],
  1300. Rational[3, 2]}}, {{-11, 0, 0}, {12,
  1301. Rational[1, 11], 0}, {132, -11, 0}, {133,
  1302. Rational[-120, 11], 2}}, {{-11, 0, 0}, {13,
  1303. Rational[2, 11], 0}, {72,
  1304. Rational[-60, 11], -1}, {72,
  1305. Rational[-60, 11], 1}}, {{-11, 0, 0}, {16,
  1306. Rational[5, 11], 0}, {36,
  1307. Rational[-117, 55],
  1308. Rational[-4, 5]}, {37,
  1309. Rational[-112, 55],
  1310. Rational[6, 5]}}, {{-11, 0, 0}, {21,
  1311. Rational[10, 11], 0}, {24,
  1312. Rational[-56, 55],
  1313. Rational[-3, 5]}, {28,
  1314. Rational[-36, 55],
  1315. Rational[7, 5]}}, {{-12, 0, 0}, {13,
  1316. Rational[1, 12], 0}, {156, -12, 0}, {157,
  1317. Rational[-143, 12], 2}}, {{-12, 0, 0}, {16,
  1318. Rational[1, 3], 0}, {49,
  1319. Rational[-35, 12], -1}, {49,
  1320. Rational[-35, 12], 1}}, {{-12, 0, 0}, {17,
  1321. Rational[5, 12], 0}, {41,
  1322. Rational[-143, 60],
  1323. Rational[-2, 5]}, {44,
  1324. Rational[-32, 15],
  1325. Rational[8, 5]}}, {{-12, 0, 0}, {21,
  1326. Rational[3, 4], 0}, {28,
  1327. Rational[-4, 3], 0}, {37,
  1328. Rational[-7, 12], 2}}, {{-12, 0, 0}, {21,
  1329. Rational[3, 4], 0}, {29,
  1330. Rational[-5, 4],
  1331. Rational[-2, 3]}, {32, -1,
  1332. Rational[4, 3]}}, {{-12, 0, 0}, {25,
  1333. Rational[13, 12], 0}, {25,
  1334. Rational[-119, 156],
  1335. Rational[-10, 13]}, {28,
  1336. Rational[-20, 39],
  1337. Rational[16, 13]}}, {{-13, 0, 0}, {14,
  1338. Rational[1, 13], 0}, {182, -13, 0}, {183,
  1339. Rational[-168, 13], 2}}, {{-13, 0, 0}, {15,
  1340. Rational[2, 13], 0}, {98,
  1341. Rational[-84, 13], -1}, {98,
  1342. Rational[-84, 13], 1}}, {{-13, 0, 0}, {18,
  1343. Rational[5, 13], 0}, {47,
  1344. Rational[-168, 65],
  1345. Rational[-2, 5]}, {50,
  1346. Rational[-153, 65],
  1347. Rational[8, 5]}}, {{-13, 0, 0}, {23,
  1348. Rational[10, 13], 0}, {30,
  1349. Rational[-84, 65],
  1350. Rational[-1, 5]}, {38,
  1351. Rational[-44, 65],
  1352. Rational[9, 5]}}, {{-14, 0, 0}, {15,
  1353. Rational[1, 14], 0}, {210, -14, 0}, {211,
  1354. Rational[-195, 14], 2}}, {{-14, 0, 0}, {18,
  1355. Rational[2, 7], 0}, {63,
  1356. Rational[-7, 2], 0}, {67,
  1357. Rational[-45, 14], 2}}, {{-14, 0, 0}, {19,
  1358. Rational[5, 14], 0}, {54,
  1359. Rational[-96, 35],
  1360. Rational[-4, 5]}, {55,
  1361. Rational[-187, 70],
  1362. Rational[6, 5]}}, {{-14, 0, 0}, {22,
  1363. Rational[4, 7], 0}, {39,
  1364. Rational[-12, 7],
  1365. Rational[-1, 2]}, {43,
  1366. Rational[-10, 7],
  1367. Rational[3, 2]}}, {{-14, 0, 0}, {27,
  1368. Rational[13, 14], 0}, {31,
  1369. Rational[-171, 182],
  1370. Rational[-10, 13]}, {34,
  1371. Rational[-66, 91],
  1372. Rational[16, 13]}}, {{-15, 0, 0}, {16,
  1373. Rational[1, 15], 0}, {240, -15, 0}, {241,
  1374. Rational[-224, 15], 2}}, {{-15, 0, 0}, {17,
  1375. Rational[2, 15], 0}, {128,
  1376. Rational[-112, 15], -1}, {128,
  1377. Rational[-112, 15], 1}}, {{-15, 0, 0}, {24,
  1378. Rational[3, 5], 0}, {40,
  1379. Rational[-5, 3], 0}, {49,
  1380. Rational[-16, 15], 2}}, {{-15, 0, 0}, {24,
  1381. Rational[3, 5], 0}, {41,
  1382. Rational[-8, 5],
  1383. Rational[-2, 3]}, {44,
  1384. Rational[-7, 5],
  1385. Rational[4, 3]}}, {{-15, 0, 0}, {28,
  1386. Rational[13, 15], 0}, {33,
  1387. Rational[-72, 65],
  1388. Rational[-6, 13]}, {40,
  1389. Rational[-25, 39],
  1390. Rational[20, 13]}}, {{-15, 0, 0}, {32,
  1391. Rational[17, 15], 0}, {32,
  1392. Rational[-161, 255],
  1393. Rational[-16, 17]}, {33,
  1394. Rational[-48, 85],
  1395. Rational[18, 17]}}}, ControlType -> PopupMenu}},
  1396. "Options" :> {
  1397. TrackedSymbols :> {$CellContext`ipt$$}, SynchronousUpdating -> False},
  1398. "DefaultOptions" :> {}],
  1399. ImageSizeCache->{449., {254., 259.}},
  1400. SingleEvaluation->True],
  1401. Deinitialization:>None,
  1402. DynamicModuleValues:>{},
  1403. Initialization:>({{$CellContext`f[
  1404. Pattern[$CellContext`h$,
  1405. Blank[]],
  1406. Pattern[$CellContext`p$,
  1407. Blank[]]] :=
  1408. Map[If[Part[#, -1, 1] <
  1409. FE`ratio$$11 $CellContext`h$, $CellContext`q =
  1410. 2 IdentityMatrix[4] - 1; $CellContext`m =
  1411. Join[#, {$CellContext`w}]; $CellContext`r = Complement[
  1412. ReplaceAll[$CellContext`w,
  1413. NSolve[
  1414. Apply[And,
  1415. Flatten[
  1416. MapThread[Equal, {
  1417. Dot[
  1418.  
  1419. Transpose[$CellContext`m], $CellContext`q, \
  1420. $CellContext`m],
  1421. DiagonalMatrix[{0, 4, 4}]},
  1422. 2]]], {$CellContext`k, $CellContext`x, $CellContext`y}]], \
  1423. $CellContext`a]; If[
  1424.  
  1425. And[$CellContext`r != {},
  1426. Part[$CellContext`r, 1] =!= $CellContext`k],
  1427. AppendTo[$CellContext`a,
  1428. Part[$CellContext`r, 1]]; Function[{$CellContext`x$},
  1429. Map[$CellContext`f[$CellContext`h$,
  1430. Join[$CellContext`x$, {#}]]& , $CellContext`r]][#];
  1431. Null]]& ,
  1432. Subsets[$CellContext`p$, {3}]],
  1433. Attributes[$CellContext`h$] = {Temporary},
  1434. Attributes[$CellContext`p$] = {Temporary}, FE`ratio$$11 =
  1435. 20, $CellContext`q = {{1, -1, -1, -1}, {-1, 1, -1, -1}, {-1, -1,
  1436. 1, -1}, {-1, -1, -1,
  1437. 1}}, $CellContext`m = {{2, -1, 0}, {3, 0, 2}, {15., 0.,
  1438.  
  1439. 4.}, {$CellContext`k, $CellContext`x, $CellContext`y}}, \
  1440. $CellContext`w = {$CellContext`k, $CellContext`x, $CellContext`y}, \
  1441. $CellContext`r = {}, $CellContext`a = {{-1, 0, 0}, {2, 1, 0}, {2, -1, 0}, {3,
  1442. 0, 2}, {3., 0., -2.}, {3., 0., 2.}, {2., -1., 0.}, {
  1443. 5.999999999999999, 2.999999999999999, 3.999999999999999}, {
  1444. 3.000000000000001, 0., 2.0000000000000004`}, {11.00000000000001,
  1445. 8.00000000000001, 6.000000000000005}, {6.0000000000000036`,
  1446. 3.0000000000000036`, 4.000000000000001}, {17.999999999999996`,
  1447. 14.999999999999996`, 7.999999999999999}, {11.000000000000007`,
  1448. 8.000000000000007, 6.000000000000002}, {27., 24., 10.}, {2., 1.,
  1449. 0.}, {54.00000000000002, 45.000000000000014`,
  1450. 28.00000000000001}, {-1., 0., 0.}, {63., 48.,
  1451. 28.000000000000004`}, {30.000000000000004`, 21.000000000000004`,
  1452. 20.000000000000004`}, {39.00000000000001, 24.000000000000004`,
  1453. 20.000000000000004`}, {14., 5., 12.}, {34.999999999999986`,
  1454. 15.999999999999993`, 29.999999999999986`}, {6., 3., 4.}, {26.,
  1455. 7.000000000000001, 24.}, {47., 16., 36.}, {23., 8., 12.}, {
  1456. 5.999999999999999, -2.999999999999999, 3.999999999999999}, {
  1457. 14., -5., 12.}, {6., -3., 4.}, {26., -7.000000000000001, 24.}, {
  1458. 2.9999999999999996`, 0., 1.9999999999999998`}, {
  1459. 35.000000000000014`, -16.000000000000007`, 30.00000000000001}, {
  1460. 47., -16., 36.}, {2.9999999999999987`, 0., 1.9999999999999993`}, {
  1461. 11.000000000000005`, -8.000000000000005, 6.000000000000003}, {
  1462. 5.9999999999999964`, -2.9999999999999964`, 3.9999999999999987`}, {
  1463. 18.00000000000001, -15.00000000000001, 8.000000000000004}, {
  1464. 11.000000000000007`, -8.000000000000007, 6.000000000000002}, {
  1465. 27., -24., 10.}, {54.00000000000001, -45.00000000000001,
  1466. 28.000000000000004`}, {63., -48., 28.000000000000004`}, {30., -21.,
  1467. 20.}, {39., -24., 20.}, {23., -8., 12.}, {14.999999999999996`, 0.,
  1468. 3.999999999999999}, {38., 3., 12.}, {3.000000000000001, 0., 2.}, {
  1469. 35.00000000000001, 0., 6.000000000000001}, {38., -3., 12.}, {6.,
  1470. 3., -4.}, {11., 8., -6.}, {5.999999999999998,
  1471. 2.9999999999999982`, -3.9999999999999996`}, {18., 15., -8.}, {
  1472. 11.000000000000007`, 8.000000000000007, -6.000000000000002}, {
  1473. 26.999999999999993`, 23.999999999999993`, -9.999999999999998}, {
  1474. 54., 45., -28.}, {63., 48., -28.}, {30., 21., -20.}, {39.,
  1475. 24., -20.}, {14., 5., -12.}, {26., 7.000000000000001, -24.}, {
  1476. 34.99999999999999, 15.999999999999996`, -29.999999999999996`}, {
  1477. 47., 16., -36.}, {23., 8., -12.}, {6., -3., -4.}, {
  1478. 3.000000000000001, 0., -2.0000000000000004`}, {
  1479. 10.999999999999998`, -7.999999999999998, -5.999999999999999}, {
  1480. 5.999999999999998, -2.9999999999999982`, -3.9999999999999996`}, {
  1481. 18.000000000000007`, -15.000000000000007`, -8.000000000000002}, {
  1482. 11.000000000000004`, -8.000000000000004, -6.000000000000001}, {
  1483. 27., -24., -10.}, {
  1484. 54.00000000000001, -45.00000000000001, -28.000000000000004`}, {
  1485. 63., -48., -28.}, {30., -21., -20.}, {
  1486. 39.00000000000001, -24.000000000000004`, -20.000000000000004`}, {
  1487. 14., -5., -12.}, {
  1488. 34.99999999999999, -15.999999999999996`, -29.999999999999996`}, {
  1489. 6., -3., -3.9999999999999996`}, {
  1490. 26.000000000000007`, -7.000000000000002, -24.000000000000007`}, {
  1491. 47., -16., -36.}, {23., -8., -12.}, {14.999999999999996`,
  1492. 0., -3.999999999999999}, {3.0000000000000004`, 0., -2.}, {
  1493. 35.000000000000014`, 0., -6.000000000000002}, {38., 3., -12.}, {
  1494. 38., -3., -12.}, {15., 0., 4.}},
  1495. Attributes[$CellContext`x$] = {
  1496. Temporary}}; ($CellContext`w = {$CellContext`k, $CellContext`x, \
  1497. $CellContext`y}; $CellContext`ratio = 20; $CellContext`f[
  1498. Pattern[$CellContext`h,
  1499. Blank[]],
  1500. Pattern[$CellContext`p,
  1501. Blank[]]] :=
  1502. Map[If[Part[#, -1,
  1503. 1] < $CellContext`ratio $CellContext`h, $CellContext`q =
  1504. 2 IdentityMatrix[4] - 1; $CellContext`m =
  1505. Join[#, {$CellContext`w}]; $CellContext`r = Complement[
  1506. ReplaceAll[$CellContext`w,
  1507. NSolve[
  1508. Apply[And,
  1509. Flatten[
  1510. MapThread[Equal, {
  1511. Dot[
  1512.  
  1513. Transpose[$CellContext`m], $CellContext`q, \
  1514. $CellContext`m],
  1515. DiagonalMatrix[{0, 4, 4}]},
  1516. 2]]], {$CellContext`k, $CellContext`x, $CellContext`y}]], \
  1517. $CellContext`a]; If[
  1518.  
  1519. And[$CellContext`r != {},
  1520. Part[$CellContext`r, 1] =!= $CellContext`k],
  1521. AppendTo[$CellContext`a,
  1522. Part[$CellContext`r, 1]]; Function[{$CellContext`x},
  1523. Map[$CellContext`f[$CellContext`h,
  1524. Join[$CellContext`x, {#}]]& , $CellContext`r]][#]; Null]]& ,
  1525. Subsets[$CellContext`p, {3}]]; $CellContext`l = {{{-1, 0, 0}, {2,
  1526. 1, 0}, {2, -1, 0}, {3, 0,
  1527. 2}}, {{-2, 0, 0}, {3, 1/2, 0}, {6, -2, 0}, {7, (-3)/2, 2}}, {{-3,
  1528. 0, 0}, {4, 1/3, 0}, {12, -3, 0}, {13, (-8)/3, 2}}, {{-3, 0, 0}, {
  1529. 5, 2/3, 0}, {8, (-4)/3, -1}, {8, (-4)/3, 1}}, {{-4, 0, 0}, {
  1530. 5, 1/4, 0}, {20, -4, 0}, {21, (-15)/4, 2}}, {{-4, 0, 0}, {8, 1,
  1531. 0}, {9, (-3)/4, -1}, {9, (-3)/4, 1}}, {{-5, 0, 0}, {6, 1/5, 0}, {
  1532. 30, -5, 0}, {31, (-24)/5, 2}}, {{-5, 0, 0}, {7, 2/5, 0}, {
  1533. 18, (-12)/5, -1}, {18, (-12)/5, 1}}, {{-6, 0, 0}, {7, 1/6, 0}, {
  1534. 42, -6, 0}, {43, (-35)/6, 2}}, {{-6, 0, 0}, {10, 2/3, 0}, {
  1535. 15, (-3)/2, 0}, {19, (-5)/6, 2}}, {{-6, 0, 0}, {11, 5/6, 0}, {
  1536. 14, (-16)/15, (-4)/5}, {15, (-9)/10, 6/5}}, {{-7, 0, 0}, {
  1537. 8, 1/7, 0}, {56, -7, 0}, {57, (-48)/7, 2}}, {{-7, 0, 0}, {
  1538. 9, 2/7, 0}, {32, (-24)/7, -1}, {32, (-24)/7, 1}}, {{-7, 0, 0}, {
  1539. 12, 5/7, 0}, {17, (-48)/35, (-2)/5}, {20, (-33)/35, 8/5}}, {{-8,
  1540. 0, 0}, {9, 1/8, 0}, {72, -8, 0}, {73, (-63)/8, 2}}, {{-8, 0, 0}, {
  1541. 12, 1/2, 0}, {25, (-15)/8, -1}, {25, (-15)/8, 1}}, {{-8, 0, 0}, {
  1542. 13, 5/8, 0}, {21, (-63)/40, (-2)/5}, {24, (-6)/5, 8/5}}, {{-9, 0,
  1543. 0}, {10, 1/9, 0}, {90, -9, 0}, {91, (-80)/9, 2}}, {{-9, 0, 0}, {
  1544. 11, 2/9, 0}, {50, (-40)/9, -1}, {50, (-40)/9, 1}}, {{-9, 0, 0}, {
  1545. 14, 5/9, 0}, {26, (-77)/45, (-4)/5}, {27, (-8)/5, 6/5}}, {{-9, 0,
  1546. 0}, {18, 1, 0}, {19, (-8)/9, (-2)/3}, {22, (-5)/9, 4/3}}, {{-10,
  1547. 0, 0}, {11, 1/10, 0}, {110, -10, 0}, {111, (-99)/10, 2}}, {{-10,
  1548. 0, 0}, {14, 2/5, 0}, {35, (-5)/2, 0}, {39, (-21)/10, 2}}, {{-10,
  1549. 0, 0}, {18, 4/5, 0}, {23, (-6)/5, (-1)/2}, {
  1550. 27, (-4)/5, 3/2}}, {{-11, 0, 0}, {12, 1/11, 0}, {132, -11, 0}, {
  1551. 133, (-120)/11, 2}}, {{-11, 0, 0}, {13, 2/11, 0}, {
  1552. 72, (-60)/11, -1}, {72, (-60)/11, 1}}, {{-11, 0, 0}, {
  1553. 16, 5/11, 0}, {36, (-117)/55, (-4)/5}, {
  1554. 37, (-112)/55, 6/5}}, {{-11, 0, 0}, {21, 10/11, 0}, {
  1555. 24, (-56)/55, (-3)/5}, {28, (-36)/55, 7/5}}, {{-12, 0, 0}, {
  1556. 13, 1/12, 0}, {156, -12, 0}, {157, (-143)/12, 2}}, {{-12, 0, 0}, {
  1557. 16, 1/3, 0}, {49, (-35)/12, -1}, {49, (-35)/12, 1}}, {{-12, 0,
  1558. 0}, {17, 5/12, 0}, {41, (-143)/60, (-2)/5}, {
  1559. 44, (-32)/15, 8/5}}, {{-12, 0, 0}, {21, 3/4, 0}, {
  1560. 28, (-4)/3, 0}, {37, (-7)/12, 2}}, {{-12, 0, 0}, {21, 3/4, 0}, {
  1561. 29, (-5)/4, (-2)/3}, {32, -1, 4/3}}, {{-12, 0, 0}, {
  1562. 25, 13/12, 0}, {25, (-119)/156, (-10)/13}, {
  1563. 28, (-20)/39, 16/13}}, {{-13, 0, 0}, {14, 1/13, 0}, {182, -13,
  1564. 0}, {183, (-168)/13, 2}}, {{-13, 0, 0}, {15, 2/13, 0}, {
  1565. 98, (-84)/13, -1}, {98, (-84)/13, 1}}, {{-13, 0, 0}, {
  1566. 18, 5/13, 0}, {47, (-168)/65, (-2)/5}, {
  1567. 50, (-153)/65, 8/5}}, {{-13, 0, 0}, {23, 10/13, 0}, {
  1568. 30, (-84)/65, (-1)/5}, {38, (-44)/65, 9/5}}, {{-14, 0, 0}, {
  1569. 15, 1/14, 0}, {210, -14, 0}, {211, (-195)/14, 2}}, {{-14, 0, 0}, {
  1570. 18, 2/7, 0}, {63, (-7)/2, 0}, {67, (-45)/14, 2}}, {{-14, 0, 0}, {
  1571. 19, 5/14, 0}, {54, (-96)/35, (-4)/5}, {
  1572. 55, (-187)/70, 6/5}}, {{-14, 0, 0}, {22, 4/7, 0}, {
  1573. 39, (-12)/7, (-1)/2}, {43, (-10)/7, 3/2}}, {{-14, 0, 0}, {
  1574. 27, 13/14, 0}, {31, (-171)/182, (-10)/13}, {
  1575. 34, (-66)/91, 16/13}}, {{-15, 0, 0}, {16, 1/15, 0}, {240, -15,
  1576. 0}, {241, (-224)/15, 2}}, {{-15, 0, 0}, {17, 2/15, 0}, {
  1577. 128, (-112)/15, -1}, {128, (-112)/15, 1}}, {{-15, 0, 0}, {
  1578. 24, 3/5, 0}, {40, (-5)/3, 0}, {49, (-16)/15, 2}}, {{-15, 0, 0}, {
  1579. 24, 3/5, 0}, {41, (-8)/5, (-2)/3}, {44, (-7)/5, 4/3}}, {{-15, 0,
  1580. 0}, {28, 13/15, 0}, {33, (-72)/65, (-6)/13}, {
  1581. 40, (-25)/39, 20/13}}, {{-15, 0, 0}, {32, 17/15, 0}, {
  1582. 32, (-161)/255, (-16)/17}, {33, (-48)/85, 18/17}}})};
  1583. Typeset`initDone$$ = True),
  1584. SynchronousInitialization->True,
  1585. UnsavedVariables:>{Typeset`initDone$$},
  1586. UntrackedVariables:>{Typeset`size$$}], "Manipulate",
  1587. Deployed->True,
  1588. StripOnInput->False],
  1589. Manipulate`InterpretManipulate[1]]], "Output",
  1590. CellChangeTimes->{
  1591. 3.621875084671875*^9, 3.62187519359375*^9, 3.621875324890625*^9, {
  1592. 3.6218754211875*^9, 3.621875437796875*^9}, 3.621879285265625*^9}]
  1593. }, Open ]]
  1594. },
  1595. WindowSize->{897, 655},
  1596. WindowMargins->{{Automatic, 160}, {Automatic, 36}},
  1597. FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (January 25, 2013)",
  1598. StyleDefinitions->"Default.nb"
  1599. ]
  1600. (* End of Notebook Content *)
  1601.  
  1602. (* Internal cache information *)
  1603. (*CellTagsOutline
  1604. CellTagsIndex->{}
  1605. *)
  1606. (*CellTagsIndex
  1607. CellTagsIndex->{}
  1608. *)
  1609. (*NotebookFileOutline
  1610. Notebook[{
  1611. Cell[CellGroupData[{
  1612. Cell[1485, 35, 35996, 997, 1352, "Input"],
  1613. Cell[37484, 1034, 26668, 557, 530, "Output"]
  1614. }, Open ]]
  1615. }
  1616. ]
  1617. *)
  1618.  
  1619. (* End of internal cache information *)
  1620.  
  1621. (* NotebookSignature 5xpIRuKschPRaDwE4N3UAvN@ *)
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!