微波通信技术课程设计报告.docx

  1. 1、本文档共59页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
微波实验课设 姓 名:__ _ __ _王 韬__ __ _ __ 班 级:_________通信0803班_____ ____ 学 号:______ __2008010430______ ___ 微波通信技术课程设计报告 Smith圆图的软件设计 简要说明 Smith圆图是P.H.Smith于1939年在贝尔实验室发明的,它主要用于计算微波网络的阻抗、导纳及网络阻抗匹配设计,还可用于设计微波元器件。Smith圆图软件不仅适用于微波工程设计,亦可用于电磁场、微波技术及天线与电波传播等课程相关内容的教学,该软件通过形象的演示可以深刻理解圆图的应用。 微波网络的正弦稳态分析含有复数计算,运算十分繁琐和耗时。在计算机运算速度和内存不够发达以前,图解分析法得到长足发展,其中多年来应用最广的是Smith 圆图。在计算微波传输线输入阻抗、导纳及阻抗匹配等问题时,它不仅能避开繁琐的公式及复数运算,使工程设计中相关计算简单便捷,而且图解过程物理概念清晰,所得结果直观形象。随着计算机技术的飞速发展,图解法在计算精度上的固有缺陷日益显现,因为,圆图的计算精度取决于圆图中必须有足够的圆周数,而过多的圆周会导致图线过于密集,不便将阻抗、反射系数、电压驻波系数(VSWR )及电长度等相关数据从图上直接读出。通过对圆图构成的基本原理和应用问题的分析,利用现代计算机技术可以解决圆图计算精度等方面存在的问题,为此设计的Smith圆图软件既保留圆图计算直观、便捷的大众性,又满足工程设计中相关参数的计算精度。在计算机应用日益普及的今天,该软件特别适合电磁场、微波技术与天线等领域的教学和工程设计相关参数计算使用。 设计目的 通过具体的软件编程和多媒体制作,进一步加深对微波通信技术的理解和掌握,提高动手能力,提高解决实际问题的综合能力。 设计要求 计算结果以图形和数据并行输出,处理包括复数的矩阵运算。为使程序代码简单,执行运算速度快,计算精度高,选择MATLAB 软件作为设计技术平台较为理想(也可利用VC,VB等)。该软件数学表示、函数集丰富且功能强大、良好的用户界面以及许多函数本身会绘制图形且自动选取坐标刻度等显著优点,特别适用大量计算。利用MATLAB强大的作图功能容易画出完整的Smith 圆图。整个圆图软件分为用户图形界面模块、圆图计算模块、画图演示模块。上述: 大模块又进一步分解,其中用户图形界面模块分为:主页、主菜单;圆图计算模块分为反射系数计算、单支节匹配计算、输入阻抗计算以及整个Smith圆图;画图演示模块分为等归一化电阻圆、等归一化电抗圆、反射系数圆等;确定阻抗值在圆图上的位置、圆图的基本应用、求输入阻抗及其在圆图上的位置以及单支节匹配等问题。 实验结果 总结 这次课设的题目不简单,对于我来说,计算机语言学的不好,VB还只是在高中学过一些,只会一些简单的语句,所以只有去找有没有相关的资料,然后再研究,把代码的功能搞清楚,尽力去理解,更改了界面。并且对于微波圆图也进一步加深了印象,对于这种简单的方法产生了兴趣,我认为,每一次课设都能带给我一些新东西,不论最后得到了多少,也都比过去强一些。学到了新知识同时还得到了更深的知识,感觉很有意思。极深刻理解了所学的知识又学到了新的知识提高不少,希望以后多锻炼得到更高的提高。 附录: 1.源程序(包括调试程序) Private Sub Command1_Click() End End Sub Private Sub Command2_Click() If Command2.Caption = 显示波节 Then Command2.Caption = 显示波腹 Picture1.Line (500, 2400)-(2500, 2400), RGB(0, 0, 255) Else Command2.Caption = 显示波节 Picture1.Line (2500, 2400)-(4500, 2400), RGB(0, 255, 0) End If End Sub Private Sub Command3_Click() Picture1.Cls Picture1.Enabled = False Dim z0 As Double Dim rr As Double Dim rx As Double Dim gg As Double Dim gb As Double Dim rad As Double Dim rad1 As Double Dim rad2 As Double Dim tao As Double Dim pi As Double pi = 4 * Atn(1) rr = Val(Text3.Text) rx = Val(Text

文档评论(0)

新起点 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档