2kolsp可圈可点是什么意思？怎么获得？
点击联系发帖人
时间：2015-03-02 14:59
浅谈2kol的第一印象——优势与不足
&&& 近日，lz闲来无事想起来正在内测的2kol，于是跑到网吧下了个客户端想体验一番。&&& 激活码是第一个问题，lz向来自认运气不好，直接来到淘宝搜索，tmd25一个，还真敢要价。我回到了官网首页，没想到一抽即中。&&& 闲话少叙，开始正题。总的来说，2kol的效果要比想象中好，至少要比单机联网的效果好，而且好得不是一星半点。我觉得2kol的整体框架是2k11的，操作方面也差不多，是个阉割版的2k11操作。游戏主要分为三个模式，自由，对抗和街球。&&& 【自由】这个模式没什么特别，自由选择队伍也可以随机，2分钟一节没有暂停没有受伤只能用主力，选到一类有超级第六人的球队比较吃亏，因为根本不存在第二阵容的说法。&&& 【对抗】这个是类似MP的模式，自建一个球员选择位置参加选秀，只有少数几只球队可以被选中，山猫，一般都是状元秀，攒够人气可以通过交易卡转会你喜欢的球队当中去。总得来说，这些球队中也就国王还不错，其他的实在是难用啊。如果有2k单机的经验上手那叫一个快，我建立人物，过了训练直接大杀四方，2个半小时轻松冲到11级，未尝败绩。&&& 【街球】可以用自建球员也可以使用球星卡，创意很不错，本来应该是最受大家期待的模式，结果却成了最让人砸键盘的一个模式。毕竟篮球是需要团队的，碰见个传球键坏了的自以为是的救世主，你只能是摔键盘了。那一次对面是三个中锋，小奥和门罗，我这边是兰斯一个自建球员和我用的。本以为完爆，结果那个兰斯sb全场不传一球，一个人单干，而且操作水的一比，直直地往三个中锋的篮下扎，各种冒，惨不忍睹，结果4分钟街球赛居然输了24分！还有一次我们三个林书豪，对面一个一个邓肯一个，我无奈换出来一个的海伍德，本方的两个后卫也是完全单干型的，我只能拼命抢板盖帽然后追进比分。最后剩23.8秒打平，我跑了个空位不给，自己2b自己原地拔三分，不中没关系，关键是不压时间投出去还有18秒，结果人家抢板轻松一个中投领先，留下4秒。最后一球我的，突进去一个扣篮算是拖进了加时，结局一样，最后一刻平局。还是2个2b不传球被邓肯断了然后竟然投进了绝杀三分！最后统计我拿了十六分八个板，怎么八个板很多？开玩笑，我用林书豪还盖过四个帽呢。哎，总之，街头赛不认识的在一起玩总是有风险的，毕竟砸了键盘是要赔的。&&&& 缺点：没有方向投篮键，少了很多花哨的动作&&&&&&&&&& 没有故意犯规暂停，只要最后一个二十四秒内领先一分，赢了！&&&&&&&&&& &&&& 经验之谈：每款篮球游戏都有那么几类讨厌的人，对于不传球的实在是没办法，除了强退就是砸键盘了。对于那些根本没有技术，打对抗赛是把MP一直放到半场不回来只要球不进的人一定也特别烦心。我的对策是过半场停球，除了有很好内线扣篮或者完全的空位，否则拖到24秒。
这些回帖亮了
引用5楼 @ 发表的:解说蛋疼 玩起来比2K12还要卡 而且还是2K12的各种低等效果的衍生品而已解说纯*河蟹*，所有球员用他代替，所有球队用他们代替，每个扣篮都是暴力美学的典范，每个罚球都是夏天加练过的。。。发自手机虎扑 m.hupu.com
引用10楼 @ 发表的:
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
哥们
我是一直给你传球的詹姆斯啊
引用22楼 @ 发表的:
这种路人游戏真是应了那句老话【不怕神一样的对手就怕猪一样的队友】
最令人气愤的不是遇到猪一样的队友
而是猪一样的队友骂你是猪
街头模式有的队友真的很坑人。。。各种单干，不传球。受不了啊。
显然没写完，有空再说
楼主写的不错，
什么时候可以改投篮动作啊..........
街头模式有的队友真的很坑人。。。各种单干，不传球。受不了啊。
解说蛋疼 玩起来比2K12还要卡 而且还是2K12的各种低等效果的衍生品而已
还不错哦！
很客观的评价！赞一个！
淘宝3.5元买的 发自手机虎扑 m.hupu.com
第一个号是0.9元买的，还是那种绑定了QQ的那种
后来果断12点过后官网抽···
打对抗时，试过和半场不回的那种人怄气···连搞了三盘，可以只赢了一盘。这bug都这么多年了
唉，虽然缺点一大堆
但始终还是目前最好的篮球oL
···抽了一次就抽见了
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
我用手柄玩还是能用右摇杆操作啊（就是投篮方向键）。。。
难道其实不是我按的，，，什么欧洲步跳步都是随机出的？
对于那些根本没有技术，打对抗赛是把MP一直放到半场不回来只要球不进的人一定也特别烦心。
引用10楼 @ 发表的:
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
哥们
我是一直给你传球的詹姆斯啊
引用13楼 @ 发表的:
我是一直给你传球的詹姆斯啊
真的假的呀，你ID叫什么呀
引用14楼 @ 发表的:
真的假的呀，你ID叫什么呀
是我的姓名 不便透漏
前几天是咱们一起玩的吗
和楼主同感。 现在我就和我的朋友一起玩 还是比较有默契的 百分之70+的胜率。
现在的单打王都太牛了。各种骚投，然后怪你没板。碰到这类SB真的没辙。在聊天框骂两句吧。可能别人压根就没看见。因为聊天框你要按下ENTER键自己说话时才能看见别人的话。o(︶︿︶)o 唉JRS碰到这种自我为中心的人只能自求多福了。
*河蟹*没有恶意犯规键真烦人
看了楼主的帖子 去抽 点了活塞 抽到了。。。
习惯了 从不打对抗 打了几百局了 多数是街头 表示有可玩性技术流 就是有些BUG还是要改
街头赛确实受不了
您需要登录后才可以回复，请或者
466人参加团购259.00元&469.00元
1155人参加团购299.00元&890.00元
1695人参加团购659.00元&1399.00元
13人参加团购145.00元&358.00元
389人参加团购225.00元&599.00元
154人参加团购189.00元&539.00元
55人参加团购99.00元&249.00元
316人参加团购199.00元&829.00元
83人参加团购299.00元&569.00元
650人参加团购429.00元&1099.00元
2614人参加团购288.00元&999.00元
8人参加团购89.00元&299.00元(* 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[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
Cell[BoxData[
SuperscriptBox["Mathematica", "\[RegisteredTrademark]"], TraditionalForm]]],
}], "OnlineHeader"],
Cell["The Future of Computation", "Title"],
Cell["Stephen Wolfram", "Author"],
Cell[TextData[StyleBox["(Edited transcript of a videoconference keynote \
address given at IMS 2005.)",
FontSlant->"Italic"]], "Text"],
Cell[TextData[{
"It is a pleasure to be with you all today. My main excuse for not being \
there in person is that we really have to finish the next version of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". I think it is probably fair to say that almost nobody thinks I should be \
doing anything other than working very hard on the upcoming version of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", which I can assure you is going to be something extremely exciting, that \
we have been working on for a great many years. "
}], "Text"],
Cell[TextData[{
"But I thought today that I would not talk mainly about near-term ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" technology. The original title for this talk was ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" and the Future of Computation, but then I saw it had been changed to just \
The Future of Computation. The modification to the title got me thinking \
about what I really should be talking about. So I am going to talk about the \
modified title. I decided that would give me more license to talk about a \
broader range of things, and I thought that we might have some fun with that. "
}], "Text"],
Cell[TextData[{
"What will be the future of computation? To really home in on that question \
some of what we have to think about is what computation is, what computation \
has been, what kinds of things could computation be in the future, what kinds \
of things can we perhaps uniquely learn from our experience with ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" about the nature of computation and about its future directions. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"But I guess it was during the 1800s the idea of purely abstract kinds of \
mathematical constructs and operators really took root. There were things \
like the work of Galois on groups and the development of Boolean algebra and \
abstract logic by Boole. Then came the development of abstract algebra in the \
late 1800s and so on. Then there was the notion of people like Peano trying \
to formalize, trying to make a human-like language that could be used to find \
a uniform formalization of mathematics. And that, in the 1910s, led to things \
like the Whitehead and Russell venture of ",
StyleBox["Principia Mathematica",
FontSlant->"Italic"],
", one of the uses of the \[OpenCurlyDoubleQuote]mathematica\
\[CloseCurlyDoubleQuote] word in the past, where the notion was could one \
take all of the ideas of mathematics and formalize them in a way that was \
somehow based on logic? As you may know, Whitehead and Russell produced this \
giant three-volume work that purported to describe how mathematics worked. \
Unfortunately, it went in rather small steps and it was rather hard to \
understand. It determined that 2 + 2 was equal to 4 somewhere about \
two-thirds of the way through the first book. It was an early attempt to \
formalize a process, in this case a process of mathematical proof and \
presentation."
}], "Text"],
Cell[TextData[{
"When you look at the pages of ",
StyleBox["Principia Mathematica",
FontSlant->"Italic"],
" they almost seem like a uniquely bad notation for actually presenting the \
ideas of mathematics. Nevertheless, as a proof of principle it was something \
very important to take this large volume of potential mathematical knowledge \
and try and formalize it in a uniform way. "
}], "Text"],
Cell[TextData[{
"Then there were other kinds of ideas that came up in the 1920s about the \
formalization of things. For example, the idea of recursive functions came \
up. In fact the very idea of functions had been a fairly recent construct, \
something that had really cropped up in the 1880s or so. The idea of just \
some abstract thing, ",
Cell[BoxData[
FormBox["f", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["x", TraditionalForm]], "Math"],
", where you feed it anything and it munches on it and produces an answer. \
That idea of abstracting a notion of a function was a comparatively late one \
in the history of mathematics.
}], "Text",
CellChangeTimes->{{3.139*^9, 3.833*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"As time went forward, there were a few other strands, a few other kinds of \
primitive operations that were considered for computation. Another one that \
came very early in the history, although was ignored until many years later, \
was an idea called combinators, which are the ultimate functional programming \
construct, in a sense. These typically are set up as two combinators, ",
Cell[BoxData[
FormBox["s", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["k", TraditionalForm]], "Math"],
", and it is a nice ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" exercise to construct functions out of just nesting these ",
Cell[BoxData[
FormBox["s", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["k", TraditionalForm]], "Math"],
" combinators. That was actually an idea that came up in 1921. Although it \
was not really recognized until probably the 1940s or later, that this was a \
significant and worthwhile thing, which has perhaps not even been recognized \
until today. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"When I got serious about building what is now ",
StyleBox["Mathematica,",
FontSlant->"Italic"],
" one of the things that I was interested in was to see how general could we \
make this notion of computation. How could we take the idea of what \
computation could be, the representation of arbitrary processes and arbitrary \
kinds of constructs and to what extent could we build the system that could \
really make use of this potential generality that the idea of computation has?"
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"So this line of thinking is part of what got me started, what fueled some \
of my scientific efforts. For my own personal purposes, the idea that when \
one builds a computer language like ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", in a sense what one is trying to do is take all these abstract processes \
that people want to do and find what the primitives are out of which those \
operations can be formed. And then we give those primitives names like ",
Cell[BoxData["NestList"], "MCode"],
Cell[BoxData["Fold"], "MCode"],
" or whatever else. Those are the primitives from which we build up the \
things that people want to do\[LongDash]the processes that people want to \
carry out. "
}], "Text",
CellChangeTimes->{{3.621*^9, 3.959*^9}}],
Cell["\", "Text"],
Cell[TextData[{
"Before Newton, it was not clear how one should represent processes in \
nature. There were a lot of different sometimes quite wacky ideas about that, \
the great advance of 1687 and Newton\[CloseCurlyQuote]s Principia \
Mathematica, the title of his book was ",
StyleBox["Mathematical Principles of Natural Philosophy",
FontSlant->"Italic"],
". His notion was can we take natural philosophy, this systematic study of \
nature, and can we put mathematical principles onto that. That was a great \
idea and a great advance. It fueled the development of the physical and other \
exact sciences for 300 years, this notion that one can take mathematical \
equations, ideas from mathematics, ideas about calculus, and so on and one \
can use them to explain and represent processes in nature. "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"So in a sense, as I was saying at the beginning, at least my view of what \
computation is in essence, is that it is a way of finding an abstract \
representation of processes. So among other things these ideas of computation \
should be able to find good abstract representations of the processes that go \
on in nature too. What one realizes as one looks at the underlying constructs \
of whether it is Turing machines, whether it is ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", the underlying as it is turned out quite uniform constructs that support \
universal computation that allow one to make programs and so on, all those \
constructs are considerably broader than traditional ones that exist in \
mathematics and arithmetic and calculus and so on. "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[StyleBox["Figure 1 is an example of one of them.",
FontVariations->{"CompatibilityType"->0}]], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 276.625},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 304.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 276.625},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"And in fact, the ",
Cell[BoxData["Random"], "MCode"],
" function in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
Cell[BoxData[
RowBox[{"Random", "[", "Integer", "]"}]], "MCode"],
", has used this method for generating randomness ever since ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Version 1 was released. And it has been a really good method of generating \
randomness. In fact it has been an embarrassment to us that for some real \
number random generation methods we used, against my better judgment I was \
convinced that we should use more traditional random generators, which were \
slightly faster at the time when these things were first implemented but \
which have turned out to have all kinds of horrible bugs. So, this particular \
way of generating randomness, this little rule 30 thing, which is by far the \
simplest in terms of its rule, has withstood all of these attacks. So this is \
a remarkable thing. It is not one\[CloseCurlyQuote]s common intuition. "
}], "Text",
CellChangeTimes->{{3.8773`*^9, 3.258*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"One of the things one might start to think about is: What does it mean to \
have a system that does a computation? Usually when we think of computation \
we think of setting a system up to specifically achieve some particular task \
that we have set for it. So for example, Figure 5 is a system, it happens to \
be a cellular automaton, that is set up specifically to achieve the task of \
squaring its input. So you put in ",
Cell[BoxData[
FormBox["n", TraditionalForm]], "Math"],
" black cells at the top and then the system does its thing and then out at \
the bottom by a not terribly clever algorithm the system produces ",
Cell[BoxData[
FormBox["n", TraditionalForm]], "Math"],
" squared black cells. "
}], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 215.75},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 374.688},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell[TextData[{
"Well, I think that the answer is really definitely yes, it absolutely \
counts as a computation. It is not a computation where we necessarily know \
the point of it beforehand, but it is a computation that just happens. It is \
a computation that perhaps may be happening in nature quite a bit. And it is \
a computation that sometimes we may find out is actually quite useful. Like \
in the case of this rule 30 system, it has been very useful as a random \
generator in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" and elsewhere. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"For many years I studied what is out there in the computational universe. I \
was using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" as a telescope to look and try to do the natural history of all these \
strange creatures that exist in the computational universe. And having done \
the natural history, try to classify them and then try to find general \
principles about what happens out in the computational universe. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"Figure 8 is a particular case where we now know that this is possible. This \
is the rule 110 cellular automaton. It is the ",
Cell[BoxData[
SuperscriptBox["110", "th"], TraditionalForm]]],
" cellular automaton that you reach in this sequence of possible cellular \
automata. "
}], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 316.25},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"The big thing that one realizes from this principle of computational \
equivalence and this whole ",
StyleBox["A New Kind of Science",
FontSlant->"Italic"],
" (NKS) set of ideas is that the notion of computational reducibility is \
actually a fairly special case. That out there in the space of possible \
abstract systems, out there in the computational universe, a very large \
fraction of systems are actually doing much more complicated things that are \
in a sense computationally powerful and are in a sense computationally \
irreducible. There is really no way to work out what this system, for \
example, will do by any procedure that is much more efficient I think than \
just running the system and seeing what happens\[LongDash]that is the idea of \
computational irreducibility. That makes this system seem complex to us."
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"And that puts more pressure on us to find the right primitives representing \
natural systems in a way that fits in well with the kinds of computers that \
we actually use. Because we know we are going to have to do a lot of \
computational operations to find out what the natural system does. So those \
operations should be as simple as possible so that we get to do as many of \
them as efficiently as possible. In a sense, that forces us to think about \
the kinds of primitives that should exist, let us say in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", as ways to represent the natural world. Are they primitives that are \
well-matched with the kinds of things that actually go on in the natural \
world or not? And I would say that what I have seen from studying NKS and so \
on is that I am very pleased with the extent to which the kind of symbolic \
programming primitives that we have in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" seem to map well in a very wide range of different kinds of computational \
models that seem to be relevant in studying the natural world."
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{436, 538.125},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{436, 432.5},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 347.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
PageBreakBelow->False,
ImageSize->{437, 613.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell[TextData[{
"It could certainly be the case that our universe would be rule number 17, \
or our universe could be rule number ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
", or our universe could be rule number ",
Cell[BoxData[
SuperscriptBox["10",
SuperscriptBox["10",
SuperscriptBox["10",
SuperscriptBox["10", "100"]]]], TraditionalForm]], "Math"],
". If we believe this kind of notion of universality, our universe must be \
somewhere out there in the space of possible rules. "
}], "Text"],
Cell[TextData[{
"And the question is: How simple will the rules be? I do not have any \
particular criterion to decide that, although it is a very fundamental fact \
about nature that the rules for nature are not as complicated as they might \
be. For example, the universe has perhaps a little less than ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
" particles in it. If the rules for the universe had ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
" different cases in them, we might reasonably expect that every one of \
those particles might choose to do a different thing. Yet what we know is \
that there is considerable order in the universe, that the rules are not that \
complicated. Most of the particles choose to follow the same kind of rules \
all the time. And so the rules are simple compared to, in a sense, the size \
of the universe. How simple they are we do not know. We do not have a \
criterion. There is not yet a criterion by which we might guess how simple \
the rules might be. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"It is a wonderful application of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" actually. It is a fairly sophisticated, fairly high-tech thing that \
involves feeding in a possible rule for the universe to see what it does. \
Many rules for the universe are completely stupid. One can say immediately, \
this is not our universe. No notion of time, space, expands exponentially in \
a trivial way forever, etc. What you really want to know, for example, is \
given some potential universe, what are the laws that operate in this \
universe and are they the same laws that we know, whether it is the standard \
model gauge invariance or general relativity, or whatever else. Are they the \
same laws that we know from existing physics? "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"That has turned into this big enterprise of essentially doing automated \
theorem proving and things like that and doing a whole bunch of graph theory \
and combinatorics. It is a wonderful ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" system using grid",
StyleBox["Mathematica",
FontSlant->"Italic"],
", and so on to try and do these searches that involve basically finding out \
what we can prove for candidate universes. It is kind of automating the \
process of being a natural scientist or a theoretical natural scientist. \
Given this set of rules, what can we determine from that about laws of this \
universe? "
}], "Text"],
Cell[TextData[{
"It has been going rather well and there are some nice technology spin-offs, \
which will show up in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". One of the consequences of finding out that our universe is one of these \
universes out there in the computational universe is that it really grounds \
the notion of computation. If our universe is one of these things out in the \
computational universe, we know that is all that is there. We cannot start \
arguing, oh well, computation as we know it right now is not really \
everything that is relevant in the universe, there might be some special \
rule-number thing, there might be some hyper-computation thing, there might \
be some other weird thing going on. We will be able to say, no that \
absolutely is not the case, everything that happens is just determined by \
this particular computational model."
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[StyleBox["All of mathematics is actually based on a fairly \
small set of axioms. Figure 14 basically shows all the axioms now in use in \
all common areas of mathematics. ",
FontVariations->{"CompatibilityType"->0}]], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 288.562},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 343.75},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{280, 217.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"Well it turns out that in the case of Boolean algebra, the ",
Cell[BoxData[
RowBox[{"50", ",",
SuperscriptBox["000", "th"]}], TraditionalForm]]],
" axiom system roughly, you find Boolean algebra. And it is an adventure in \
automated theorem proving to show that the little axiom system really is \
Boolean algebra. There is a proof, and this is soon going to be immediately \
doable in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". But that is a different story. What is interesting here is that this \
Boolean algebra that we know is out there in the computational universe of \
possible things at around the ",
Cell[BoxData[
RowBox[{"50", ",",
SuperscriptBox["000", "th"]}], TraditionalForm]]],
" axiom system."
}], "Text",
CellChangeTimes->{{3.063*^9, 3.0417`*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"And there are many other examples of this. In fact, we have been using this \
kind of idea for many years in some areas of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" to just search spaces of possible algorithms and find algorithms for \
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 185.938},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 199.688},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 339.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{431, 342.812},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{432, 341.438},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{429, 511.812},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"Wolfram",
StyleBox["Tones",
FontSlant->"Italic"],
ButtonBox["tones.wolfram.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://tones.wolfram.com/"], None}],
", is a good web",
StyleBox["Mathematica",
FontSlant->"Italic"],
" venture. It is completely built in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", running right now on a cluster of computers. And hopefully enough people \
will be interested in it that it will actually strain the computers when the \
site goes live. But the practicalities involve being able to take these \
musical forms and download them to cellphones."
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"S. Wolfram, \[OpenCurlyDoubleQuote]The Future of Computation,\
\[CloseCurlyDoubleQuote] ",
StyleBox["The Mathematica Journal",
FontSlant->"Italic"],
", 2012. ",
ButtonBox["doi:10.3888/tmj.10.2\[Dash]5",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://dx.doi.org/10.3888/tmj.10.2-5"], None},
ButtonNote->"http://dx.doi.org/10.3888/tmj.10.2-5"],
}], "DOIReference1",
CellChangeTimes->{{3.589*^9, 3.703*^9}, {
3.3007`*^9, 3.167*^9}}],
Cell[TextData[{
StyleBox["Stephen Wolfram", "AboutAuthorB"],
"\nFounder and CEO\n",
StyleBox["Wolfram Research, Inc.\n", "AboutAuthorI"],
StyleBox[ButtonBox["s.",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["mailto:s."], None}], "AboutAuthorI"],
StyleBox[ButtonBox["www.wolframscience.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://www.wolframscience.com"], None}], "AboutAuthorI"]
}], "TextAboutAuthor",
CellMargins->{{Inherited, Inherited}, {Inherited, 30}},
CellGroupingRules->{"SectionGrouping", 40}]
ScreenStyleEnvironment->"Working",
PrintingStyleEnvironment->"Printout",
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{640, 750},
WindowMargins->{{318, Automatic}, {Automatic, 115}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{Inherited, Inherited,
Cell["Stephen Wolfram", "Header"]}, {
Cell["The Future of Computation", "Header"], Inherited, Inherited}},
PageFooters->{{
TextData[{"The Mathematica Journal ",
StyleBox["10", "SBO"], ":2 \[Copyright] 2006 Wolfram Media, Inc."}],
"Footer"], Inherited, None}, {None, Inherited,
TextData[{"The Mathematica Journal ",
StyleBox["10", "SBO"], ":2 \[Copyright] 2006 Wolfram Media, Inc."}],
"Footer"]}},
Magnification->1,
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
StyleDefinitions->Notebook[{
CellGroupData[{
TextData[{"Style Definitions for \n",
StyleBox["The Mathematica Journal", FontSlant -> "Italic"]}],
"Subtitle", CellMargins -> {{0, Inherited}, {Inherited, 0}},
CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 36, FontWeight ->
"Bold", FontColor -> GrayLevel[1], Background -> GrayLevel[0]],
StyleData[StyleDefinitions -> "Default_8.0.nb"]],
CellGroupData[{
"Styles Brought in from Core.nb, adjusted for TMJ", "Section",
CellFrame -> False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Code"], PageWidth -> DirectedInfinity[1],
CellMargins -> {{57, 21}, {10, 10}}, Evaluatable -> True,
CellGroupingRules -> "InputGrouping", TextClipboardType ->
"Package", StripStyleOnPaste -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, InitializationCell -> True,
DefaultFormatType -> DefaultInputFormatType, AutoIndent -> False,
ShowAutoStyles -> True, "TwoByteSyntaxCharacterAutoReplacement" ->
True, HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
AutoItalicWords -> {}, LanguageCategory -> "Mathematica",
AutoSpacing -> False, ShowStringCharacters -> True, NumberMarks ->
True, DigitBlock -> DirectedInfinity[1], ZeroWidthTimes -> True,
LineBreakWithin -> False, LineIndent -> 0, CounterIncrements ->
"Code", MenuSortingValue -> 1375, MenuCommandKey -> "8",
FontSize -> 11, FontWeight -> "Bold", Background ->
RGBColor[0.9, 0.9, 1]],
StyleData["Code", "Presentation", StyleDefinitions -> None]],
StyleData["Code", "SlideShow", StyleDefinitions -> None]],
StyleData["Code", "Printout", StyleDefinitions -> None]]},
Cell["Brought in from Core.nb, removed FontSize", "Text"],
StyleData["MSG"], StyleMenuListing -> None, FontFamily ->
"Helvetica"],
Cell["Brought in from Core.nb, not modified", "Text"],
StyleData["PrintUsage"], Editable -> False, PageWidth ->
WindowWidth, CellFrame -> {{0, 0}, {0, 3}}, CellFrameColor ->
RGBColor[1, 0.0001, 0], FontFamily -> "Helvetica",
FontSize -> 10, Background -> RGBColor[1, 0..899718]]},
CellGroupData[{
"Style Environment Names", "Section", CellFrame -> False,
CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
"Corrected style environment names to use the MenuPosition values \
from Core.nb. ", "Text"],
StyleData[All, "Working"],
CellBracketOptions -> {
"Color" -> RGBColor[0...362966]}, ShowCellLabel ->
True, CellFrameLabelMargins -> 6, ScriptMinSize -> 9,
MenuSortingValue -> 1100],
StyleData[All, "Presentation"], ScreenStyleEnvironment ->
"Presentation", MenuSortingValue -> 1200, Magnification -> 1.25],
StyleData[All, "Printout"], PageWidth -> PaperWidth,
ShowCellBracket -> True, CellLabelAutoDelete -> False, Hyphenation ->
True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 4}},
ScriptMinSize -> 5, MenuSortingValue -> 1500,
PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification ->
Cell["Disabled Menu appearance for SlideShow and Condensed", "Text"],
StyleData[All, "SlideShow"], PageWidth -> WindowWidth, DockedCells ->
FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"],
ScrollingOptions -> {
"PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit},
ShowCellBracket -> False, ShowAutoStyles -> False, ScriptMinSize ->
9, MenuSortingValue -> 1300, StyleMenuListing -> None],
StyleData[All, "Condensed"], PageWidth -> WindowWidth,
CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}},
ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue ->
1400, StyleMenuListing -> None]}, Closed]],
CellGroupData[{
"Notebook Options", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
"The options defined for the style below will be used at the \
Notebook level.", "Text"],
StyleData["Notebook"], PageHeaders -> {{
TextData[{
CounterBox["Page"]}], "PageNumber"], Inherited,
Cell["Author(s)", "Header"]}, {
Cell["Article Title", "Header"], Inherited,
TextData[{
CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{
TextData[{"The Mathematica Journal ",
StyleBox["volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"],
Inherited,
TextData[{
ValueBox["FileName"], " ",
ValueBox["Date"]}], "Footer"]}, {
TextData[{
ValueBox["FileName"], " ",
ValueBox["Date"]}], "Footer"], Inherited,
TextData[{"The Mathematica Journal ",
StyleBox["volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"]}},
PrintingOptions -> {
"FacingPages" -> True, "FirstPageHeader" -> False,
"PageFooterMargins" -> {36, 36}, "PageHeaderMargins" -> {42, 42},
"PrintRegistrationMarks" -> False,
"PrintingMargins" -> {{90, 90}, {90, 90}}}, CellFrameLabelMargins ->
6, HyphenationOptions -> {
"HyphenationCharacter" -> "-", "HyphenationFreeZone" -> 12,
"HyphenationMinLengths" -> {2, 3}}, StyleMenuListing -> None]},
CellGroupData[{
"Styles for Headings", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Title"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {0, 15}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Title",
CounterAssignments -> {{"Subtitle", 0}, {"Section", 0}, {
"Subsection", 0}, {"Subsubsection", 0}, {"List", 0}, {
"NumberedFigure", 0}, {"NumberedTable", 0}, {
"NumberedProgram", 0}, {"Equation", 0}, {"Text", 0}, {
"SmallText", 0}, {"Reference", 0}}, MenuSortingValue -> 1100,
FontFamily -> "Times", FontSize -> 36, FontWeight -> "Plain",
FontSlant -> "Italic"],
StyleData["Title", "Presentation", StyleDefinitions -> None]],
StyleData["Title", "SlideShow", StyleDefinitions -> None]],
StyleData["Title", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subtitle"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {5, 2}},
CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subtitle", FontFamily -> "Times", FontSize ->
24, FontSlant -> "Italic"],
StyleData["Subtitle", "Presentation", StyleDefinitions -> None]],
StyleData["Subtitle", "SlideShow", StyleDefinitions -> None]],
StyleData["Subtitle", "Printout", StyleDefinitions -> None]]},
StyleData["Subsubtitle"], MenuSortingValue -> "None"],
CellGroupData[{
StyleData["Section"], CellFrame -> False, CellDingbat ->
"\[FilledSquare]", CellMargins -> {{21, 21}, {10, 30}},
Evaluatable -> False,
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, Hyphenation -> False, CounterIncrements -> "Section",
CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
"ItemNumbered", 0}}, AspectRatioFixed -> True, FontFamily ->
"Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor ->
0.5, 0.64637`]],
StyleData["Section", "Presentation", StyleDefinitions -> None]],
StyleData["Section", "SlideShow", StyleDefinitions -> None]],
StyleData["Section", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsection"], CellDingbat -> "\[EmptySquare]",
CellMargins -> {{21, 21}, {10, 26}},
CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsection",
CounterAssignments -> {{"Subsubsection", 0}, {
"ItemNumbered", 0}}, FontFamily -> "Helvetica", FontSize -> 14,
FontWeight -> "Bold", FontColor -> GrayLevel[0]],
StyleData[
"Subsection", "Presentation", StyleDefinitions -> None]],
StyleData["Subsection", "SlideShow", StyleDefinitions -> None]],
StyleData["Subsection", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsubsection"], CellDingbat ->
"\[FilledSmallSquare]", CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant ->
"Oblique"],
StyleData[
"Subsubsection", "Presentation", StyleDefinitions -> None]],
StyleData[
"Subsubsection", "SlideShow", StyleDefinitions -> None]],
StyleData[
"Subsubsection", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsubsubsection"], CellDingbat -> None,
CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight ->
StyleData[
"Subsubsubsection", "Presentation", StyleDefinitions -> None]],
StyleData[
"Subsubsubsection", "SlideShow", StyleDefinitions -> None]],
StyleData[
"Subsubsubsection", "Printout", StyleDefinitions -> None]]},
Closed]]}, Closed]],
CellGroupData[{
"Styles for Body Text", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Text"], CellMargins -> {{21, 21}, {4, 4}},
CounterIncrements -> "Text",
CounterAssignments -> {{"ItemNumbered", 0}}, MenuSortingValue ->
1370, MenuCommandKey -> "7", FontFamily -> "Times", FontSize ->
StyleData["Text", "Presentation", StyleDefinitions -> None]],
StyleData["Text", "SlideShow", StyleDefinitions -> None]],
StyleData["Text", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Quote"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
MenuSortingValue -> 1520, FontFamily -> "Times", FontSize -> 12],
StyleData["Quote", "Presentation", StyleDefinitions -> None]],
StyleData["Quote", "SlideShow", StyleDefinitions -> None]],
StyleData["Quote", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
CellGroupData[{
"Styles for Input, Output, and Graphics", "Section", CellFrame ->
False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Input"], CellMargins -> {{57, 21}, {10, 10}},
Evaluatable -> True, CellGroupingRules -> "InputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultInputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, ShowStringCharacters -> True, NumberMarks ->
True, CounterIncrements -> "Input", MenuSortingValue -> 1400,
FontSize -> 11, FontWeight -> "Bold", Background -> None],
StyleData["Input", "Presentation", StyleDefinitions -> None]],
StyleData["Input", "SlideShow", StyleDefinitions -> None]],
StyleData["Input", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Output"], CellMargins -> {{57, 21}, {13, 5}},
CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, GeneratedCell -> True,
CellAutoOverwrite -> True,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultOutputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, CounterIncrements -> "Output",
StyleMenuListing -> None, FontSize -> 11, Background -> None],
StyleData["Output", "Presentation", StyleDefinitions -> None]],
StyleData["Output", "SlideShow", StyleDefinitions -> None]],
StyleData["Output", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Message"], CellFrame -> {{0.25, 0.25}, {0, 0}},
CellDingbat -> "\[WarningSign]",
CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules ->
"OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin ->
False, GeneratedCell -> True, CellAutoOverwrite -> True,
ShowCellLabel -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], CellFrameLabelMargins ->
0, DefaultFormatType -> DefaultOutputFormatType,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10, FontColor ->
RGBColor[0, 0, 1], Background -> GrayLevel[0.949996]],
StyleData["Message", "Presentation", StyleDefinitions -> None]],
StyleData["Message", "SlideShow", StyleDefinitions -> None]],
StyleData["Message", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Print"], CellFrame -> True,
CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules ->
"OutputGrouping", CellHorizontalScrolling -> True,
PageBreakWithin -> False, GroupPageBreakWithin -> False,
GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel ->
False, CellLabelMargins -> {{23, Inherited}, {
Inherited, Inherited}}, CellFrameColor -> GrayLevel[0],
DefaultFormatType -> DefaultOutputFormatType,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10],
StyleData["Print", "Presentation", StyleDefinitions -> None]],
StyleData["Print", "SlideShow", StyleDefinitions -> None]],
StyleData["Print", "Printout", StyleDefinitions -> None]]},
TextData[{
"PlacedGraphics cell style to be used when importing a graphic \
from another
application or when presenting a graphic not associated with ",
StyleBox["Mathematica", FontSlant -> "Italic"],
" input. May be followed by NumberedFigureCaption."}], "Text"],
CellGroupData[{
StyleData["PlacedGraphics"], CellFrame -> False,
CellMargins -> {{21, 21}, {8, 10}}, CellGroupingRules ->
"GraphicsGrouping", CellHorizontalScrolling -> True,
ShowCellLabel -> False, TextAlignment -> Left,
LineSpacing -> {1, 1},
InsetBoxOptions -> {
BaseStyle -> {CellFrame -> None, Background -> None}}],
StyleData[
"PlacedGraphics", "Presentation", StyleDefinitions -> None]],
StyleData[
"PlacedGraphics", "SlideShow", StyleDefinitions -> None]],
StyleData[
"PlacedGraphics", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["CellLabel"],
CellMargins -> {{5, Inherited}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Helvetica", FontSize -> 8, FontSlant -> "Oblique", FontColor ->
RGBColor[0...362966]],
StyleData[
"CellLabel", "Presentation", StyleDefinitions -> None]],
StyleData["CellLabel", "SlideShow", StyleDefinitions -> None]],
StyleData["CellLabel", "Printout", StyleDefinitions -> None]]},
Closed]]}, Closed]],
CellGroupData[{
"Styles for Automatic Numbering and Lists", "Section", CellFrame ->
False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["DisplayFormulaNumbered"],
CellMargins -> {{39, 21}, {4, 4}}, StripStyleOnPaste -> True,
CellFrameLabels -> {{None,
TextData[{"(",
CounterBox["DisplayFormulaNumbered"], ")"}],
CellSize -> {30, Inherited}, TextAlignment -> Right]}, {
None, None}}, DefaultFormatType -> TraditionalForm,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
LineSpacing -> {1, 1}, LanguageCategory -> "Formula",
ScriptLevel -> 0, SingleLetterItalics -> True, CounterIncrements ->
"DisplayFormulaNumbered", MenuSortingValue -> 1700, FontFamily ->
UnderoverscriptBoxOptions -> {LimitsPositioning -> True}],
StyleData[
"DisplayFormulaNumbered", "Presentation", StyleDefinitions ->
StyleData[
"DisplayFormulaNumbered", "SlideShow", StyleDefinitions ->
StyleData[
"DisplayFormulaNumbered", "Printout", StyleDefinitions ->
None]]}, Closed]],
CellGroupData[{
StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}},
StripStyleOnPaste -> True,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory ->
"Formula", ScriptLevel -> 1, SingleLetterItalics -> True,
MenuSortingValue -> None],
StyleData[
"InlineFormula", "Presentation", StyleDefinitions -> None]],
StyleData[
"InlineFormula", "SlideShow", StyleDefinitions -> None]],
StyleData[
"InlineFormula", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedFigureCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, TextAlignment -> Left,
LineSpacing -> {1, 1}, CounterIncrements -> "NumberedFigure",
MenuSortingValue -> 1711, FormatTypeAutoConvert -> False,
FontFamily -> "Helvetica", FontSize -> 10],
StyleData[
"NumberedFigureCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedFigureCaption", "SlideShow", StyleDefinitions -> None]],
StyleData[
"NumberedFigureCaption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedTableCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedTable", MenuSortingValue -> 1712,
FontFamily -> "Helvetica", FontSize -> 10],
StyleData[
"NumberedTableCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedTableCaption", "SlideShow", StyleDefinitions -> None]],
StyleData[
"NumberedTableCaption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedProgramCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedProgram", MenuSortingValue -> 1713,
FormatTypeAutoConvert -> False, FontFamily -> "Helvetica",
FontSize -> 10],
StyleData[
"NumberedProgramCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedProgramCaption", "SlideShow", StyleDefinitions ->
StyleData[
"NumberedProgramCaption", "Printout", StyleDefinitions ->
None]]}, Closed]],
CellGroupData[{
StyleData["Caption"], CellDingbat -> "\[FilledUpTriangle]",
CellMargins -> {{21, 21}, {Inherited, 5}}, PageBreakAbove ->
False, LineSpacing -> {1, 1}, FontFamily -> "Helvetica",
FontSize -> 10],
StyleData["Caption", "Presentation", StyleDefinitions -> None]],
StyleData["Caption", "SlideShow", StyleDefinitions -> None]],
StyleData["Caption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Item"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1775, FontFamily -> "Times", FontSize -> 12],
StyleData["Item", "Presentation", StyleDefinitions -> None]],
StyleData["Item", "SlideShow", StyleDefinitions -> None]],
StyleData["Item", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Subitem"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{74, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, MenuSortingValue -> 1776, FontFamily ->
"Times", FontSize -> 12],
StyleData["Subitem", "Presentation", StyleDefinitions -> None]],
StyleData["Subitem", "SlideShow", StyleDefinitions -> None]],
StyleData["Subitem", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["ItemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold",
CellSize -> {20, Inherited}, TextAlignment -> Right],
CellMargins -> {{58, 21}, {Inherited, Inherited}}, CellBaseline ->
Baseline, LineSpacing -> {1, 1}, TabSpacings -> {4.},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1777, FontFamily -> "Times", FontSize -> 12],
StyleData[
"ItemNumbered", "Presentation", StyleDefinitions -> None]],
StyleData[
"ItemNumbered", "SlideShow", StyleDefinitions -> None]],
StyleData["ItemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["SubitemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["SubitemNumbered", CounterFunction :> (Part[
CharacterRange["a", "z"], #]& )], "."}], FontWeight ->
"Bold"], CellMargins -> {{74, 21}, {Inherited, Inherited}},
CellBaseline -> Baseline, LineSpacing -> {1, 1},
MenuSortingValue -> 1778, FontFamily -> "Times", FontSize -> 12],
StyleData[
"SubitemNumbered", "Presentation", StyleDefinitions -> None]],
StyleData[
"SubitemNumbered", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SubitemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"ItemParagraph", StyleDefinitions -> StyleData["Item"]],
CellDingbat -> None, CounterIncrements -> "ItemParagraph",
MenuSortingValue -> 1779],
StyleData[
"ItemParagraph", "Presentation", StyleDefinitions -> None]],
StyleData[
"ItemParagraph", "SlideShow", StyleDefinitions -> None]],
StyleData["ItemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]],
CellDingbat -> None, CounterIncrements -> "SubitemParagraph",
MenuSortingValue -> 1800],
StyleData[
"SubitemParagraph", "Presentation", StyleDefinitions -> None]],
StyleData[
"SubitemParagraph", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SubitemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Reference"], CellDingbat -> Cell[
TextData[{"[",
CounterBox["Reference"], "]"}], "SR",
CellSize -> {25, Inherited}, TextAlignment -> Right],
CellMargins -> {{47, 21}, {Inherited, Inherited}},
CellFrameLabels -> {{None, None}, {None, None}},
LineSpacing -> {1, 1}, CounterIncrements -> "Reference",
MenuSortingValue -> 1870, FontFamily -> "Helvetica", FontSize ->
StyleData["Reference", "Presentation", StyleDefinitions -> None],
CellMargins -> {{59, 21}, {Inherited, Inherited}}],
StyleData["Reference", "SlideShow", StyleDefinitions -> None]],
StyleData["Reference", "Printout", StyleDefinitions -> None],
CellMargins -> {{45, 21}, {Inherited, Inherited}},
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"DOIReference", StyleDefinitions -> StyleData["Reference"]],
CellDingbat -> None, CellMargins -> {{21, 21}, {Inherited, 10}},
CounterIncrements -> "DOIReference", FontSize -> 9],
StyleData["DOIReference", "Presentation"],
CellMargins -> {{21, 21}, {Inherited, 10}}],
StyleData["DOIReference", "Printout"],
CellMargins -> {{21, 21}, {Inherited, 10}}]}, Closed]],
StyleData[
"DOIReference1", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.589*^9, 3.703*^9}}],
StyleData[
"DOIReference10", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.589*^9,
3.4378`*^9}}]}, Closed]],
CellGroupData[{
"Journal Element Styles", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
StyleData["OnlineHeader"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{0, 0}, {0, 0}},
CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> False,
CellFrameMargins -> {{21, 21}, {2, 8}}, Hyphenation -> False,
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Times", FontSize -> 14, FontWeight -> "Plain", FontSlant ->
"Italic", FontColor ->
0.2, 0.8719],
Background -> RGBColor[0, 0, 0]],
"ColumnTitle is a renaming of PreTitle.", "Text",
CellChangeTimes -> {{3.3597`*^9,
3.122*^9}}],
CellGroupData[{
StyleData["ColumnTitle"], ShowCellBracket -> False,
CellMargins -> {{21, 21}, {14, 4}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, CellFrameMargins -> {{55, 4}, {8, 20}}, Hyphenation ->
False, LineSpacing -> {1, 1}, StyleMenuListing -> None,
FontFamily -> "Helvetica", FontSize -> 13, FontWeight ->
"Regular"],
StyleData[
"ColumnTitle", "Presentation", StyleDefinitions -> None]],
StyleData["ColumnTitle", "SlideShow", StyleDefinitions -> None]],
StyleData["ColumnTitle", "Printout", StyleDefinitions -> None]]},
"Author to be used after the Title cell with author name(s). Author \
name(s) may be preceded by \"Edited by \" for certain columns. Text in author \
cell to be used as the left page header.", "Text"],
CellGroupData[{
StyleData["Author"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {4, 6}}, CellGroupingRules ->
"NormalGrouping", PageBreakBelow -> False, Hyphenation -> False,
LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 0},
MenuSortingValue -> 1155, FontFamily -> "Helvetica", FontSize ->
14, FontWeight -> "Bold"],
StyleData["Author", "Presentation", StyleDefinitions -> None]],
StyleData["Author", "SlideShow", StyleDefinitions -> None]],
StyleData["Author", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Abstract"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 83}, {4, 25}}, Hyphenation -> False,
LineSpacing -> {1, 3}, MenuSortingValue -> 1156, FontFamily ->
"Helvetica", FontSize -> 13, FontWeight -> "Regular", FontSlant ->
StyleData["Abstract", "Presentation", StyleDefinitions -> None]],
StyleData["Abstract", "SlideShow", StyleDefinitions -> None]],
StyleData["Abstract", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Question"], CellFrame -> {{0, 0}, {0, 2}},
CellDingbat -> "Q:", CellMargins -> {{45, 45}, {8, 8}},
CellFrameMargins -> {{0, 0}, {2, 4}}, LineSpacing -> {1, 1},
MenuSortingValue -> 1820, FontFamily -> "Times", FontSize -> 14,
FontWeight -> "Bold", FontColor ->
RGBColor[0...580118]],
StyleData["Question", "Presentation", StyleDefinitions -> None]],
StyleData["Question", "SlideShow", StyleDefinitions -> None]],
StyleData["Question", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Answer"], CellDingbat ->
Cell["A:", FontWeight -> "Bold"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1860, FontFamily -> "Times", FontSize -> 12],
StyleData["Answer", "Presentation", StyleDefinitions -> None]],
StyleData["Answer", "SlideShow", StyleDefinitions -> None]],
StyleData["Answer", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["TextAboutAuthor"], CellMargins -> {{21, 21}, {2, 5}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1880, FontSize -> 12],
StyleData[
"TextAboutAuthor", "Presentation", StyleDefinitions -> None]],
StyleData[
"TextAboutAuthor", "SlideShow", StyleDefinitions -> None]],
StyleData[
"TextAboutAuthor", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["SectionAboutAuthor"],
CellMargins -> {{21, 21}, {10, 30}},
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, CellFrameMargins -> 4, Hyphenation -> False,
LineSpacing -> {1, 1}, MenuSortingValue -> 1875, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold"],
StyleData[
"SectionAboutAuthor", "Presentation", StyleDefinitions -> None]],
StyleData[
"SectionAboutAuthor", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SectionAboutAuthor", "Printout", StyleDefinitions -> None]]},
"Styles for algorithm listings, based on BulletedList, indent an \
additional 12 points for each level, dingbat also changes", "Text"],
CellGroupData[{
StyleData["Algorithm1"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
StyleData[
"Algorithm1", "Presentation", StyleDefinitions -> None]],
StyleData["Algorithm1", "SlideShow", StyleDefinitions -> None]],
StyleData["Algorithm1", "Printout", StyleDefinitions -> None],
TextJustification }
&&& 近日，lz闲来无事想起来正在内测的2kol，于是跑到网吧下了个客户端想体验一番。&&& 激活码是第一个问题，lz向来自认运气不好，直接来到淘宝搜索，tmd25一个，还真敢要价。我回到了官网首页，没想到一抽即中。&&& 闲话少叙，开始正题。总的来说，2kol的效果要比想象中好，至少要比单机联网的效果好，而且好得不是一星半点。我觉得2kol的整体框架是2k11的，操作方面也差不多，是个阉割版的2k11操作。游戏主要分为三个模式，自由，对抗和街球。&&& 【自由】这个模式没什么特别，自由选择队伍也可以随机，2分钟一节没有暂停没有受伤只能用主力，选到一类有超级第六人的球队比较吃亏，因为根本不存在第二阵容的说法。&&& 【对抗】这个是类似MP的模式，自建一个球员选择位置参加选秀，只有少数几只球队可以被选中，山猫，一般都是状元秀，攒够人气可以通过交易卡转会你喜欢的球队当中去。总得来说，这些球队中也就国王还不错，其他的实在是难用啊。如果有2k单机的经验上手那叫一个快，我建立人物，过了训练直接大杀四方，2个半小时轻松冲到11级，未尝败绩。&&& 【街球】可以用自建球员也可以使用球星卡，创意很不错，本来应该是最受大家期待的模式，结果却成了最让人砸键盘的一个模式。毕竟篮球是需要团队的，碰见个传球键坏了的自以为是的救世主，你只能是摔键盘了。那一次对面是三个中锋，小奥和门罗，我这边是兰斯一个自建球员和我用的。本以为完爆，结果那个兰斯sb全场不传一球，一个人单干，而且操作水的一比，直直地往三个中锋的篮下扎，各种冒，惨不忍睹，结果4分钟街球赛居然输了24分！还有一次我们三个林书豪，对面一个一个邓肯一个，我无奈换出来一个的海伍德，本方的两个后卫也是完全单干型的，我只能拼命抢板盖帽然后追进比分。最后剩23.8秒打平，我跑了个空位不给，自己2b自己原地拔三分，不中没关系，关键是不压时间投出去还有18秒，结果人家抢板轻松一个中投领先，留下4秒。最后一球我的，突进去一个扣篮算是拖进了加时，结局一样，最后一刻平局。还是2个2b不传球被邓肯断了然后竟然投进了绝杀三分！最后统计我拿了十六分八个板，怎么八个板很多？开玩笑，我用林书豪还盖过四个帽呢。哎，总之，街头赛不认识的在一起玩总是有风险的，毕竟砸了键盘是要赔的。&&&& 缺点：没有方向投篮键，少了很多花哨的动作&&&&&&&&&& 没有故意犯规暂停，只要最后一个二十四秒内领先一分，赢了！&&&&&&&&&& &&&& 经验之谈：每款篮球游戏都有那么几类讨厌的人，对于不传球的实在是没办法，除了强退就是砸键盘了。对于那些根本没有技术，打对抗赛是把MP一直放到半场不回来只要球不进的人一定也特别烦心。我的对策是过半场停球，除了有很好内线扣篮或者完全的空位，否则拖到24秒。
这些回帖亮了
引用5楼 @ 发表的:解说蛋疼 玩起来比2K12还要卡 而且还是2K12的各种低等效果的衍生品而已解说纯*河蟹*，所有球员用他代替，所有球队用他们代替，每个扣篮都是暴力美学的典范，每个罚球都是夏天加练过的。。。发自手机虎扑 m.hupu.com
引用10楼 @ 发表的:
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
哥们
我是一直给你传球的詹姆斯啊
引用22楼 @ 发表的:
这种路人游戏真是应了那句老话【不怕神一样的对手就怕猪一样的队友】
最令人气愤的不是遇到猪一样的队友
而是猪一样的队友骂你是猪
街头模式有的队友真的很坑人。。。各种单干，不传球。受不了啊。
显然没写完，有空再说
楼主写的不错，
什么时候可以改投篮动作啊..........
街头模式有的队友真的很坑人。。。各种单干，不传球。受不了啊。
解说蛋疼 玩起来比2K12还要卡 而且还是2K12的各种低等效果的衍生品而已
还不错哦！
很客观的评价！赞一个！
淘宝3.5元买的 发自手机虎扑 m.hupu.com
第一个号是0.9元买的，还是那种绑定了QQ的那种
后来果断12点过后官网抽···
打对抗时，试过和半场不回的那种人怄气···连搞了三盘，可以只赢了一盘。这bug都这么多年了
唉，虽然缺点一大堆
但始终还是目前最好的篮球oL
···抽了一次就抽见了
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
我用手柄玩还是能用右摇杆操作啊（就是投篮方向键）。。。
难道其实不是我按的，，，什么欧洲步跳步都是随机出的？
对于那些根本没有技术，打对抗赛是把MP一直放到半场不回来只要球不进的人一定也特别烦心。
引用10楼 @ 发表的:
是2K不是街头篮球，很多人以为PF C就只会抢篮板，别得啥都干不了，
乐福情何以堪呀，看着一帮3分数值没自己高的不停干拔。
我用波什 拉空间，半截篮命中率几乎90%，一般情况下都是进，对面C防出来，我就传，不防出来我就投， 对面要是紧贴我，我就拉到靠近3分线，看队友突破，自己站那。
遇到好队友知道战术的，不停的分享球，那叫舒服。遇到独的没辙。
挡拆+快下或直接投篮
这个简单战术 是屡试不爽
哥们
我是一直给你传球的詹姆斯啊
引用13楼 @ 发表的:
我是一直给你传球的詹姆斯啊
真的假的呀，你ID叫什么呀
引用14楼 @ 发表的:
真的假的呀，你ID叫什么呀
是我的姓名 不便透漏
前几天是咱们一起玩的吗
和楼主同感。 现在我就和我的朋友一起玩 还是比较有默契的 百分之70+的胜率。
现在的单打王都太牛了。各种骚投，然后怪你没板。碰到这类SB真的没辙。在聊天框骂两句吧。可能别人压根就没看见。因为聊天框你要按下ENTER键自己说话时才能看见别人的话。o(︶︿︶)o 唉JRS碰到这种自我为中心的人只能自求多福了。
*河蟹*没有恶意犯规键真烦人
看了楼主的帖子 去抽 点了活塞 抽到了。。。
习惯了 从不打对抗 打了几百局了 多数是街头 表示有可玩性技术流 就是有些BUG还是要改
街头赛确实受不了
您需要登录后才可以回复，请或者
466人参加团购259.00元&469.00元
1155人参加团购299.00元&890.00元
1695人参加团购659.00元&1399.00元
13人参加团购145.00元&358.00元
389人参加团购225.00元&599.00元
154人参加团购189.00元&539.00元
55人参加团购99.00元&249.00元
316人参加团购199.00元&829.00元
83人参加团购299.00元&569.00元
650人参加团购429.00元&1099.00元
2614人参加团购288.00元&999.00元
8人参加团购89.00元&299.00元(* 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[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
Cell[BoxData[
SuperscriptBox["Mathematica", "\[RegisteredTrademark]"], TraditionalForm]]],
}], "OnlineHeader"],
Cell["The Future of Computation", "Title"],
Cell["Stephen Wolfram", "Author"],
Cell[TextData[StyleBox["(Edited transcript of a videoconference keynote \
address given at IMS 2005.)",
FontSlant->"Italic"]], "Text"],
Cell[TextData[{
"It is a pleasure to be with you all today. My main excuse for not being \
there in person is that we really have to finish the next version of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". I think it is probably fair to say that almost nobody thinks I should be \
doing anything other than working very hard on the upcoming version of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", which I can assure you is going to be something extremely exciting, that \
we have been working on for a great many years. "
}], "Text"],
Cell[TextData[{
"But I thought today that I would not talk mainly about near-term ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" technology. The original title for this talk was ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" and the Future of Computation, but then I saw it had been changed to just \
The Future of Computation. The modification to the title got me thinking \
about what I really should be talking about. So I am going to talk about the \
modified title. I decided that would give me more license to talk about a \
broader range of things, and I thought that we might have some fun with that. "
}], "Text"],
Cell[TextData[{
"What will be the future of computation? To really home in on that question \
some of what we have to think about is what computation is, what computation \
has been, what kinds of things could computation be in the future, what kinds \
of things can we perhaps uniquely learn from our experience with ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" about the nature of computation and about its future directions. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"But I guess it was during the 1800s the idea of purely abstract kinds of \
mathematical constructs and operators really took root. There were things \
like the work of Galois on groups and the development of Boolean algebra and \
abstract logic by Boole. Then came the development of abstract algebra in the \
late 1800s and so on. Then there was the notion of people like Peano trying \
to formalize, trying to make a human-like language that could be used to find \
a uniform formalization of mathematics. And that, in the 1910s, led to things \
like the Whitehead and Russell venture of ",
StyleBox["Principia Mathematica",
FontSlant->"Italic"],
", one of the uses of the \[OpenCurlyDoubleQuote]mathematica\
\[CloseCurlyDoubleQuote] word in the past, where the notion was could one \
take all of the ideas of mathematics and formalize them in a way that was \
somehow based on logic? As you may know, Whitehead and Russell produced this \
giant three-volume work that purported to describe how mathematics worked. \
Unfortunately, it went in rather small steps and it was rather hard to \
understand. It determined that 2 + 2 was equal to 4 somewhere about \
two-thirds of the way through the first book. It was an early attempt to \
formalize a process, in this case a process of mathematical proof and \
presentation."
}], "Text"],
Cell[TextData[{
"When you look at the pages of ",
StyleBox["Principia Mathematica",
FontSlant->"Italic"],
" they almost seem like a uniquely bad notation for actually presenting the \
ideas of mathematics. Nevertheless, as a proof of principle it was something \
very important to take this large volume of potential mathematical knowledge \
and try and formalize it in a uniform way. "
}], "Text"],
Cell[TextData[{
"Then there were other kinds of ideas that came up in the 1920s about the \
formalization of things. For example, the idea of recursive functions came \
up. In fact the very idea of functions had been a fairly recent construct, \
something that had really cropped up in the 1880s or so. The idea of just \
some abstract thing, ",
Cell[BoxData[
FormBox["f", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["x", TraditionalForm]], "Math"],
", where you feed it anything and it munches on it and produces an answer. \
That idea of abstracting a notion of a function was a comparatively late one \
in the history of mathematics.
}], "Text",
CellChangeTimes->{{3.139*^9, 3.833*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"As time went forward, there were a few other strands, a few other kinds of \
primitive operations that were considered for computation. Another one that \
came very early in the history, although was ignored until many years later, \
was an idea called combinators, which are the ultimate functional programming \
construct, in a sense. These typically are set up as two combinators, ",
Cell[BoxData[
FormBox["s", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["k", TraditionalForm]], "Math"],
", and it is a nice ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" exercise to construct functions out of just nesting these ",
Cell[BoxData[
FormBox["s", TraditionalForm]], "Math"],
Cell[BoxData[
FormBox["k", TraditionalForm]], "Math"],
" combinators. That was actually an idea that came up in 1921. Although it \
was not really recognized until probably the 1940s or later, that this was a \
significant and worthwhile thing, which has perhaps not even been recognized \
until today. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"When I got serious about building what is now ",
StyleBox["Mathematica,",
FontSlant->"Italic"],
" one of the things that I was interested in was to see how general could we \
make this notion of computation. How could we take the idea of what \
computation could be, the representation of arbitrary processes and arbitrary \
kinds of constructs and to what extent could we build the system that could \
really make use of this potential generality that the idea of computation has?"
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"So this line of thinking is part of what got me started, what fueled some \
of my scientific efforts. For my own personal purposes, the idea that when \
one builds a computer language like ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", in a sense what one is trying to do is take all these abstract processes \
that people want to do and find what the primitives are out of which those \
operations can be formed. And then we give those primitives names like ",
Cell[BoxData["NestList"], "MCode"],
Cell[BoxData["Fold"], "MCode"],
" or whatever else. Those are the primitives from which we build up the \
things that people want to do\[LongDash]the processes that people want to \
carry out. "
}], "Text",
CellChangeTimes->{{3.621*^9, 3.959*^9}}],
Cell["\", "Text"],
Cell[TextData[{
"Before Newton, it was not clear how one should represent processes in \
nature. There were a lot of different sometimes quite wacky ideas about that, \
the great advance of 1687 and Newton\[CloseCurlyQuote]s Principia \
Mathematica, the title of his book was ",
StyleBox["Mathematical Principles of Natural Philosophy",
FontSlant->"Italic"],
". His notion was can we take natural philosophy, this systematic study of \
nature, and can we put mathematical principles onto that. That was a great \
idea and a great advance. It fueled the development of the physical and other \
exact sciences for 300 years, this notion that one can take mathematical \
equations, ideas from mathematics, ideas about calculus, and so on and one \
can use them to explain and represent processes in nature. "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"So in a sense, as I was saying at the beginning, at least my view of what \
computation is in essence, is that it is a way of finding an abstract \
representation of processes. So among other things these ideas of computation \
should be able to find good abstract representations of the processes that go \
on in nature too. What one realizes as one looks at the underlying constructs \
of whether it is Turing machines, whether it is ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", the underlying as it is turned out quite uniform constructs that support \
universal computation that allow one to make programs and so on, all those \
constructs are considerably broader than traditional ones that exist in \
mathematics and arithmetic and calculus and so on. "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[StyleBox["Figure 1 is an example of one of them.",
FontVariations->{"CompatibilityType"->0}]], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 276.625},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 304.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 276.625},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"And in fact, the ",
Cell[BoxData["Random"], "MCode"],
" function in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
Cell[BoxData[
RowBox[{"Random", "[", "Integer", "]"}]], "MCode"],
", has used this method for generating randomness ever since ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Version 1 was released. And it has been a really good method of generating \
randomness. In fact it has been an embarrassment to us that for some real \
number random generation methods we used, against my better judgment I was \
convinced that we should use more traditional random generators, which were \
slightly faster at the time when these things were first implemented but \
which have turned out to have all kinds of horrible bugs. So, this particular \
way of generating randomness, this little rule 30 thing, which is by far the \
simplest in terms of its rule, has withstood all of these attacks. So this is \
a remarkable thing. It is not one\[CloseCurlyQuote]s common intuition. "
}], "Text",
CellChangeTimes->{{3.8773`*^9, 3.258*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"One of the things one might start to think about is: What does it mean to \
have a system that does a computation? Usually when we think of computation \
we think of setting a system up to specifically achieve some particular task \
that we have set for it. So for example, Figure 5 is a system, it happens to \
be a cellular automaton, that is set up specifically to achieve the task of \
squaring its input. So you put in ",
Cell[BoxData[
FormBox["n", TraditionalForm]], "Math"],
" black cells at the top and then the system does its thing and then out at \
the bottom by a not terribly clever algorithm the system produces ",
Cell[BoxData[
FormBox["n", TraditionalForm]], "Math"],
" squared black cells. "
}], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 215.75},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 374.688},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell[TextData[{
"Well, I think that the answer is really definitely yes, it absolutely \
counts as a computation. It is not a computation where we necessarily know \
the point of it beforehand, but it is a computation that just happens. It is \
a computation that perhaps may be happening in nature quite a bit. And it is \
a computation that sometimes we may find out is actually quite useful. Like \
in the case of this rule 30 system, it has been very useful as a random \
generator in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" and elsewhere. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"For many years I studied what is out there in the computational universe. I \
was using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" as a telescope to look and try to do the natural history of all these \
strange creatures that exist in the computational universe. And having done \
the natural history, try to classify them and then try to find general \
principles about what happens out in the computational universe. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"Figure 8 is a particular case where we now know that this is possible. This \
is the rule 110 cellular automaton. It is the ",
Cell[BoxData[
SuperscriptBox["110", "th"], TraditionalForm]]],
" cellular automaton that you reach in this sequence of possible cellular \
automata. "
}], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 316.25},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"The big thing that one realizes from this principle of computational \
equivalence and this whole ",
StyleBox["A New Kind of Science",
FontSlant->"Italic"],
" (NKS) set of ideas is that the notion of computational reducibility is \
actually a fairly special case. That out there in the space of possible \
abstract systems, out there in the computational universe, a very large \
fraction of systems are actually doing much more complicated things that are \
in a sense computationally powerful and are in a sense computationally \
irreducible. There is really no way to work out what this system, for \
example, will do by any procedure that is much more efficient I think than \
just running the system and seeing what happens\[LongDash]that is the idea of \
computational irreducibility. That makes this system seem complex to us."
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"And that puts more pressure on us to find the right primitives representing \
natural systems in a way that fits in well with the kinds of computers that \
we actually use. Because we know we are going to have to do a lot of \
computational operations to find out what the natural system does. So those \
operations should be as simple as possible so that we get to do as many of \
them as efficiently as possible. In a sense, that forces us to think about \
the kinds of primitives that should exist, let us say in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", as ways to represent the natural world. Are they primitives that are \
well-matched with the kinds of things that actually go on in the natural \
world or not? And I would say that what I have seen from studying NKS and so \
on is that I am very pleased with the extent to which the kind of symbolic \
programming primitives that we have in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" seem to map well in a very wide range of different kinds of computational \
models that seem to be relevant in studying the natural world."
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{436, 538.125},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{436, 432.5},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 347.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
PageBreakBelow->False,
ImageSize->{437, 613.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell[TextData[{
"It could certainly be the case that our universe would be rule number 17, \
or our universe could be rule number ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
", or our universe could be rule number ",
Cell[BoxData[
SuperscriptBox["10",
SuperscriptBox["10",
SuperscriptBox["10",
SuperscriptBox["10", "100"]]]], TraditionalForm]], "Math"],
". If we believe this kind of notion of universality, our universe must be \
somewhere out there in the space of possible rules. "
}], "Text"],
Cell[TextData[{
"And the question is: How simple will the rules be? I do not have any \
particular criterion to decide that, although it is a very fundamental fact \
about nature that the rules for nature are not as complicated as they might \
be. For example, the universe has perhaps a little less than ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
" particles in it. If the rules for the universe had ",
Cell[BoxData[
SuperscriptBox["10", "100"], TraditionalForm]], "Math"],
" different cases in them, we might reasonably expect that every one of \
those particles might choose to do a different thing. Yet what we know is \
that there is considerable order in the universe, that the rules are not that \
complicated. Most of the particles choose to follow the same kind of rules \
all the time. And so the rules are simple compared to, in a sense, the size \
of the universe. How simple they are we do not know. We do not have a \
criterion. There is not yet a criterion by which we might guess how simple \
the rules might be. "
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[{
"It is a wonderful application of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" actually. It is a fairly sophisticated, fairly high-tech thing that \
involves feeding in a possible rule for the universe to see what it does. \
Many rules for the universe are completely stupid. One can say immediately, \
this is not our universe. No notion of time, space, expands exponentially in \
a trivial way forever, etc. What you really want to know, for example, is \
given some potential universe, what are the laws that operate in this \
universe and are they the same laws that we know, whether it is the standard \
model gauge invariance or general relativity, or whatever else. Are they the \
same laws that we know from existing physics? "
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"That has turned into this big enterprise of essentially doing automated \
theorem proving and things like that and doing a whole bunch of graph theory \
and combinatorics. It is a wonderful ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" system using grid",
StyleBox["Mathematica",
FontSlant->"Italic"],
", and so on to try and do these searches that involve basically finding out \
what we can prove for candidate universes. It is kind of automating the \
process of being a natural scientist or a theoretical natural scientist. \
Given this set of rules, what can we determine from that about laws of this \
universe? "
}], "Text"],
Cell[TextData[{
"It has been going rather well and there are some nice technology spin-offs, \
which will show up in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". One of the consequences of finding out that our universe is one of these \
universes out there in the computational universe is that it really grounds \
the notion of computation. If our universe is one of these things out in the \
computational universe, we know that is all that is there. We cannot start \
arguing, oh well, computation as we know it right now is not really \
everything that is relevant in the universe, there might be some special \
rule-number thing, there might be some hyper-computation thing, there might \
be some other weird thing going on. We will be able to say, no that \
absolutely is not the case, everything that happens is just determined by \
this particular computational model."
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[TextData[StyleBox["All of mathematics is actually based on a fairly \
small set of axioms. Figure 14 basically shows all the axioms now in use in \
all common areas of mathematics. ",
FontVariations->{"CompatibilityType"->0}]], "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 288.562},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 343.75},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{280, 217.312},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"Well it turns out that in the case of Boolean algebra, the ",
Cell[BoxData[
RowBox[{"50", ",",
SuperscriptBox["000", "th"]}], TraditionalForm]]],
" axiom system roughly, you find Boolean algebra. And it is an adventure in \
automated theorem proving to show that the little axiom system really is \
Boolean algebra. There is a proof, and this is soon going to be immediately \
doable in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
". But that is a different story. What is interesting here is that this \
Boolean algebra that we know is out there in the computational universe of \
possible things at around the ",
Cell[BoxData[
RowBox[{"50", ",",
SuperscriptBox["000", "th"]}], TraditionalForm]]],
" axiom system."
}], "Text",
CellChangeTimes->{{3.063*^9, 3.0417`*^9}}],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 308.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"And there are many other examples of this. In fact, we have been using this \
kind of idea for many years in some areas of ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" to just search spaces of possible algorithms and find algorithms for \
}], "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 185.938},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{450, 199.688},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{435, 339.875},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{431, 342.812},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{432, 341.438},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell["\", "Text"],
Cell[GraphicsData["CompressedBitmap", "\"], "PlacedGraphics",
Evaluatable->False,
ImageSize->{429, 511.812},
ImageMargins->{{0, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}}],
Cell[TextData[{
StyleBox["Figure ",
FontWeight->"Bold"],
CounterBox["NumberedFigure"],
FontWeight->"Bold"],
StyleBox[". ",
FontWeight->"Bold"]
}], "NumberedFigureCaption"],
Cell["\", "Text"],
Cell[TextData[{
"Wolfram",
StyleBox["Tones",
FontSlant->"Italic"],
ButtonBox["tones.wolfram.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://tones.wolfram.com/"], None}],
", is a good web",
StyleBox["Mathematica",
FontSlant->"Italic"],
" venture. It is completely built in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", running right now on a cluster of computers. And hopefully enough people \
will be interested in it that it will actually strain the computers when the \
site goes live. But the practicalities involve being able to take these \
musical forms and download them to cellphones."
}], "Text"],
Cell["\", "Text"],
Cell[TextData[{
"S. Wolfram, \[OpenCurlyDoubleQuote]The Future of Computation,\
\[CloseCurlyDoubleQuote] ",
StyleBox["The Mathematica Journal",
FontSlant->"Italic"],
", 2012. ",
ButtonBox["doi:10.3888/tmj.10.2\[Dash]5",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://dx.doi.org/10.3888/tmj.10.2-5"], None},
ButtonNote->"http://dx.doi.org/10.3888/tmj.10.2-5"],
}], "DOIReference1",
CellChangeTimes->{{3.589*^9, 3.703*^9}, {
3.3007`*^9, 3.167*^9}}],
Cell[TextData[{
StyleBox["Stephen Wolfram", "AboutAuthorB"],
"\nFounder and CEO\n",
StyleBox["Wolfram Research, Inc.\n", "AboutAuthorI"],
StyleBox[ButtonBox["s.",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["mailto:s."], None}], "AboutAuthorI"],
StyleBox[ButtonBox["www.wolframscience.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://www.wolframscience.com"], None}], "AboutAuthorI"]
}], "TextAboutAuthor",
CellMargins->{{Inherited, Inherited}, {Inherited, 30}},
CellGroupingRules->{"SectionGrouping", 40}]
ScreenStyleEnvironment->"Working",
PrintingStyleEnvironment->"Printout",
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{640, 750},
WindowMargins->{{318, Automatic}, {Automatic, 115}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{Inherited, Inherited,
Cell["Stephen Wolfram", "Header"]}, {
Cell["The Future of Computation", "Header"], Inherited, Inherited}},
PageFooters->{{
TextData[{"The Mathematica Journal ",
StyleBox["10", "SBO"], ":2 \[Copyright] 2006 Wolfram Media, Inc."}],
"Footer"], Inherited, None}, {None, Inherited,
TextData[{"The Mathematica Journal ",
StyleBox["10", "SBO"], ":2 \[Copyright] 2006 Wolfram Media, Inc."}],
"Footer"]}},
Magnification->1,
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
StyleDefinitions->Notebook[{
CellGroupData[{
TextData[{"Style Definitions for \n",
StyleBox["The Mathematica Journal", FontSlant -> "Italic"]}],
"Subtitle", CellMargins -> {{0, Inherited}, {Inherited, 0}},
CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 36, FontWeight ->
"Bold", FontColor -> GrayLevel[1], Background -> GrayLevel[0]],
StyleData[StyleDefinitions -> "Default_8.0.nb"]],
CellGroupData[{
"Styles Brought in from Core.nb, adjusted for TMJ", "Section",
CellFrame -> False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Code"], PageWidth -> DirectedInfinity[1],
CellMargins -> {{57, 21}, {10, 10}}, Evaluatable -> True,
CellGroupingRules -> "InputGrouping", TextClipboardType ->
"Package", StripStyleOnPaste -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, InitializationCell -> True,
DefaultFormatType -> DefaultInputFormatType, AutoIndent -> False,
ShowAutoStyles -> True, "TwoByteSyntaxCharacterAutoReplacement" ->
True, HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
AutoItalicWords -> {}, LanguageCategory -> "Mathematica",
AutoSpacing -> False, ShowStringCharacters -> True, NumberMarks ->
True, DigitBlock -> DirectedInfinity[1], ZeroWidthTimes -> True,
LineBreakWithin -> False, LineIndent -> 0, CounterIncrements ->
"Code", MenuSortingValue -> 1375, MenuCommandKey -> "8",
FontSize -> 11, FontWeight -> "Bold", Background ->
RGBColor[0.9, 0.9, 1]],
StyleData["Code", "Presentation", StyleDefinitions -> None]],
StyleData["Code", "SlideShow", StyleDefinitions -> None]],
StyleData["Code", "Printout", StyleDefinitions -> None]]},
Cell["Brought in from Core.nb, removed FontSize", "Text"],
StyleData["MSG"], StyleMenuListing -> None, FontFamily ->
"Helvetica"],
Cell["Brought in from Core.nb, not modified", "Text"],
StyleData["PrintUsage"], Editable -> False, PageWidth ->
WindowWidth, CellFrame -> {{0, 0}, {0, 3}}, CellFrameColor ->
RGBColor[1, 0.0001, 0], FontFamily -> "Helvetica",
FontSize -> 10, Background -> RGBColor[1, 0..899718]]},
CellGroupData[{
"Style Environment Names", "Section", CellFrame -> False,
CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
"Corrected style environment names to use the MenuPosition values \
from Core.nb. ", "Text"],
StyleData[All, "Working"],
CellBracketOptions -> {
"Color" -> RGBColor[0...362966]}, ShowCellLabel ->
True, CellFrameLabelMargins -> 6, ScriptMinSize -> 9,
MenuSortingValue -> 1100],
StyleData[All, "Presentation"], ScreenStyleEnvironment ->
"Presentation", MenuSortingValue -> 1200, Magnification -> 1.25],
StyleData[All, "Printout"], PageWidth -> PaperWidth,
ShowCellBracket -> True, CellLabelAutoDelete -> False, Hyphenation ->
True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 4}},
ScriptMinSize -> 5, MenuSortingValue -> 1500,
PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification ->
Cell["Disabled Menu appearance for SlideShow and Condensed", "Text"],
StyleData[All, "SlideShow"], PageWidth -> WindowWidth, DockedCells ->
FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"],
ScrollingOptions -> {
"PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit},
ShowCellBracket -> False, ShowAutoStyles -> False, ScriptMinSize ->
9, MenuSortingValue -> 1300, StyleMenuListing -> None],
StyleData[All, "Condensed"], PageWidth -> WindowWidth,
CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}},
ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue ->
1400, StyleMenuListing -> None]}, Closed]],
CellGroupData[{
"Notebook Options", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
"The options defined for the style below will be used at the \
Notebook level.", "Text"],
StyleData["Notebook"], PageHeaders -> {{
TextData[{
CounterBox["Page"]}], "PageNumber"], Inherited,
Cell["Author(s)", "Header"]}, {
Cell["Article Title", "Header"], Inherited,
TextData[{
CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{
TextData[{"The Mathematica Journal ",
StyleBox["volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"],
Inherited,
TextData[{
ValueBox["FileName"], " ",
ValueBox["Date"]}], "Footer"]}, {
TextData[{
ValueBox["FileName"], " ",
ValueBox["Date"]}], "Footer"], Inherited,
TextData[{"The Mathematica Journal ",
StyleBox["volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}], "Footer"]}},
PrintingOptions -> {
"FacingPages" -> True, "FirstPageHeader" -> False,
"PageFooterMargins" -> {36, 36}, "PageHeaderMargins" -> {42, 42},
"PrintRegistrationMarks" -> False,
"PrintingMargins" -> {{90, 90}, {90, 90}}}, CellFrameLabelMargins ->
6, HyphenationOptions -> {
"HyphenationCharacter" -> "-", "HyphenationFreeZone" -> 12,
"HyphenationMinLengths" -> {2, 3}}, StyleMenuListing -> None]},
CellGroupData[{
"Styles for Headings", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Title"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {0, 15}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Title",
CounterAssignments -> {{"Subtitle", 0}, {"Section", 0}, {
"Subsection", 0}, {"Subsubsection", 0}, {"List", 0}, {
"NumberedFigure", 0}, {"NumberedTable", 0}, {
"NumberedProgram", 0}, {"Equation", 0}, {"Text", 0}, {
"SmallText", 0}, {"Reference", 0}}, MenuSortingValue -> 1100,
FontFamily -> "Times", FontSize -> 36, FontWeight -> "Plain",
FontSlant -> "Italic"],
StyleData["Title", "Presentation", StyleDefinitions -> None]],
StyleData["Title", "SlideShow", StyleDefinitions -> None]],
StyleData["Title", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subtitle"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {5, 2}},
CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subtitle", FontFamily -> "Times", FontSize ->
24, FontSlant -> "Italic"],
StyleData["Subtitle", "Presentation", StyleDefinitions -> None]],
StyleData["Subtitle", "SlideShow", StyleDefinitions -> None]],
StyleData["Subtitle", "Printout", StyleDefinitions -> None]]},
StyleData["Subsubtitle"], MenuSortingValue -> "None"],
CellGroupData[{
StyleData["Section"], CellFrame -> False, CellDingbat ->
"\[FilledSquare]", CellMargins -> {{21, 21}, {10, 30}},
Evaluatable -> False,
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, Hyphenation -> False, CounterIncrements -> "Section",
CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
"ItemNumbered", 0}}, AspectRatioFixed -> True, FontFamily ->
"Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor ->
0.5, 0.64637`]],
StyleData["Section", "Presentation", StyleDefinitions -> None]],
StyleData["Section", "SlideShow", StyleDefinitions -> None]],
StyleData["Section", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsection"], CellDingbat -> "\[EmptySquare]",
CellMargins -> {{21, 21}, {10, 26}},
CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsection",
CounterAssignments -> {{"Subsubsection", 0}, {
"ItemNumbered", 0}}, FontFamily -> "Helvetica", FontSize -> 14,
FontWeight -> "Bold", FontColor -> GrayLevel[0]],
StyleData[
"Subsection", "Presentation", StyleDefinitions -> None]],
StyleData["Subsection", "SlideShow", StyleDefinitions -> None]],
StyleData["Subsection", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsubsection"], CellDingbat ->
"\[FilledSmallSquare]", CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant ->
"Oblique"],
StyleData[
"Subsubsection", "Presentation", StyleDefinitions -> None]],
StyleData[
"Subsubsection", "SlideShow", StyleDefinitions -> None]],
StyleData[
"Subsubsection", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Subsubsubsection"], CellDingbat -> None,
CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight ->
StyleData[
"Subsubsubsection", "Presentation", StyleDefinitions -> None]],
StyleData[
"Subsubsubsection", "SlideShow", StyleDefinitions -> None]],
StyleData[
"Subsubsubsection", "Printout", StyleDefinitions -> None]]},
Closed]]}, Closed]],
CellGroupData[{
"Styles for Body Text", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Text"], CellMargins -> {{21, 21}, {4, 4}},
CounterIncrements -> "Text",
CounterAssignments -> {{"ItemNumbered", 0}}, MenuSortingValue ->
1370, MenuCommandKey -> "7", FontFamily -> "Times", FontSize ->
StyleData["Text", "Presentation", StyleDefinitions -> None]],
StyleData["Text", "SlideShow", StyleDefinitions -> None]],
StyleData["Text", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Quote"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
MenuSortingValue -> 1520, FontFamily -> "Times", FontSize -> 12],
StyleData["Quote", "Presentation", StyleDefinitions -> None]],
StyleData["Quote", "SlideShow", StyleDefinitions -> None]],
StyleData["Quote", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
CellGroupData[{
"Styles for Input, Output, and Graphics", "Section", CellFrame ->
False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["Input"], CellMargins -> {{57, 21}, {10, 10}},
Evaluatable -> True, CellGroupingRules -> "InputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultInputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, ShowStringCharacters -> True, NumberMarks ->
True, CounterIncrements -> "Input", MenuSortingValue -> 1400,
FontSize -> 11, FontWeight -> "Bold", Background -> None],
StyleData["Input", "Presentation", StyleDefinitions -> None]],
StyleData["Input", "SlideShow", StyleDefinitions -> None]],
StyleData["Input", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Output"], CellMargins -> {{57, 21}, {13, 5}},
CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, GeneratedCell -> True,
CellAutoOverwrite -> True,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultOutputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, CounterIncrements -> "Output",
StyleMenuListing -> None, FontSize -> 11, Background -> None],
StyleData["Output", "Presentation", StyleDefinitions -> None]],
StyleData["Output", "SlideShow", StyleDefinitions -> None]],
StyleData["Output", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Message"], CellFrame -> {{0.25, 0.25}, {0, 0}},
CellDingbat -> "\[WarningSign]",
CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules ->
"OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin ->
False, GeneratedCell -> True, CellAutoOverwrite -> True,
ShowCellLabel -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], CellFrameLabelMargins ->
0, DefaultFormatType -> DefaultOutputFormatType,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10, FontColor ->
RGBColor[0, 0, 1], Background -> GrayLevel[0.949996]],
StyleData["Message", "Presentation", StyleDefinitions -> None]],
StyleData["Message", "SlideShow", StyleDefinitions -> None]],
StyleData["Message", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Print"], CellFrame -> True,
CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules ->
"OutputGrouping", CellHorizontalScrolling -> True,
PageBreakWithin -> False, GroupPageBreakWithin -> False,
GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel ->
False, CellLabelMargins -> {{23, Inherited}, {
Inherited, Inherited}}, CellFrameColor -> GrayLevel[0],
DefaultFormatType -> DefaultOutputFormatType,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10],
StyleData["Print", "Presentation", StyleDefinitions -> None]],
StyleData["Print", "SlideShow", StyleDefinitions -> None]],
StyleData["Print", "Printout", StyleDefinitions -> None]]},
TextData[{
"PlacedGraphics cell style to be used when importing a graphic \
from another
application or when presenting a graphic not associated with ",
StyleBox["Mathematica", FontSlant -> "Italic"],
" input. May be followed by NumberedFigureCaption."}], "Text"],
CellGroupData[{
StyleData["PlacedGraphics"], CellFrame -> False,
CellMargins -> {{21, 21}, {8, 10}}, CellGroupingRules ->
"GraphicsGrouping", CellHorizontalScrolling -> True,
ShowCellLabel -> False, TextAlignment -> Left,
LineSpacing -> {1, 1},
InsetBoxOptions -> {
BaseStyle -> {CellFrame -> None, Background -> None}}],
StyleData[
"PlacedGraphics", "Presentation", StyleDefinitions -> None]],
StyleData[
"PlacedGraphics", "SlideShow", StyleDefinitions -> None]],
StyleData[
"PlacedGraphics", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["CellLabel"],
CellMargins -> {{5, Inherited}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Helvetica", FontSize -> 8, FontSlant -> "Oblique", FontColor ->
RGBColor[0...362966]],
StyleData[
"CellLabel", "Presentation", StyleDefinitions -> None]],
StyleData["CellLabel", "SlideShow", StyleDefinitions -> None]],
StyleData["CellLabel", "Printout", StyleDefinitions -> None]]},
Closed]]}, Closed]],
CellGroupData[{
"Styles for Automatic Numbering and Lists", "Section", CellFrame ->
False, CellDingbat -> None, ShowCellBracket -> True,
CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
CellGroupData[{
StyleData["DisplayFormulaNumbered"],
CellMargins -> {{39, 21}, {4, 4}}, StripStyleOnPaste -> True,
CellFrameLabels -> {{None,
TextData[{"(",
CounterBox["DisplayFormulaNumbered"], ")"}],
CellSize -> {30, Inherited}, TextAlignment -> Right]}, {
None, None}}, DefaultFormatType -> TraditionalForm,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
LineSpacing -> {1, 1}, LanguageCategory -> "Formula",
ScriptLevel -> 0, SingleLetterItalics -> True, CounterIncrements ->
"DisplayFormulaNumbered", MenuSortingValue -> 1700, FontFamily ->
UnderoverscriptBoxOptions -> {LimitsPositioning -> True}],
StyleData[
"DisplayFormulaNumbered", "Presentation", StyleDefinitions ->
StyleData[
"DisplayFormulaNumbered", "SlideShow", StyleDefinitions ->
StyleData[
"DisplayFormulaNumbered", "Printout", StyleDefinitions ->
None]]}, Closed]],
CellGroupData[{
StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}},
StripStyleOnPaste -> True,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory ->
"Formula", ScriptLevel -> 1, SingleLetterItalics -> True,
MenuSortingValue -> None],
StyleData[
"InlineFormula", "Presentation", StyleDefinitions -> None]],
StyleData[
"InlineFormula", "SlideShow", StyleDefinitions -> None]],
StyleData[
"InlineFormula", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedFigureCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, TextAlignment -> Left,
LineSpacing -> {1, 1}, CounterIncrements -> "NumberedFigure",
MenuSortingValue -> 1711, FormatTypeAutoConvert -> False,
FontFamily -> "Helvetica", FontSize -> 10],
StyleData[
"NumberedFigureCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedFigureCaption", "SlideShow", StyleDefinitions -> None]],
StyleData[
"NumberedFigureCaption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedTableCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedTable", MenuSortingValue -> 1712,
FontFamily -> "Helvetica", FontSize -> 10],
StyleData[
"NumberedTableCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedTableCaption", "SlideShow", StyleDefinitions -> None]],
StyleData[
"NumberedTableCaption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["NumberedProgramCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedProgram", MenuSortingValue -> 1713,
FormatTypeAutoConvert -> False, FontFamily -> "Helvetica",
FontSize -> 10],
StyleData[
"NumberedProgramCaption", "Presentation", StyleDefinitions ->
StyleData[
"NumberedProgramCaption", "SlideShow", StyleDefinitions ->
StyleData[
"NumberedProgramCaption", "Printout", StyleDefinitions ->
None]]}, Closed]],
CellGroupData[{
StyleData["Caption"], CellDingbat -> "\[FilledUpTriangle]",
CellMargins -> {{21, 21}, {Inherited, 5}}, PageBreakAbove ->
False, LineSpacing -> {1, 1}, FontFamily -> "Helvetica",
FontSize -> 10],
StyleData["Caption", "Presentation", StyleDefinitions -> None]],
StyleData["Caption", "SlideShow", StyleDefinitions -> None]],
StyleData["Caption", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Item"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1775, FontFamily -> "Times", FontSize -> 12],
StyleData["Item", "Presentation", StyleDefinitions -> None]],
StyleData["Item", "SlideShow", StyleDefinitions -> None]],
StyleData["Item", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Subitem"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{74, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, MenuSortingValue -> 1776, FontFamily ->
"Times", FontSize -> 12],
StyleData["Subitem", "Presentation", StyleDefinitions -> None]],
StyleData["Subitem", "SlideShow", StyleDefinitions -> None]],
StyleData["Subitem", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["ItemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold",
CellSize -> {20, Inherited}, TextAlignment -> Right],
CellMargins -> {{58, 21}, {Inherited, Inherited}}, CellBaseline ->
Baseline, LineSpacing -> {1, 1}, TabSpacings -> {4.},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1777, FontFamily -> "Times", FontSize -> 12],
StyleData[
"ItemNumbered", "Presentation", StyleDefinitions -> None]],
StyleData[
"ItemNumbered", "SlideShow", StyleDefinitions -> None]],
StyleData["ItemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["SubitemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["SubitemNumbered", CounterFunction :> (Part[
CharacterRange["a", "z"], #]& )], "."}], FontWeight ->
"Bold"], CellMargins -> {{74, 21}, {Inherited, Inherited}},
CellBaseline -> Baseline, LineSpacing -> {1, 1},
MenuSortingValue -> 1778, FontFamily -> "Times", FontSize -> 12],
StyleData[
"SubitemNumbered", "Presentation", StyleDefinitions -> None]],
StyleData[
"SubitemNumbered", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SubitemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"ItemParagraph", StyleDefinitions -> StyleData["Item"]],
CellDingbat -> None, CounterIncrements -> "ItemParagraph",
MenuSortingValue -> 1779],
StyleData[
"ItemParagraph", "Presentation", StyleDefinitions -> None]],
StyleData[
"ItemParagraph", "SlideShow", StyleDefinitions -> None]],
StyleData["ItemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]],
CellDingbat -> None, CounterIncrements -> "SubitemParagraph",
MenuSortingValue -> 1800],
StyleData[
"SubitemParagraph", "Presentation", StyleDefinitions -> None]],
StyleData[
"SubitemParagraph", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SubitemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Reference"], CellDingbat -> Cell[
TextData[{"[",
CounterBox["Reference"], "]"}], "SR",
CellSize -> {25, Inherited}, TextAlignment -> Right],
CellMargins -> {{47, 21}, {Inherited, Inherited}},
CellFrameLabels -> {{None, None}, {None, None}},
LineSpacing -> {1, 1}, CounterIncrements -> "Reference",
MenuSortingValue -> 1870, FontFamily -> "Helvetica", FontSize ->
StyleData["Reference", "Presentation", StyleDefinitions -> None],
CellMargins -> {{59, 21}, {Inherited, Inherited}}],
StyleData["Reference", "SlideShow", StyleDefinitions -> None]],
StyleData["Reference", "Printout", StyleDefinitions -> None],
CellMargins -> {{45, 21}, {Inherited, Inherited}},
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData[
"DOIReference", StyleDefinitions -> StyleData["Reference"]],
CellDingbat -> None, CellMargins -> {{21, 21}, {Inherited, 10}},
CounterIncrements -> "DOIReference", FontSize -> 9],
StyleData["DOIReference", "Presentation"],
CellMargins -> {{21, 21}, {Inherited, 10}}],
StyleData["DOIReference", "Printout"],
CellMargins -> {{21, 21}, {Inherited, 10}}]}, Closed]],
StyleData[
"DOIReference1", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.589*^9, 3.703*^9}}],
StyleData[
"DOIReference10", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.589*^9,
3.4378`*^9}}]}, Closed]],
CellGroupData[{
"Journal Element Styles", "Section", CellFrame -> False, CellDingbat ->
None, ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}}, FontColor -> GrayLevel[1],
Background -> RGBColor[0...715618]],
StyleData["OnlineHeader"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{0, 0}, {0, 0}},
CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> False,
CellFrameMargins -> {{21, 21}, {2, 8}}, Hyphenation -> False,
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Times", FontSize -> 14, FontWeight -> "Plain", FontSlant ->
"Italic", FontColor ->
0.2, 0.8719],
Background -> RGBColor[0, 0, 0]],
"ColumnTitle is a renaming of PreTitle.", "Text",
CellChangeTimes -> {{3.3597`*^9,
3.122*^9}}],
CellGroupData[{
StyleData["ColumnTitle"], ShowCellBracket -> False,
CellMargins -> {{21, 21}, {14, 4}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, CellFrameMargins -> {{55, 4}, {8, 20}}, Hyphenation ->
False, LineSpacing -> {1, 1}, StyleMenuListing -> None,
FontFamily -> "Helvetica", FontSize -> 13, FontWeight ->
"Regular"],
StyleData[
"ColumnTitle", "Presentation", StyleDefinitions -> None]],
StyleData["ColumnTitle", "SlideShow", StyleDefinitions -> None]],
StyleData["ColumnTitle", "Printout", StyleDefinitions -> None]]},
"Author to be used after the Title cell with author name(s). Author \
name(s) may be preceded by \"Edited by \" for certain columns. Text in author \
cell to be used as the left page header.", "Text"],
CellGroupData[{
StyleData["Author"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {4, 6}}, CellGroupingRules ->
"NormalGrouping", PageBreakBelow -> False, Hyphenation -> False,
LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 0},
MenuSortingValue -> 1155, FontFamily -> "Helvetica", FontSize ->
14, FontWeight -> "Bold"],
StyleData["Author", "Presentation", StyleDefinitions -> None]],
StyleData["Author", "SlideShow", StyleDefinitions -> None]],
StyleData["Author", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Abstract"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 83}, {4, 25}}, Hyphenation -> False,
LineSpacing -> {1, 3}, MenuSortingValue -> 1156, FontFamily ->
"Helvetica", FontSize -> 13, FontWeight -> "Regular", FontSlant ->
StyleData["Abstract", "Presentation", StyleDefinitions -> None]],
StyleData["Abstract", "SlideShow", StyleDefinitions -> None]],
StyleData["Abstract", "Printout", StyleDefinitions -> None]]},
CellGroupData[{
StyleData["Question"], CellFrame -> {{0, 0}, {0, 2}},
CellDingbat -> "Q:", CellMargins -> {{45, 45}, {8, 8}},
CellFrameMargins -> {{0, 0}, {2, 4}}, LineSpacing -> {1, 1},
MenuSortingValue -> 1820, FontFamily -> "Times", FontSize -> 14,
FontWeight -> "Bold", FontColor ->
RGBColor[0...580118]],
StyleData["Question", "Presentation", StyleDefinitions -> None]],
StyleData["Question", "SlideShow", StyleDefinitions -> None]],
StyleData["Question", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["Answer"], CellDingbat ->
Cell["A:", FontWeight -> "Bold"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1860, FontFamily -> "Times", FontSize -> 12],
StyleData["Answer", "Presentation", StyleDefinitions -> None]],
StyleData["Answer", "SlideShow", StyleDefinitions -> None]],
StyleData["Answer", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["TextAboutAuthor"], CellMargins -> {{21, 21}, {2, 5}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1880, FontSize -> 12],
StyleData[
"TextAboutAuthor", "Presentation", StyleDefinitions -> None]],
StyleData[
"TextAboutAuthor", "SlideShow", StyleDefinitions -> None]],
StyleData[
"TextAboutAuthor", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
CellGroupData[{
StyleData["SectionAboutAuthor"],
CellMargins -> {{21, 21}, {10, 30}},
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, CellFrameMargins -> 4, Hyphenation -> False,
LineSpacing -> {1, 1}, MenuSortingValue -> 1875, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold"],
StyleData[
"SectionAboutAuthor", "Presentation", StyleDefinitions -> None]],
StyleData[
"SectionAboutAuthor", "SlideShow", StyleDefinitions -> None]],
StyleData[
"SectionAboutAuthor", "Printout", StyleDefinitions -> None]]},
"Styles for algorithm listings, based on BulletedList, indent an \
additional 12 points for each level, dingbat also changes", "Text"],
CellGroupData[{
StyleData["Algorithm1"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
StyleData[
"Algorithm1", "Presentation", StyleDefinitions -> None]],
StyleData["Algorithm1", "SlideShow", StyleDefinitions -> None]],
StyleData["Algorithm1", "Printout", StyleDefinitions -> None],
TextJustification }
我要回帖
更多关于 笑点低是什么意思 的文章
更多推荐
- ·wps怎么一页显示多页添加新的一页？
- ·活佛济公第三部剧情分集介绍季第几集女人怀抱婴儿
- ·台湾地震的由来科学中心成立目的
- ·圆周运动支点固定不发生位移，静摩擦力提供动力吗？有力偶吗?另外，圆周运动的最高点和最低点受力分析同时支点发生位移有力偶吗
- ·漳州北庙芗城区新浦路与泗洲河交界处有几座庙都是什么庙？
- ·大家说说魁族官网4好不
- ·vivo y613线刷包-Y613手机升级为什么升级到一半机器人就倒下了 而且手机还老是出现闪退 烦死了
- ·300英雄宝石联盟怎样出打野装备？有四种底色的，还有四种镶嵌的宝石
- ·可以发给我吗？？ Reunion理英先生の个人授业可爱彼女下载～可爱く拗ねる年上の彼女～球全集
- ·qq炫舞华东二区吧2区最牛逼人
- ·yy小白龙直播间id为什么被打了
- ·炫舞自助查点券165级代练一个月第三名有多少点券
- ·天天风之旅悟空gtasa最后一个任务务:悟空好友助跑5次,怎么完成?
- ·DNFdnf龙跃武器好不好 75+11好,还是80+10好
- ·伊媚生活服务业务武媚娘传奇结局是什么么
- ·dnf罗特回馈是dnf盗号记事本的么?
- ·qq降龙267级www.vip7.com挂木头6小时多少经验
- ·天龙八部3d提升战力vip8多少战力
- ·魔域口袋版绑定魔石幻魔晶石怎么和不绑定的幻魔晶石一起用啊
- ·2kolsp可圈可点是什么意思？怎么获得？
- ·jar火焰纹章觉醒人物之纹章人物介绍
- ·nba2k15怎么读取名单辉煌生涯读取不进
- ·海岛奇兵投弹兵视频14级研究所怎么就能用投弹兵
- ·flnca,pr|nc|pes是什么酒
- ·梦三国官网下载充钱官职达到魔界巨商之后还有什么
- ·魔域口袋版亡灵结界巫师杀人抓不到人怎么办？总是被逃跑。
- ·天天酷跑新春破解版热跑最后一个奖励给不了苹果能给钻石吗能
- ·白猫计划玩的时候笔记本老是连不上wifi
- ·麻烦冒昧的问一下 英语nds
- ·有自由网络联盟联盟和地球联盟的游戏叫什么
- ·cf里按哪个键才cf名字可以用的符号打这个符号—
- ·疾风之刃不败异界之剑师全职者进阶后有无套装属性
- ·游戏豪血寺一族街机游戏绝招怎么练练
- ·无限试驾1中文版下载2无法进入游戏，提示“程序出现错误，现在退出”
