怎么互换坐标轴

duderi

怎么能将下面的图形的横轴和纵轴互换？

1. ClearAll["Global`*"]
   
2. nv = 0.001;  chi = 0.1;  detF0 = lambda0^3;
   
3. mu0KT[lambda0_] =
   
4.   nv*(1/lambda0 - 1/detF0) + Log[1 - 1/detF0] + 1/detF0 + chi/detF0^2;
   
5. lambda0 = Table[i, {i, 1.5, 3.5, 0.05}];
   
6. Plot[mu0KT[lambda0], {lambda0, 1.5, 3.5}, PlotRange -> All,
   
7. Frame -> True]

复制代码

TBE_Legend

1# duderi

1. 
   
2. ClearAll["Global`*"]
   
3. nv = 0.001; chi = 0.1; detF0 = lambda0^3;
   
4. mu0KT[lambda0_] =
   
5.   nv*(1/lambda0 - 1/detF0) + Log[1 - 1/detF0] + 1/detF0 + chi/detF0^2;
   
6. lambda0 = Table[i, {i, 1.5, 3.5, 0.05}];
   
7. fig = Plot[mu0KT[lambda0], {lambda0, 1.5, 3.5}, PlotRange -> All,
   
8.   Frame -> True]
   
9. ListLinePlot[
   
10. Reverse /@ (Cases[InputForm[fig], Line[x_] -> x, Infinity][[1]]),
    
11. Frame -> True]
    

复制代码

AeroMusic

You can use Replace x->y and Replace y->x.

Simple ?

duderi

谢谢TBE_Legend ！

AeroMusic，能否具体点？谢谢！

waynebuaa

3# AeroMusic
是马甲吧？

TBE_Legend

3# AeroMusic
是马甲吧？
waynebuaa 发表于 2010-8-10 10:04

我看是，英文风格那叫一个像！

说道英语，推荐Wayne兄个好的英语网站 http://forum.putclub.com/index.php ， 上面基本都是专8过了的人， 气氛也好。

waynebuaa

6# TBE_Legend
呵呵，多谢。
俺浏览国外网站，看软件文档都是没有障碍的，基本上不看国内的英语网站。

不过，普特网我还是很怀旧的，我高中那会常进去下载mp3，^ _ ^

waynebuaa

刚才试了好几遍，还用了我以前的注册邮箱，还是找不回我的账号，:(

waynebuaa

我推荐你一个网站吧，我以前常去的地方：
http://www.yeeyan.org/

专门翻译国外信息的网站

duderi

1. ClearAll["Global`*"]
   
2. nv = 0.001; chi = 0.1; detF0 = lambda0^3;
   
3. mu0KT[lambda0_] =
   
4.   nv*(1/lambda0 - 1/detF0) + Log[1 - 1/detF0] + 1/detF0 + chi/detF0^2;
   
5. lambda0 = Table[i, {i, 1.5, 3.5, 0.05}];
   
6. x = Replace[lambda0, lambda0 -> mu0KT[lambda0]];
   
7. y = Replace[mu0KT[lambda0], mu0KT[lambda0] -> lambda0];
   
8. ListLinePlot[Transpose[{x, y}], PlotRange -> All, Frame -> True]
   

复制代码

谢谢AeroMusic

TBE_Legend

9# waynebuaa

非常感谢！一级棒，很给力！

ggggwhw

10# duderi
看似在多绕路了啊.

1. 
   
2. ClearAll["Global`*"]
   
3. nv = 0.001; chi = 0.1; detF0 = lambda0^3;
   
4. mu0KT[lambda0_] =
   
5.   nv*(1/lambda0 - 1/detF0) + Log[1 - 1/detF0] + 1/detF0 + chi/detF0^2;
   
6. lambda0 = Table[i, {i, 1.5, 3.5, 0.05}];
   
7. Plot[mu0KT[lambda0], {lambda0, 1.5, 3.5}, PlotRange -> All,
   
8. Frame -> True]
   
9. ListLinePlot[Transpose[{mu0KT[lambda0], lambda0}], PlotRange -> All,
   
10. Frame -> True]

复制代码

duderi

ggggwhw:非常感谢！

这个最好！

chungyuandye

1. 
   
2. ListLinePlot[Reverse[#]&/@Plot[mu0KT[lambda0],{lambda0,1.5,3.5},PlotRange->All][[1,1,3,2,1]],Frame->True]
   

复制代码

chyanog

myPlot：

1. 
   
2. ParametricPlot[{mu0KT[x], x}, {x, 1.5, 3.5},
   
3. AspectRatio -> 1/GoldenRatio, Frame -> 1]
   

复制代码

1. 
   
2. ContourPlot[x == mu0KT[y], {x, -0.03, 0}, {y, 1.5, 3.5}]
   

复制代码

duderi

谢谢 chyanog

很简洁