找回密码
 快速注册
搜索
查看: 49|回复: 2

批量生成变量赋予随机值

[复制链接]

471

主题

945

回帖

9837

积分

积分
9837

显示全部楼层

青青子衿 发表于 2023-4-21 06:06 |阅读模式
  1. Clear["`*"]
  2. lst1 = Flatten[
  3.    Table[Symbol[Evaluate["a" <> ToString[i] <> ToString[j]]], {i, 0,
  4.      3}, {j, 1, 3}]];
  5. lst2 = Flatten[RandomReal[{-2, 2}, {4, 3}]];
  6. data1 = {lst1, lst2}
  7. MapThread[(Clear[#1]; #1 = #2) &, data1]
复制代码

3149

主题

8386

回帖

6万

积分

$\style{scale:11;fill:#eff}꩜$

积分
65391
QQ

显示全部楼层

hbghlyj 发表于 2023-4-23 05:02
请问上面的
Flatten[RandomReal[{-2, 2}, {4, 3}]]
是否可以写成
RandomReal[{-2, 2}, 12]

3149

主题

8386

回帖

6万

积分

$\style{scale:11;fill:#eff}꩜$

积分
65391
QQ

显示全部楼层

hbghlyj 发表于 2023-4-27 21:46
请问Clear["`*"]Clear["Global`*"]是否等效

手机版|悠闲数学娱乐论坛(第3版)

GMT+8, 2025-3-4 11:58

Powered by Discuz!

× 快速回复 返回顶部 返回列表