Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (* Content-type: application/vnd.wolfram.mathematica *)
- (*** Wolfram Notebook File ***)
- (* http://www.wolfram.com/nb *)
- (* CreatedBy='Mathematica 8.0' *)
- (*CacheID: 234*)
- (* Internal cache information:
- NotebookFileLineBreakTest
- NotebookFileLineBreakTest
- NotebookDataPosition[ 157, 7]
- NotebookDataLength[ 3638, 100]
- NotebookOptionsPosition[ 3315, 83]
- NotebookOutlinePosition[ 3669, 99]
- CellTagsIndexPosition[ 3626, 96]
- WindowFrame->Normal*)
- (* Beginning of Notebook Content *)
- Notebook[{
- Cell[CellGroupData[{
- Cell["functions", "Section",
- CellChangeTimes->{{3.525542878650548*^9, 3.525542880416729*^9}}],
- Cell[TextData[{
- StyleBox["\n \n",
- FontColor->RGBColor[0, 0, 1]],
- StyleBox["Clear[getpos];\n",
- FontColor->GrayLevel[0]],
- StyleBox["getpos",
- FontColor->RGBColor[1, 0, 0]],
- "[element_String] :=\n Module[{goodpos, val, k = Position[",
- StyleBox["vars",
- FontColor->RGBColor[0, 0, 1]],
- ", element][[1,1]]},\n good = Flatten[Position[",
- StyleBox["data",
- FontColor->RGBColor[0, 0, 1]],
- ", _?((Abs[#[[k]]] > 10^-4)&), {1}]];\n Array[(val = ",
- StyleBox["data",
- FontColor->RGBColor[0, 0, 1]],
- "[[",
- StyleBox["good[[#]],k",
- Background->RGBColor[0, 1, 0]],
- "]]; If[val < 0, ",
- StyleBox["data",
- FontColor->RGBColor[0, 0, 1]],
- "[[",
- StyleBox["good[[#]],k",
- Background->RGBColor[0, 1, 0]],
- "]] = -val/2])&, Length[good] ];\n {k, good}]\n ",
- StyleBox["\n",
- Background->GrayLevel[0.5]],
- "(* ",
- StyleBox["goodpos from 'data' ",
- FontColor->RGBColor[0, 0, 1]],
- "*)\n\n"
- }], "Input",
- CellChangeTimes->{{3.536807353579389*^9, 3.536807366004743*^9}, {
- 3.5368075257040854`*^9, 3.5368075365711107`*^9}, {3.5368075905904207`*^9,
- 3.536807603851081*^9}, {3.5368076695852537`*^9, 3.536807670155402*^9}, {
- 3.5368077084972143`*^9, 3.5368077264154882`*^9}, 3.5368078060379066`*^9, {
- 3.53680785859536*^9, 3.536807868419298*^9}, {3.5368081049732656`*^9,
- 3.536808244619398*^9}, {3.5368082756393957`*^9, 3.536808434603407*^9}, {
- 3.536808473526009*^9, 3.536808476628237*^9}, {3.536808538685506*^9,
- 3.536808542483759*^9}, {3.536808906243566*^9, 3.536808962619392*^9}, {
- 3.5368099502054367`*^9, 3.536810010486621*^9}, 3.536810159050418*^9, {
- 3.536810189133416*^9, 3.536810484355564*^9}, {3.5368108056318913`*^9,
- 3.536810815483436*^9}, {3.5368108563894672`*^9, 3.536810887541497*^9}, {
- 3.536810938937948*^9, 3.536811007746114*^9}, 3.5368120422730513`*^9, {
- 3.536816734635078*^9, 3.536816764495511*^9}, {3.536817205022016*^9,
- 3.5368172718624496`*^9}, {3.53681758429191*^9, 3.5368175845152807`*^9}, {
- 3.551205323937608*^9, 3.5512053516434*^9}, {3.552789865373589*^9,
- 3.552789884220105*^9}, {3.552859591216968*^9, 3.552859601409501*^9}, {
- 3.552859666075337*^9, 3.552859688200486*^9}, {3.552865291934667*^9,
- 3.5528652998012*^9}, {3.552865368420989*^9, 3.552865376361524*^9}, {
- 3.552865408982329*^9, 3.5528654116231833`*^9}, {3.552865446054214*^9,
- 3.552865457377349*^9}, {3.5528655097334137`*^9, 3.552865522895688*^9}, {
- 3.552865694133601*^9, 3.552865809620863*^9}, 3.5707790512968493`*^9, {
- 3.570781056632057*^9, 3.570781065779727*^9}, {3.5707839119561443`*^9,
- 3.57078391905689*^9}, {3.570783950408087*^9, 3.5707839820464973`*^9}}]
- }, Open ]]
- },
- WindowSize->{1132, 999},
- WindowMargins->{{4, Automatic}, {Automatic, 4}},
- FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \
- 2011)",
- StyleDefinitions->"Default.nb"
- ]
- (* End of Notebook Content *)
- (* Internal cache information *)
- (*CellTagsOutline
- CellTagsIndex->{}
- *)
- (*CellTagsIndex
- CellTagsIndex->{}
- *)
- (*NotebookFileOutline
- Notebook[{
- Cell[CellGroupData[{
- Cell[579, 22, 94, 1, 67, "Section"],
- Cell[676, 25, 2623, 55, 170, "Input"]
- }, Open ]]
- }
- ]
- *)
- (* End of internal cache information *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement