知道如何让这个工作吗?
y = {}; Table[Button[x, AppendTo[y, Evaluate[x]]], {x, 5}]
Run Code Online (Sandbox Code Playgroud)
结果:单击[ 1
],单击[ 2
],获取{6,6}
我轻视实际的任务,但我们的目标是建立一个内部的按钮做什么Map
或Table
或ParallelTable
.
请帮忙!
编辑想
出来...... Evaluate
只在第一级工作.在这里,它太深了.所以我用过ReplaceRule
:
Remove[sub]; y = {}; Table[Button[x, AppendTo[y, sub]] /. sub -> x, {x, 5}]
Run Code Online (Sandbox Code Playgroud) 当我写作时
Row[ {Framed@Column[{1,2}], Framed@"123"}, Alignment->Top]
Run Code Online (Sandbox Code Playgroud)
或者
Row[ {Framed@Column[{1,2}], Framed@"123"}, Alignment->{Left,Top}]
Run Code Online (Sandbox Code Playgroud)
无论哪种情况,都不会发生任何事情。默认对齐方式为居中,并且列出的元素与彼此的中线对齐。
Grid[ {{Framed@Column[{1,2}], Framed@"123"}}, Alignment->Top]
Run Code Online (Sandbox Code Playgroud)
工作得很好,但是Grid[]
当 a 就足够了时就有点过分了Row[]
。
帮助系统说对齐应该可以工作({Left,Baseline}
作为示例列出),但它似乎无法更改。我正在使用 v8.0.4。
我刚刚创建了一个非常大的神经网络,虽然是非常强大的硬件,想象我的震惊和失望,当我意识到来自NeuralNetworks`包的NeuralFit []似乎只使用一个核心,甚至没有达到最大容量.我伤心欲绝.我是否真的必须从头开始编写完整的NN实现?还是我想念一些简单的东西?
我的网络对200个神经元的2个隐藏层进行了200次输入以产生100个输出.我知道我们正在谈论数万亿计算,但只要我知道我的硬件是弱点 - 可以升级.如果单独放置一段时间,它应该能够很好地处理这种网络的训练(4Ghz 8线程机器具有24Gb的2000Mhz CL7内存,在SATA-III上运行RAID-0 SSD驱动器 - 我很确定).
想法?建议?提前感谢您的意见.
wolfram-mathematica mathematical-optimization neural-network mathematica-8