Question

如何将直角坐标系坐标转换为圆坐标系坐标vb.net

图一的X轴是频率，Y轴是dB值，一系列的点画的曲线。
图二的圆半径为图一的Y轴，问题就是如何将图一的点的坐标转换为图二的坐标，并绘制曲线。

Answer 1

Dim g As Graphics = Me.PictureBox1.CreateGraphics
g.TranslateTransform(x, y)'实现坐标平移，即把圆中心作为了坐标原点了
g.ScaleTransform(1, -1) 'X轴不变，反转Y轴
然后就不多说了，数学问题

追问

是将图一中的点 比如A(X,Y),到图二中的坐标怎么显示？

追答

是啊，图2就是极坐标系啊，就是按我说的的方式啊，然后把其图一中的x,y转化为图2的极坐标

可惜你的图看不清楚啊-----放大了也看不清楚
你的圆周写的什么看不到

追问

圆周上的是角度数。比如图一中点A(200,30)表示A点的坐标（X--频率，Y--dB值），转化到圆坐标系中，即图二，点在什么位置A'(X?,Y?),也就是说，图一中的1条曲线，到图二中是1条类似于圆的封闭曲线，确切的说只要知道图一中的点，在图二中的坐标就行了。

追答

A（200，300）----A'(200,300)啊，只不过A'是极坐标罢了(表示角度是200，极径300），下面把A'(200,300)转换为图二中以x,y坐标系表示（在实现我第一次回到的基础上)
A'(200,300)----->A"(300*sin(200*pi/180),300*cos(200*pi/180)) -----这里是弧度而不是度

也就是A(x,y)------->A"(y*sin(x*pi/180),y*cos(x*pi/180))------------前提是先：
Dim g As Graphics = Me.PictureBox1.CreateGraphics
g.TranslateTransform(x, y)'实现坐标平移，即把圆中心作为了坐标原点了-----该处的x,y为圆心在要作图picture中的相对坐标
g.ScaleTransform(1, -1) 'X轴不变，反转Y轴

Answer 2

将横轴定义为角度，y定义为长度就可以实现了
，如果有具体数据我可以帮你出个图，这个不需要太多东西吧