Sylvanashe的个人资料 - RAT

Sylvanashe Sylvanashe

嗟我白发，生一何早！

关注数: 2 粉丝数: 10 发帖数: 80 关注贴吧数: 0

请问win11每次启动后，日历里不显示农历和节假日信息 win11每次启动后，日历里不显示农历和节假日信息，但是不用改任何设置，重启资源管理器就能显示，为什么？怎么解决？

请问win11每次启动后，日历里不显示农历和节假日信息 win11每次启动后，日历里不显示农历和节假日信息，但是不用改任何设置，重启资源管理器就能显示，为什么？怎么解决？

问大佬们一个关于最速降线的问题请问，从A点到B点的最速降线，假设A点在第二象限，B点在原点，问题是摆线一定是在直线{-Pi t, 2 t}之下的，那如果A点在该直线之上，比如{-1,2}，不就无解了吗？ ParametricPlot[{3 {-\[Pi] t, 2 t}}~Join~ Table[{-\[Pi] + t - Sin[t], 1 + Cos[t]} r, {r, 9}], {t, 0, \[Pi]}, AspectRatio -> Automatic]

shell函数实现输出到控制台是一种效果，管道或重定向是另一种效请问shell大神像 ls / 输出到控制台时一行会显示多个文件名，但是传给管道或重定向时就不是，例如ls / | wc -l 还有 ls / --color=auto 输出到控制台时有颜色控制码，但是传给管道或重定向时就没有同理grep也是一样的，请问这样的功能是怎么实现的？怎么编写一个函数，当该函数输出到控制台是一种效果，而传到管道或是重定向又是另一种效果呢？ ps：不是stdout和stderr哦

shell函数实现输出到控制台是一种效果，管道或重定向是另一种效请问shell大神像 ls / 输出到控制台时一行会显示多个文件名，但是传给管道或重定向时就不是，例如ls / | wc -l 还有 ls / --color=auto 输出到控制台时有颜色控制码，但是传给管道或重定向时就没有同理grep也是一样的，请问这样的功能是怎么实现的？怎么编写一个函数，当该函数输出到控制台是一种效果，而传到管道或是重定向又是另一种效果呢？ ps：不是stdout和stderr哦

