问题[loops](coding)

我正在尝试了解在 GAMS 中创建递归动态模型的正确方法。为此，我制作了一个由 2 个线性方程组成的玩具示例（又称蛛网模型）。现在它从随机点开始P(t=1)=40并移动到平衡点（系统解）。

t在循环内运行带有索引的简单代码似乎有些棘手。GAMS 总是抱怨 (!)：

错误 50：循环控制指数出现在模型方程中

我一直在查看其他代码片段（例如），但找不到完整的示例来重现。玩弄代码时，我刚刚将另一个z和 循环放入 中z。我工作正常。

到目前为止一切顺利，但请注意 howt仍然在循环内。我有点困惑。（至少我不知道这种编码的副作用。）

Set t /t1*t10/
 * HERE IS THE TRICK
    z /z1*z10/;

Parameters a /100/, b /2/, c /20/, d /1/;

Variables P(t), Qd(t), Qs(t), obj;

Positive Variables P, Qd, Qs;

Equations Demand(t), Supply(t), Equilibrium(t), Objective; 
    Demand(t).. Qd(t) =E= a - b * P(t);
    Supply(t).. Qs(t) =E= c + d * P(t-1);
    Equilibrium(t).. Qd(t) =E= Qs(t);
    Objective.. obj =E= 1; 

P.l('t1') = 40;

Model cobwebModel /all/;

Loop(z,
    Solve cobwebModel using LP maximizing obj;
    P.l(t+1) = (a - c + d * P.l(t)) / (b + d);
);

问题是：如何重构上述代码以使其符合适当的 GAMS 风格并准备扩展？

我目前正在尝试用 MASM 汇编语言编写一个程序，该程序将根据用户输入的整数值打印出一系列直角三角形。例如，如果用户输入的是 3，则程序将输出：

*

*  * 

*  *  *

-

*  *  *

*  *

*

-

      *

   *  *

*  *  * 

-

*  *  *

   *  *

      *

我已经弄清楚了除第三个三角形之外的所有三角形。我遇到了spaces1三角形 3 以下的无限循环。程序将正确打印出三角形，直到它达到比用户整数值小一的值，然后它会无限循环。我已经研究这个问题一段时间了，但我不知道如何修复这个错误。这是我的代码：

org 100h      

.model small

.stack 16

.data
; question the user is asked
input db "Enter the size for the triangles between 3 and 9, or 0 to quit $"
size dw ?

.code

