关于mathematica纯函数的一个问题
来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/08/13 12:25:33
关于mathematica纯函数的一个问题
co = {{1,4},{1,3},{2,3},{2,4}}
co = Join[co,Map[Reverse,co]]
FindShortestTour[{1,2,3,4},
DistanceFunction -> (If[MemberQ[co,{#1,#2}],1,Infinity] &)]
我想知道If[MemberQ[co,{#1,#2}],1,Infinity] &这个纯函数的参数是什么,{#1,#2}到底指的是什么?
co = {{1,4},{1,3},{2,3},{2,4}}
co = Join[co,Map[Reverse,co]]
FindShortestTour[{1,2,3,4},
DistanceFunction -> (If[MemberQ[co,{#1,#2}],1,Infinity] &)]
我想知道If[MemberQ[co,{#1,#2}],1,Infinity] &这个纯函数的参数是什么,{#1,#2}到底指的是什么?
![关于mathematica纯函数的一个问题](/uploads/image/z/17436367-55-7.jpg?t=%E5%85%B3%E4%BA%8Emathematica%E7%BA%AF%E5%87%BD%E6%95%B0%E7%9A%84%E4%B8%80%E4%B8%AA%E9%97%AE%E9%A2%98)
If[MemberQ[co, {#1, #2}], 1, Infinity] &这个纯函数的参数是{#1, #2}
{#1,#2}指的是相邻的两个点.
DistanceFunction -> (If[MemberQ[co, {#1, #2}], 1, Infinity] &)
定义:相邻的两个点的距离为1,不相邻的两个点的距离为Infinity.
定义4 个点
co = {{1, 4}, {1, 3}, {2, 3}, {2, 4}}
定义8 个点
co = Join[co, Map[Reverse, co]]
FindShortestTour[{1, 2, 3, 4},...
找到一个访问 {1, 2, 3, 4} 的最短路径.
再问: 这个我咋去找这个纯函数作用的对象呢,If[MemberQ[co, {#1, #2}], 1, Infinity] &,符号&放到最后了,我就不知道#1,#2到哪里去找了
再答: mathematica的说明太少,只能根据有限的例子来体会。 我认为,这个纯函数作用的对象是co中的{1, 2, 3, 4}四个点,即{1, 4}, {1, 3}, {2, 3}, {2, 4}。 用 co = {{1, 4}, {1, 3}, {2, 3}, {2, 4}} co = Join[co, Map[Reverse, co]] FindShortestTour[{1, 2, 3, 4}, DistanceFunction -> (If[MemberQ[co, {#1, #2}], 1, Infinity] &)] co[[Last[%]]] Graphics[Line[%]] 可以看出来。
{#1,#2}指的是相邻的两个点.
DistanceFunction -> (If[MemberQ[co, {#1, #2}], 1, Infinity] &)
定义:相邻的两个点的距离为1,不相邻的两个点的距离为Infinity.
定义4 个点
co = {{1, 4}, {1, 3}, {2, 3}, {2, 4}}
定义8 个点
co = Join[co, Map[Reverse, co]]
FindShortestTour[{1, 2, 3, 4},...
找到一个访问 {1, 2, 3, 4} 的最短路径.
再问: 这个我咋去找这个纯函数作用的对象呢,If[MemberQ[co, {#1, #2}], 1, Infinity] &,符号&放到最后了,我就不知道#1,#2到哪里去找了
再答: mathematica的说明太少,只能根据有限的例子来体会。 我认为,这个纯函数作用的对象是co中的{1, 2, 3, 4}四个点,即{1, 4}, {1, 3}, {2, 3}, {2, 4}。 用 co = {{1, 4}, {1, 3}, {2, 3}, {2, 4}} co = Join[co, Map[Reverse, co]] FindShortestTour[{1, 2, 3, 4}, DistanceFunction -> (If[MemberQ[co, {#1, #2}], 1, Infinity] &)] co[[Last[%]]] Graphics[Line[%]] 可以看出来。