请问大神，微分方程WhenEvent怎么高效判断点在参数方程上求质点s的运动轨迹，当碰到f时反弹，代码： Clear@"`*" f[{u_, v_}] = {6 Cos[u] Sin[v], 5 Sin[u] Sin[v], 4 Cos[v]}; c = {u, v}; fxl = TrigFactor[Cross @@ (D[f[c], #] & /@ c)]; s[t_] = {x[t], y[t], z[t]}; ru = Cancel[s'[t] -> s'[t] - 2 s'[t] . fxl/fxl . fxl fxl]; s0 = {0, 0, 6}; v0 = {9, 6, 0}; a[t_] = -1000 s[t]/Norm[s[t]]^3; cond = WhenEvent[True, tmp = Flatten@FindInstance[f[c] == s[t], c]; If[Length[tmp] > 0, ru /. tmp]]; sol[t_] = NDSolveValue[{s''[t] == a[t], s'[0] == v0, s[0] == s0, cond}, s[t], {t, 0, 30}, AccuracyGoal -> 20, PrecisionGoal -> 20, WorkingPrecision -> 35, MaxSteps -> \[Infinity]]; gra = Show[{ParametricPlot3D[f[c], {u, 0, 2 \[Pi]}, {v, 0, \[Pi]}, Mesh -> None, PlotRange -> 9, PlotStyle -> Opacity[.8]], ParametricPlot3D[sol[t], {t, 0, 30}]}]; Animate[Show[{gra, ParametricPlot3D[ sol[t] + 1/2 {Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {u, 0, 2 \[Pi]}, {v, 0, \[Pi]}]}], {t, 0, 30}, AnimationRunning -> False, AnimationRate -> 1, RefreshRate -> 60, DisplayAllSteps -> True] 问题在于WhenEvent判断质点s与f相碰，当f是隐式方程时很容易判断，但是当f是参数方程时就不知道有什么高效的判断方法了，求各位大神指点

请问关于曲线旋转平移得到的区域的问题代码： ParametricPlot[ Evaluate[{Sin[3 v], Cos[3 v]} + RotationTransform[v][ RotationTransform[u][{8 + Sin[3 u], 3 Cos[3 u]}]]], {u, 0, 2 Pi}, {v, 0, 2 Pi/3}, BoundaryStyle -> None] 结果：以上应该是定宽曲线旋转平移得到的区域，请问像这种参数区域本身有重叠的情况能不能求出不重叠的区域方程、内外边界方程、内外边界周长、区域面积等

请问mathematica能进行向量的符号运算吗例如，在不知道向量维数的情况下， k*r.r-s.r==0&&r!=0向量，解得 k==s.r/(r.r) 如果不行，有什么软件能做到呢

powershell下编写grep工具，怎么实现选项--color=auto的功能 powershell下编写grep工具，有个问题，Linux的grep有选项--color=auto，功能是如果输出到控制台则带有颜色控制码，而如果是输出到管道或是重定向则不带颜色控制码，请问powershell怎么实现这种功能

Blend for VS 2022，“工具”选项下没有“构成控件”选项，请问 Blend for Visual Studio Professional 2022，按官方文档设计自定义控件，但是“工具”选项下没有“构成控件”选项，只有“构成用户控件”选项，请问怎么解决？

Blend for VS 2022，“工具”选项下没有“构成控件”选项，请问 Blend for Visual Studio Professional 2022，按官方文档设计自定义控件，但是“工具”选项下没有“构成控件”选项，只有“构成用户控件”选项，请问怎么解决？

Blend for VS 2022，“工具”选项下没有“构成控件”选项，请问 Blend for Visual Studio Professional 2022，按官方文档设计自定义控件，但是“工具”选项下没有“构成控件”选项，只有“构成用户控件”选项，请问怎么解决？

代码可以执行，但是保存成脚本后执行就报错，请问是什么原因以下代码在ise中，或是复制到powershell中，皆可正常执行： Add-Type -AssemblyName PresentationCore,PresentationFramework,WindowsBase,System.Xaml; class mywin : System.Windows.Window{}; [mywin]::new().ShowDialog() |Out-Null; 但是保存成ps1后，无论是右键使用powershell运行，还是在powershell中执行该ps1，都报错：找不到类型 [System.Windows.Window]。请问是什么原因

请问Manipulate和Animate的控制条怎么调到上边 Animate[Plot[x, {x, 1, 2}], {a, 1, 2}]

求助关于linux命令awk正则的问题请问grep是可以这样写的，cat /etc/passwd |grep -P '(.)\1'; sed也可以，cat /etc/passwd |sed -nr '/(.)\1/p'; 但是awk这样写不对，cat /etc/passwd |awk -F: '$1 ~ /(.)\1/ {print $1}'; 怎么实现'(.)\1'

求助关于awk正则的问题请问grep是可以这样写的，cat /etc/passwd |grep -P '(.)\1'; sed也可以，cat /etc/passwd |sed -nr '/(.)\1/p'; 但是awk这样写不对，cat /etc/passwd |awk -F: '$1 ~ /(.)\1/ {print $1}'; 怎么实现'(.)\1'

请问关于awk正则的问题请问grep是可以这样写的，cat /etc/passwd |grep -P '(.)\1'; sed也可以，cat /etc/passwd |sed -nr '/(.)\1/p'; 但是awk这样写不对，cat /etc/passwd |awk -F: '$1 ~ /(.)\1/ {print $1}'; 怎么实现'(.)\1'

求教大佬，要实现单元格公式每秒钟计算，怎么写呢 ps：公式不一定是rand()，任何excel公式都可以；单元格是公式所在单元格，不是A1

请问，关于参数区域遇到这个问题，不知道为什么 RegionMember[ ImplicitRegion[x^2 + y^2 == 1, {x, y}], {Sqrt[1/2.], Sqrt[1/2.]}] RegionMember[ ParametricRegion[{Cos[x], Sin[x]}, {{x, 0, 2 Pi}}], {Sqrt[1/2.], Sqrt[1/2.]}] Evaluate[RegionMember[ ParametricRegion[{Cos[x], Sin[x]}, {{x, 0, 2 Pi}}], {#, #2}]] & @@ {Sqrt[1/2.], Sqrt[1/2.]}

请问，画质点平抛运动轨迹，碰到f[x]反弹，哪里有问题呢请问，画质点平抛运动轨迹，碰到f[x]反弹。当f[x] = -x时穿过了，但是如果f[x] = -Cosh[x/20]就正常，哪里有问题呢 ClearAll["Global`*"] s0 = {0, 0}; v0 = {10, 0}; a[t_] := {0, -10} s[t_] := {x[t], y[t]} f[x_] := -x(*f[x_]:=-Cosh[x/20]*) \[Theta] := 2 ArcTan[f'[x[t]]] - ArcTan[y'[t]/x'[t]] rule := Thread[s'[t] -> Norm[s'[t]] {Cos[\[Theta]], Sin[\[Theta]]}] sol = NDSolveValue[{s''[t] == a[t], s'[0] == v0, s[0] == s0, WhenEvent[y[t] < f[x[t]], Evaluate@rule]}, s[t],{t, 0, 3}] Show[{ParametricPlot[sol, {t, 0, 3}], Plot[f[x], {x, 0, 1000}]}, ImageSize -> Full]

请问怎么在模式里既定义类型，又设置默认值呢请问怎么在模式里既定义类型，又设置默认值呢，只能在函数体进行判断吗 f[x_ /; Element[x, Reals], y_ : 1 /; Element[y, Reals], z_ : 2 /; Element[z, Reals]] := x + y + z f[1, 2] 如何修改呢

请问动画怎么调刷新率都很卡顿，有什么解决办法吗 Animate[Show[ ParametricPlot3D[ RotationTransform[ t, {0, #[[1]], 0}][{Sin[\[Theta]], Cos[\[Theta]], 0} (E^Cos[\[Theta]] - 2 Cos[4 \[Theta]] + Sin[\[Theta]/12]^5)], {\[Theta], 0, 2 \[Pi]}, Axes -> False, Boxed -> False, ColorFunction -> Function[{x, y, z, \[Theta]}, Hue[\[Theta]]], RegionFunction -> Function[{x, y, z, \[Theta]}, #[[2]][x, 0]]] & /@ {{-1, Less}, {1, Greater}}], {t, -(\[Pi]/2), \[Pi]/2}, RefreshRate -> 10, DisplayAllSteps -> True, AnimationRate -> 1, AnimationRunning -> False, AnimationDirection -> ForwardBackward]

请问同时定义这两个函数问题在哪 Clear@"Global`*" {fib, luc} := Table[ If[ IntegerQ@#, Which[ # == 1, 1, # == 2, i, # > 2, #0[# - 2] + #0[# - 1], # < 1, #0[# + 2] - #0[# + 1] ] ] &, {i, {1, 3}}] fib /@ Range[-10, 10] luc /@ Range[-10, 10]

1 下一页