main proc
    mov AX, @data                           ; move location of data segment into AX
    mov DS, AX                              ; points ds register at data segment
    
    prompt: 
        mov AH, 09h                         ; opcode to print string
        lea DX, input                       ; string to print out
        int 21h
        
        mov AH, 01h                         ; opcode to read in single char
        int 21h
        cmp AL, '0'                         ; check to see if user wants to quit
        je exit
        
        sub AL, '0'                         ; convert user input to literal value
        mov AH, 0                           ; blank out top half of AX
        mov size, AX                        ; make copy of user input as literal value     
        
        mov CX, AX
        mov BX, 1                           ; sets up BX register for star counter loop    
        
        call crlf                               
        
    ; First Triangle
    lines1: 
        push CX                             ; store the outer (lines) loop
        mov CX, BX                          ; the number of stars to print out
        
        stars1: 
            mov AH, 02h                     ; opcode to print string
            mov DL, '*'                     ; char to print out
            int 21h   
            
        loop stars1                         ; end loop
        
        call crlf
        inc BX                              ; increment BX (stars)
        pop CX                              ; recover value from CX for the outer lines loop
        
    loop lines1                             ; end loop
       
    call crlf
    mov CX, size                            ; reload CX with copy of size for next triangle
    mov BX, 1     
    
    ; Second Triangle   
    lines2:
        push CX                             ; store the outer (lines) loop    
        
        stars2: 
            mov AH, 02h                     ; opcode to print single char
            mov DL, '*'                     ; char to print out
            int 21h              
            
        loop stars2                         ; end loop
        
        call crlf                   
        pop CX                              ; recover value for outer loop
        
    loop lines2                             ; end loop   
    
    call crlf                               ; call crlf proc
    mov CX, size                            ; reload CX with copy of size for next triangle
    mov BX, 1                               ; set up BX for star loop
    
    ; Third Triangle
    lines3:
        push CX                             ; Store the outer loop counter
        mov CX, size                        ; Calculate spaces needed
        sub CX, BX                          ; Adjust CX for the number of spaces

        spaces1:
            mov AH, 02h                     ; Opcode to print single char
            mov DL, ' '                     ; Print a space
            int 21h
        loop spaces1                        ; End loop for spaces

        mov CX, BX                          ; Set number of stars for this line
        stars3:
            mov AH, 02h                     ; Opcode to print single char
            mov DL, '*'                     ; Print a star
            int 21h
        loop stars3                         ; End loop for stars

        call crlf                           ; Move to the next line
        inc BX                              ; Increment the number of stars for the next line
        pop CX                              ; Restore outer loop counter

    loop lines3                             ; End outer loop

    call crlf                               ; call crlf proc
    mov CX, size                            ; set up CX for fourth triangle
    mov BX, 1                               
    
    ; Fourth Triangle
    lines4:
        push CX                             ; store copy of CX for outer loop       
        mov CX, BX                          ; set up number of spaces for spaces loop
        
        spaces2:
            mov AH, 02h                     ; opcode to print char
            mov DL, ' '                     ; char to print out
            int 21h
        loop spaces2                        ; end loop
        
        pop CX                              ; recover CX for stars loop
        push CX                             ; for outer lines loop
        
        stars4:   
            mov AH, 02h                     ; opcode to print char
            mov DL, '*'                     ; char to print out
            int 21h   
        
        loop stars4                         ; end loop   
        
        call crlf
        
        inc BX                              ; increment BX for next line 
        pop CX                              ; recover value for outer lines loop
    
    loop lines4
    
    call crlf                               ; call crlf proc
    mov CX, size                            ; set up CX for fourth triangle
    mov BX, 1   
    
    exit:
        mov AX, 4C00h
        int 21h
                                                               
main endp

crlf proc
    mov AH, 02h                             ; opcode to print single char
    mov DL, 13                              ; ASCII carriage return
    int 21h
    mov DL, 10                              ; ASCII line feed
    int 21h
    ret

crlf endp
end main

这是问题的屏幕截图。在程序中，它在第 92 行和第 95 行之间循环。spaces1 有人能给我指出正确的方向吗？谢谢！:)

我是 Haskell 新手 :)。我想从 IO 中迭代读取一个元素，如果存在，则从列表中删除该元素。在其他情况下，重复读取直到输入的元素在列表中。我有以下代码：

import Data.List (delete)

main = do
let initialDieRoll = [23,45,98,34]
strength <- askStrength
let dieRollWithoutStrength = removeStrengthFromDieRollLoop strength initialDieRoll
print dieRollWithoutStrength

removeStrengthFromDieRollLoop :: Int -> [Int] -> [Int]
removeStrengthFromDieRollLoop = removeStrengthFromDieRoll

removeStrengthFromDieRoll :: Int -> [Int] -> [Int]
removeStrengthFromDieRoll strength dieRoll = do
if strength `elem` dieRoll then
  delete strength dieRoll
else do
  "Please, choose an element from the initial die roll"
  newStrength <- askStrength
  removeStrengthFromDieRollLoop askStrength dieRoll


askStrength :: IO Int
askStrength = do
putStr "Strength : "
readLn::IO Int

但是，当我请求新的强度时，出现以下错误：

Couldn't match type ‘IO’ with ‘[]’
  Expected: [Int]
  Actual: IO Int
In a stmt of a 'do' block: newStrength <- askStrength
In the expression:
do "Please, choose an element from the initial die roll"
   newStrength <- askStrength
   removeStrengthFromDieRollLoop askStrength dieRoll
In a stmt of a 'do' block:
  if strength `elem` dieRoll then
    delete st

最好的处理方法是什么？如何修复错误？如果值不在初始列表中，每次请求值循环的最佳方法是什么？谢谢。

我想知道是否可以使用 Ansiblewhen在循环中改变的条件下测试 2 个值。

