排空驭气奔如电的个人资料 - RAT

排空驭气奔如电烛阴wdnmd

关注数: 2 粉丝数: 7 发帖数: 167 关注贴吧数: 15

这个性价比怎么样，6100元

这套配置怎么样 CPU : 酷睿 I5 14600K盒装风冷 : 酷里奥B60T双塔主板 : 技嘉 B760M GAMING X AX D4（带WIFI蓝牙）内存 : 阿斯加特弗雷 32G 16*2 3600 固态 : 西数 SN5000 1TB 显卡 : 技嘉 RTX5060 8G 风魔机箱 : 玩嘉绝尘电源 : 技嘉 P650SS 650W 银牌合计 : 6359

关于程序嵌套的问题我想问一下这个报错应该如何解决findBinaryCriticalValueOptimized[start_, end_, precision_] := Module[{left = 1, right = 4, mid, fLeft, fRight, fMid, iter = 0, maxIter = 20, amp},(*初始化函数值*)amp = left; NotebookEvaluate[ "A", InsertResults -> True]; fLeft = ampp; amp = right; NotebookEvaluate[ "A", InsertResults -> True]; fRight = ampp; (*检查区间有效性*) If[fLeft == fRight, Return["错误：函数在区间端点值相同，请调整起始和结束值。f(left) = " <> ToString[fLeft] <> ", f(right) = " <> ToString[fRight]]]; Print["开始搜索0/1跳变的临界值..."]; Print["初始区间: [", left, ", ", right, "]"]; Print["f(left) = ", fLeft, ", f(right) = ", fRight]; Print["目标精度（区间长度）: ", precision]; While[iter < maxIter && Abs[right - left] > precision, iter++; mid = (left + right)/2; (*设置当前变量值并运行笔记本*)amp = mid; NotebookEvaluate[ "A", InsertResults -> True]; fMid = ampp; Print["迭代 ", iter, ": amp = ", mid, ", f(p) = ", fMid, ", 区间长度 = ", Abs[right - left]]; (*更新区间*)If[fMid == fLeft, left = mid, right = mid];]; Print["*** 搜索完成 ***"]; Print["最终区间: [", left, ", ", right, "]"]; Print["区间长度: ", Abs[right - left]]; Print["迭代次数: ", iter]; (*返回区间的中点作为最佳估计*)Return[(left + right)/2]] (*执行搜索*) criticalValue = findBinaryCriticalValueOptimized[startValue, endValue, desiredPrecision] Out[4]= "错误：函数在区间端点值相同，请调整起始和结束值。f(left) = ampp, f(right) = ampp" 这个是另一个程序测试 Global`ampp If[amp > 2.09583, ampp = 1, ampp = 0] originalNb = NotebookFileName[]; If[originalNb =!= $Failed, base = DirectoryName[originalNb]; nameBase = FileBaseName[originalNb]; newName = nameBase <> "_" <> ToString[amp] <> ".nb"; newPath = FileNameJoin[{base, newName}]; NotebookSave[EvaluationNotebook[], newPath]; Print["程序已保存为: ", newPath], Print["未保存的笔记本，请先手动保存"]]

关于画图的问题我想在下面的测试程序中画出来图应该如何做，我使用plot的时候没办法在用图一程序运行的时候跑出来图（意思是我查看保存下来的程序的时候发现保存的程序并没有画图出来），但是使用print的时候会直接在图一中的程序里面输出。代码： (*定义要测试的变量范围和步长*)startValue = 0.2; (*起始值*) endValue = 1; (*结束值*) stepSize = 0.1; (*步长*) (*循环遍历变量值*) Do[Global`amp = varValue; NotebookEvaluate[ "A"], {varValue, startValue, endValue, stepSize}] Global`amp Plot[Sin[x*amp], {x, 0, 6 Pi}] Print[Plot[Sin[x*amp], {x, 0, 6 Pi}]] Qst = {0, 1, 2, 3, amp}; originalNb = NotebookFileName[]; If[originalNb =!= $Failed, base = DirectoryName[originalNb]; nameBase = FileBaseName[originalNb]; newName = nameBase <> "_" <> ToString[Qst[[-1]]] <> ".nb"; (*方法1:使用FileNameJoin的正确方式*)newPath = FileNameJoin[{base, newName}]; (*方法2:或者直接拼接字符串（更直观）*)(*newPath=base<>"\\"<>newName;*) NotebookSave[EvaluationNotebook[], newPath]; Print["程序已保存为: ", newPath], Print["未保存的笔记本，请先手动保存"]]

如何在section外新加一个循环程序 (*定义要测试的变量范围和步长*)startValue = 0.25; (*起始值*) endValue = 0.26; (*结束值*) stepSize = 0.004; (*步长*) (*循环遍历变量值*) For[varValue = startValue, varValue <= endValue, varValue += stepSize,(*设置当前变量值*)amp = varValue; xxx = amp*2 ]希望在不改变section格式的情况下新加一个外部循环

1 下一页