你当然可以把它变成一个函数:
clemvars;CLC;
%用户永远不会被告知他们所选择的内容的含义
DISP（“选择1或2”）;
选择=输入（“\ ninput：”，“年代”）;
尽管〜ismember（选择，{' 1 '，' 2 '}）
选择=输入（“\ ninput：”，“年代”）;
结束
myfunction（选择）;%调用函数
％-----------------------------------------------------------
％是我猜的一个函数
功能myfunction(选择)
转变选择
案件' 1 '
cel =输入（"\ n在Celcious中输入温度转换为Ferenheit:"）;
％为什么只将功能限制为正数？
数学数学适用于否定数字
尽管（cel <0）
DISP（'输入一个正数，请'）;
cel =输入（"\ n在Celcious中输入温度转换为Ferenheit:"）;
结束
什么是格式化的文本输出直接转储到控制台的效用?
如果(移动电话> = 0)
Cel2FA =（CEL * 1.8）+ 32;
流('隐蔽：％.2f fahrenheit \ n'，Cel2FA）;
结束
案件' 2 '
fa =输入（'\ n输入华氏温度转换为Celcious:'）;
尽管（FA <0）
DISP（'输入一个正数，请'）;
fa =输入（"\ n在Celcious中输入温度转换为Ferenheit:"）;
结束
如果（FA> = 0）
fa2cel = (fa-32) / 1.8;
流(“以前:%。2 f Celcious \ n”，fa2cel）;
结束
结束
结束
．．．但我不认为它能改善多少。
我知道这可能只是作业，结构是由作业规定的。这种每次输入都以交互方式提示用户的模式是糟糕的设计，我不知道为什么老师喜欢教它。它没有对编程有用的输入或输出，而且它对所有I/O都依赖于直接的人工交互，这意味着它被优化为乏味且容易出现人为错误。
如果您想要一个更实用的函数来进行温度转换，那么您应该考虑代码和使用的效率和灵活性。从哪里开始?这个函数只需要一个数字输入和告诉它要进行什么转换的东西。决定一个方便的语法，然后出发。首先获取所有输入，转换数字，并准备输出。
功能varargout = tempconverter（tempin，convstring）
％tempout = tempconverter（tempin，conversiontype）
这描述了函数的行为和用法
％
％tempin是一个数字（标量或数组）
% converversiontype是以下其中之一:
% 'ctof'表示摄氏度到华氏度
% 'ftoc'表示华氏温度到摄氏温度
％
％如果使用scalar输入和没有输出参数调用，
％将打印转换的文本描述。
％
％另见：convtemp
转变低(convstring)
案件'FTOC'
tempout = (tempin-32) * 5/9;
案件'CTOF'
Tempout = 32 + (tempin*9/5);
否则
错误（'tempconverter：无效的转换类型％s'，convstring）
结束
如果Nargout == 0 && Isscalar（Tempin）
转变低(convstring)
案件'FTOC'
流('％.2F°F等于％.2F°C \ n'，tempin，tempout）
案件'CTOF'
流(' %。2f°C = %.2f°F\n'，tempin，tempout）
结束
别的
varargout {1} = tempout;
结束
上面的函数将提供标量或数组的转换，如果调用时没有输出，它将执行格式化良好的输出，只用于读取。
tempconverter (200'FTOC'）
t = tempconverter（[100 25 0 -40]，'CTOF'）
函数顶部的注释块是帮助大纲，描述了用法，这样用户就知道他们在做什么，而不是被要求盲目地选择一个数字。先写这个可能会帮助您决定哪种语法比较方便。
帮助tempconverter
如果要为该示例添加新的转换，则您需要的只是概要中的一个新行，以及两个开关结构中的每一个 - 5行中的一个新案例。它绝对可以比这更简单，但它是减少重复代码的开始。
也就是说，我确信这个例子没有直接满足你的作业的要求，但你可以在直接或概念上使用它来制作它的东西。