disksizefromjson是我从 json 文件中提取的变量（当我删除when条件时，这个值被正确改变）。

item['Size']是我使用 powershell 命令从上一个任务中提取的变量。

---
- name: get disk info on windows vm 
  ansible.windows.win_powershell:
    script: |
      Get-ciminstance win32_volume -Filter DriveType=3 | where-object{$_.Label -notlike "*Reserved*" -and $_.SystemVolume -ne $true} | Select-Object Name, Label, FileSystem, BlockSize, @{'Name'='Size'; 'Expression'={[math]::Ceiling($_.Capacity / 1GB)}}, @{'Name'='Freespace'; 'Expression'={[math]::Ceiling($_.Freespace / 1GB)}}, @{'Name'='Free'; 'Expression'={[math]::Ceiling(($_.Freespace * 100)/$_.Capacity)}} | Sort-Object Name
  register: diskNewVm

- name: test disk size
  set_fact:
    disksizefromjson: "{{ diskinfosfromjson | from_json | selectattr('Name', 'equalto',  item['Name']) | map(attribute='Size') | first | default(10) }}"
  when: item['Size'] > disksizefromjson
  loop: "{{ diskNewVm.output }}"

这会导致以下错误：

The conditional check 'item['Size'] > disksizefromjson' failed. The error was: error while evaluating conditional (item['Size'] > disksizefromjson): 'disksizefromjson' is undefined

当我删除该when条件时，disksizefromjson定义就很好了......

那么，when 条件中可能有 2 个变量吗？

我正在撰写一篇科学医学论文，使用 HADS-Score 评估患者的焦虑和抑郁程度。该评分由 14 个项目组成，分为两个子量表（HADS-D、HADS-A），每个子量表有 7 个项目，可能的值从 0 到 3 分。我有缺失数据，想替换它们。根据评分手册，如果一个子量表中有多个缺失项目，我必须删除该观察结果。如果每个子量表只缺少一个项目，我可以用当前六个项目的平均值替换缺失项目。我将每个观察结果的 HADS-Score 项目存储在以下变量中：

• 子量表 HADS-D（加起来等于总子量表 = hads_anx_score）。变量：hads_tense_rec、hads_glad_rec、hads_omen_rec、hads_laugh_rec、hads_trouble_rec、hads_happy_rec、hads_relax_rec
• 子量表 HADS-A（加起来等于总子量表 = hads_depr_score）。变量：hads_limited_rec、hads_scary_rec、hads_looks_rec、hads_restless_rec、hads_future_rec、hads_panic_rec、hads_enjoy_rec

我把代码分解为以下步骤：

1. 初始化子量表分数：为子量表 HADS-D 和 HADS-A 创建变量。

2. 识别缺失值。我创建了一个新变量is_missing_来识别它是否缺失。

3. 使用 来计算缺失项目，egen以rowtotal计算每个子量表中缺失项目的数量。

4. 删除观察结果：我删除了任一子量表中缺少多个项目的观察结果。

5. 替换每个子量表中缺失的项目。如果某个项目缺失，则用子量表中其他六个项目的平均值替换。

6. 计算总分：将各分量表的分数相加，得到最终分数。

问题：不知何故，我的代码没有用我在步骤 5中创建的循环替换每个子量表中缺失的项目，并且留下了缺失的数据（==。）

*STEP 1: Initialize the HADS-A and HADS-D subscales
gen hads_anx_score = .
gen hads_depr_score = .

* STEP 2:Loop over each observation
foreach var in hads_tense_rec hads_glad_rec hads_omen_rec hads_laugh_rec hads_trouble_rec hads_happy_rec hads_relax_rec hads_limited_rec hads_scary_rec hads_looks_rec hads_restless_rec hads_future_rec hads_panic_rec hads_enjoy_rec {
    gen is_missing_`var' = missing(`var')
}

* STEP 3: Calculate the number of missing items per subscale
egen missing_hads_anx = rowtotal(is_missing_hads_tense_rec is_missing_hads_glad_rec is_missing_hads_omen_rec is_missing_hads_laugh_rec is_missing_hads_trouble_rec is_missing_hads_happy_rec is_missing_hads_relax_rec)

