Đến nội dung


Hình ảnh
- - - - -

[Đã xong] lisp tính toán các đại lượng điện


  • Please log in to reply
2 replies to this topic

#1 hienvuonggia

hienvuonggia

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 27 July 2007 - 10:46 AM

Ai có chương trình tính toán các đại lượng điện không cho em với, thí dụ tính dòng điện của động cơ, tính tiền điện cấp,... em làm về điện nên rất cần.
giúp em với không em chết mất

em cần code lisp tính toán các đại lượng điện như dòng điện I, điện áp U, công suất P...

Cụ thể:
- Nhập thông số từ bán phím các đại lượng: công suất P, điện áp U, hệ số k=1.732...
- Chạy công thức tính toán dòng điện I: I=P/U*k*0.8
- Hiện kết quả tính.
(nếu tốt nhất anh viết cho ra giao diện thì tốt quá)
Giúp với không mới làm tính toán lại phải lôi cái calculator của window ra cộng cộng trừ trừ mệt quá. :s_dead:
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 27 July 2007 - 02:07 PM

Sao bạn không dùng excel lúc tính toán, chỉ cần nhấn alt+tab là bạn có thể chuyển qua lại giữa 2 chương trình?

Bạn dùng AutoCAD đời bao nhiêu? nếu là đời 2005 trở đi, bạn hoàn toàn có thể dùng đối tượng table của AutoCAD, hoặc dùng QuickCal của AutoCAD!

QuickCal của AutoCAD đúng là cái bạn cần cho trường hợp này, đỡ phải lập lisp. Vì ngày mai, có thể bạn lại cần tính thêm số tiền điện trong 1 giờ, hiệu điện thế,... thì lại phải viết lại lisp mới.

Nếu không quen dùng QuickCal, bạn có thể tạo 1 đối tượng table trong AutoCAD rồi lưu công thức của bạn. Sau đó chỉ việc edit table thì kết quả sẽ tự động thay đổi.

Tôi vẫn nghĩ là: chỉ dùng lisp khi mọi biện pháp khác không thể làm được hoặc làm không hiệu quả. Và trong trường hợp này, mặc dù lisp vẫn rất đơn giản, nhưng bạn không nên dùng lisp. Mã lisp dưới đây sẽ giúp bạn làm điều trên, nhưng chắc chắn nó không tốt bằng các phương pháp đã giới thiệu ở trên, tên hàm là TI:

(defun c:TI()
(setq
P (getreal "\nNhap vao P: ")
U (getreal "\nNhap vao U: ")
k (getreal "\nNhap vao k: ")
)
(textscr)
(princ "\nI=")
(princ (* (/ P U) k 0.8))
(princ)
)
  • 0

#3 interwar1283

interwar1283

    biết dimcontinue

  • Vip
  • PipPipPipPipPip
  • 374 Bài viết
Điểm đánh giá: 211 (khá)

Đã gửi 01 August 2007 - 01:19 PM

không nên để cad làm quá nhiều việc, như vậy đôi khi có nhiều thứ ở trong đầu quá mà không nhớ hết, quả thực cad vẫn còn mênh mông nhưng hay để những phầm mềm chuyên nghiệp hơn, rễ dàng làm giúp bạn điều đó hơn.
  • 0