Mathematica : 같은 그래프에 행렬의 여러 줄을 수직으로 그릴 때

-1

나는 Theta라는 이름의 배열을 100 줄과 400 열로 만들었습니다. 각 항목은 숫자입니다. 내가 뭘 원하는 라인 (100)의 모든 숫자 대 2 호선Mathematica : 같은 그래프에 행렬의 여러 줄을 수직으로 그릴 때

의 모든 숫자 대 1 호선

0.02의 모든 숫자 대

0.01을 나타내는 그래프 ...

기본적으로 모든 줄은 수직으로 표시됩니다.

각 줄마다이 작업을 수행 할 수 있지만 모든 작업을 동시에 수행하는 방법을 모르겠습니다. 그리고 손으로 100 줄 모두를하는 것은 분명히 갈 길이 아닙니다.

내 코드는 지금까지 있습니다 :

data = Table[Theta[i][j], {i, 100}, {j, 400}]; 

Line1 = Table[data[[1, i]], {i, 1, 400}]; 

ListPlot[{MapIndexed[{0.01, #} &, Line1]]

편집 : 마침내이 일을 관리했습니다 확인. 사람이 관심 있다면

, 여기 간다 :

여기

data = Table[Theta][i][j], {i, 100}, {j, 400}]; 
final = {}; 
For[g = 1, g < 100, g++, 
    Line[g] = MapIndexed[{0.01*g, #} &, Table[data[[g, i]], {i, 1, 400}]]; 
    final = Join[final, Line[g]]; 
] 
ListPlot[final]

출처

2012-10-19 migasll

는 여기에 의아해 조금, 당신이 게시 코드의 두 번째 부분은 일부 구문 문제를 갖고있는 것 같아요. 특히'Line'은 Mathematica에서 예약 된 기호이므로'Line [g] = ... '는 에러를 발생시킵니다. 첫 번째 코드는'{{Theta [1] [1], Theta [1] [2], Theta [1] [3], ...} 형태의 'data' [2] [1], Theta [2] [2], ...}, ...}', 숫자 값이 아닙니다. 당신이 의도 한대로 작동한다는 것이 행복합니까? –

난수 40 칼럼 10 개 라인의 약간 작은 세트를 사용하는 예시적인 응답이 0.1 플롯, 0.2, 0.3, ... , 0.01 간격 대신 1. 여기

data = Table[x + RandomReal[5], {x, 1, 10}, {y, 1, 40}];

데이터가 그려입니다 :

ListPlot[ MapThread[ Function[x, {#2, x}] /@ #1 &, {data, Range[0.01, 1, .1]}]]

출처

2012-10-19 08:30:52

Mathematica : 같은 그래프에 행렬의 여러 줄을 수직으로 그릴 때

답변

관련 문제