user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  lea    -0x7a1000(%rsp),%r11
L86:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L86
  sub    $0x230,%rsp
  mov    %edi,-0x7a1224(%rbp)
  mov    %rsi,-0x7a1230(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0x7a1220(%rbp)
  jmp    L16
L92:
  movl   $0x0,-0x7a121c(%rbp)
  jmp    L84
L125:
  mov    -0x7a1220(%rbp),%edx
  mov    %edx,%eax
  shl    $0x2,%eax
  add    %edx,%eax
  add    %eax,%eax
  mov    %eax,%edx
  mov    -0x7a121c(%rbp),%eax
  add    %edx,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mov    -0x7a121c(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x7a1220(%rbp),%eax
  cltq
  imul   $0x3e8,%rax,%rax
  add    %rdx,%rax
  movsd  %xmm0,-0x7a1210(%rbp,%rax,8)
  addl   $0x1,-0x7a121c(%rbp)
L84:
  cmpl   $0x3e7,-0x7a121c(%rbp)
  jle    L125
  addl   $0x1,-0x7a1220(%rbp)
L16:
  cmpl   $0x3e7,-0x7a1220(%rbp)
  jle    L92
  movl   $0x1,-0x7a1220(%rbp)
  jmp    L65
L109:
  movl   $0x3,-0x7a121c(%rbp)
  jmp    L94
L20:
  mov    -0x7a1220(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x7a121c(%rbp),%eax
  sub    $0x3,%eax
  movslq %eax,%rcx
  movslq %edx,%rax
  imul   $0x3e8,%rax,%rax
  add    %rcx,%rax
  movsd  -0x7a1210(%rbp,%rax,8),%xmm1
  movsd  D29(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  mov    -0x7a121c(%rbp),%edx
  movslq %edx,%rcx
  mov    -0x7a1220(%rbp),%edx
  movslq %edx,%rdx
  imul   $0x3e8,%rdx,%rdx
  add    %rcx,%rdx
  mov    %rax,-0x7a1210(%rbp,%rdx,8)
  addl   $0x1,-0x7a121c(%rbp)
L94:
  cmpl   $0x3e7,-0x7a121c(%rbp)
  jle    L20
  addl   $0x1,-0x7a1220(%rbp)
L65:
  cmpl   $0x3e7,-0x7a1220(%rbp)
  jle    L109
  lea    D36(%rip),%rax
  mov    %rax,%rsi
  lea    D9(%rip),%rax
  mov    %rax,%rdi
  call   <fopen@plt>
  mov    %rax,-0x7a1218(%rbp)
  movl   $0x0,-0x7a1220(%rbp)
  jmp    L87
L124:
  movl   $0x0,-0x7a121c(%rbp)
  jmp    L126
L79:
  mov    -0x7a121c(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x7a1220(%rbp),%eax
  cltq
  imul   $0x3e8,%rax,%rax
  add    %rdx,%rax
  mov    -0x7a1210(%rbp,%rax,8),%rdx
  mov    -0x7a1218(%rbp),%rax
  movq   %rdx,%xmm0
  lea    D27(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <fprintf@plt>
  addl   $0x1,-0x7a121c(%rbp)
L126:
  cmpl   $0x3e7,-0x7a121c(%rbp)
  jle    L79
  mov    -0x7a1218(%rbp),%rax
  mov    %rax,%rsi
  mov    $0xa,%edi
  call   <fputc@plt>
  addl   $0x1,-0x7a1220(%rbp)
L87:
  cmpl   $0x3e7,-0x7a1220(%rbp)
  jle    L124
  mov    -0x7a1218(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    $0x0,%eax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L41
  call   <__stack_chk_fail@plt>
L41:
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: label: D29
type_guessed: f64
name: retrieve_data
arguments: label: D36
type_guessed: string
name: retrieve_data
arguments: label: D9
type_guessed: string
name: retrieve_data
arguments: label: D27
type_guessed: string

tool: D29: 1e-05

tool: D36: w

tool: D9: result.simple.txt

tool: D27: %f 

assistant: ```c
int main(int argc, char **argv) {
  double a[1000][1000];
  int i, j;
  FILE *ff;
  for (i = 0; i < 1000; i++) {
    for (j = 0; j < 1000; j++) {
      a[i][j] = 10 * i + j;
    }
  }
  for (i = 1; i < 1000; i++) {
    for (j = 3; j < 1000; j++) {
      a[i][j] = sin(0.00001 * a[i - 1][j - 3]);
    }
  }
  ff = fopen("result.simple.txt", "w");
  for (i = 0; i < 1000; i++) {
    for (j = 0; j < 1000; j++) {
      fprintf(ff, "%f ", a[i][j]);
    }
    fprintf(ff, "\n");
  }
  fclose(ff);
  return 0;
}
```