egen missing_hads_depr = rowtotal(is_missing_hads_limited_rec is_missing_hads_scary_rec is_missing_hads_looks_rec is_missing_hads_restless_rec is_missing_hads_future_rec is_missing_hads_panic_rec is_missing_hads_enjoy_rec)

* STEP 4. Drop observations with more than one missing item in any subscale
drop if missing_hads_anx > 1 | missing_hads_depr > 1

**STEP 5.** Replace single missing items with the mean of the present six items
foreach var in hads_tense_rec hads_glad_rec hads_omen_rec hads_laugh_rec hads_trouble_rec hads_happy_rec hads_relax_rec {
    qui replace `var' = (hads_tense_rec + hads_glad_rec + hads_omen_rec + hads_laugh_rec + hads_trouble_rec + hads_happy_rec + hads_relax_rec - `var') / 6 if is_missing_`var' == 1 & missing_hads_anx == 1
}

foreach var in hads_limited_rec hads_scary_rec hads_looks_rec hads_restless_rec hads_future_rec hads_panic_rec hads_enjoy_rec {
    qui replace `var' = (hads_limited_rec + hads_scary_rec + hads_looks_rec + hads_restless_rec + hads_future_rec + hads_panic_rec + hads_enjoy_rec - `var') / 6 if is_missing_`var' == 1 & missing_hads_depr == 1
}

现在，如果我运行**第五步**，仍然有缺失的数据（例如 hads_limited_rec == . ）。

我正在使用for循环来迭代整数范围，例如：

for (0..256) |i| {

我的问题是我需要i是 类型u21，但目前是。我可以直接在循环内usize使用手册来执行它，但我想知道是否有更好的方法。@intCast

我希望下面的方法可以工作，但它仍然给我一个usize：

for (@as(u21, 0)..256) |i| {

有什么建议可以优雅地实现这一点吗？

有人能够确定发生了什么事吗？这似乎是某种类型的循环错误，但我自己也不确定。

我收到的“异常：未找到范围”错误消​​息引用了以下行： rows.forEach(function(row) 和 var eventEmail = eventsData.getRange(row[5]).getValue();。

我的列设置为： 复选框列 标题 开始日期 结束日期 描述 电子邮件 联系人

在此输入图像描述

function SendEmails ()
{
// Extract events data
  var eventsData = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("SHEET_NAME"); 
  var rows = eventsData.getDataRange().getValues();
  var templateText = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("SHEET_NAME_2").getRange(1, 1).getValue();

// Discount header row
  var headers = rows.shift();
 
// Identify only rows that are checked to apply function and run log
  rows.forEach(function(row) 
  {
    if(row[0])
    {
      Logger.log(JSON.stringify(row));

// Extract reminder template and send reminder emails for selection
      var eventEmail = eventsData.getRange(row[5]).getValue();
      var eventTitle = eventsData.getRange(row[1]).getValue();
      var eventPOC = eventsData.getRange(row[6]).getValue();
      var eventDesc = eventsData.getRange(rows[4]).getValue();
      var messageBody = templateText.replace("{name}",eventPOC).replace("{title}",eventTitle).replace("{description}",eventDesc);
      var subjectLine = "Reminder: " + eventTitle + " Upcoming Event";

      MailApp.sendEmail(eventEmail, subjectLine, messageBody);
    }
  });
}

在我进行一些编辑之前，此函数一直有效，以便它仅针对选中复选框的行运行。

它似乎成功地识别了已选中复选框的行。它似乎也贯穿了第一个循环，但之后发生了一些我无法识别的事情。

我尝试更改范围引用以确保引用正确的列。

我很感激任何指导！

我有一个包含多个段落的文件，这些段落使用括号作为分隔符，如下所示

{
KEYWORD
a = 1
b = 2
c = 3
}
{
d = 4
KEYWORD
e = 5
f = 6
}

我想循环每个段落并将其分配给变量 $foo 同时保留换行符，因此 echo $foo 将导致该段落以多行格式输出。处理 $foo 的输出后，例如echo $foo | grep bar程序应该转到下一段并覆盖 $foo

我一直在使用 awk，因为它似乎是这种情况下最好的工具，但我不知道如何执行某种 while 循环，以便我可以单独处理每个段落。

到目前为止我所拥有的是：

grep -Pzo "{[^}]*KEYWORD[^}]*}" FILENAME | awk "/{/{flag=1; 

paragraph=\"\"; next} /}/{flag=0; print paragraph} flag {paragraph = 

paragraph \$0 \"\\n\"}"

这会产生像这样整齐的段落

KEYWORD
a = 1
b = 2
c = 3

d = 4
KEYWORD
e = 5
f = 6

我陷入困境的是，我想在继续第 2 段之前对第 1 段执行进一步的操作。

我最接近的解决方案是将结果写入数组，但后来我丢失了该段落，所有内容都在一行上，并且我无法进行我想要的匹配后处理。

更新：

本着有不止一种方法可以做到这一点的精神，如果你只有一把锤子，那么一切看起来都像钉子，我提供我的解决方案：

# Read paragraphs into an array
while IFS= read -r paragraph; do
    paragraphs+=("$paragraph")
done < <(awk '/\{/{flag=1; paragraph=""; next} /\}/{flag=0; print paragraph} flag {paragraph = paragraph $0}' testoutput.txt)

# Print each paragraph separately
for ((i=0; i<${#paragraphs[@]}; i++)); do
    # Assign each paragraph to a variable using eval
    eval "foo_$i=\"${paragraphs[$i]}\""

    # Print the variable recreating the line breaks
    echo "Variable foo_$i:"
    eval "echo \"\$foo_$i\"|sed 's/\s\{2,\}/\n/g'"
done

成功的关键是使用 sed's/\s\{2,\}/\n/g'而不是\sor\s+或一个或多个 vs 两个或多个。

我是 TCL 新手，正在尝试设置一个简单的递归循环。我的代码一直运行到递归完成为止，然后它开始抛出错误。这是我的代码：

set testNum 0

proc raiseTest { a } {
    puts $a
    if { $a == 5 } {
        puts "Done!"
    } elseif { $a != 5 } {
        incr a
        puts "Going!"
        [raiseTest $a]
    } 
    
}

[ raiseTest $testNum ]

一旦 proc 达到 5 并完成最后一个循环，我就会遇到无效的命令名“”错误，然后是大量从内部调用的错误，我不知道为什么。有人可以帮我吗？

我对此失去了理智（因为我不是一个非常有逻辑的人）。

铁锈游乐场

我无法更改数据部分。

从下面的代码返回的字符串A = 1 AND (B = 2 OR C = 3 OR D = 4 OR )不是我需要的（A = 1 AND (B = 2 OR C = 3 OR D = 4)）。

我不明白的是如何避免最后一个“OR”。

我该如何修复以下代码？

enum Token {
    Str(&'static str),
    Value(&'static str),
    StartGroup(&'static str),
    EndGroup,
}

fn main() {
    let data: Vec<Vec<Token>> = vec![
        vec![Token::Str("A = "), Token::Value("1")],
        vec![Token::Str(" AND ("), Token::StartGroup(" OR ")],
        vec![Token::Str("B = "), Token::Value("2")],
        vec![Token::Str("C = "), Token::Value("3")],
        vec![Token::Str("D = "), Token::Value("4")],
        vec![Token::EndGroup, Token::Str(")")],
    ];

    let result = construct_string(data);

    assert_eq!("A = 1 AND (B = 2 OR C = 3 OR D = 4)", result);
}

fn construct_string(tokens: Vec<Vec<Token>>) -> String {
    let mut result = String::new();

    let mut current = String::new();
    let mut next = String::new();

    for token in tokens {
        for part in token {
            match part {
                Token::Str(str) => {
                    result.push_str(str);
                }
                Token::Value(val) => {
                    result.push_str(val);
                }
                Token::StartGroup(group) => {
                    next = group.to_string();
                }
                Token::EndGroup => {
                    current = String::new();
                    next = String::new();
                }
            }
        }

        if !current.is_empty() {
            result.push_str(&current);
        }

        current = next.to_string();
    }

    result
}