Đánh giá các ô song song trong Mathematica

Question

Tôi có hàng trăm tệp Mathematica dài và tôi muốn sử dụng đánh giá song song. Tôi có một bộ vi xử lý 2 x 4 lõi mỗi máy với bộ nhớ 16 Gb. Giấy phép Mathematica của tôi cho phép tôi chạy tối đa 2 hạt nhân chính với 1 trong số các bậc thầy có thể có 4 hạt nhân nô lệ (đây là cách giải thích của tôi sau khi tôi chơi với nó một lúc).

Tôi đã sử dụng để chạy mã của mình trong hai hạt nhân chính trong hai sổ ghi chép khác nhau. Để tăng tốc độ hơn nữa, tôi đã cố gắng đóng gói một vài ô với ParallelEvaluate[] và dường như nó hoạt động. Sau đó, tôi cũng có 4 bản sao của mã của tôi chạy không biết lẫn nhau thông qua một trong những hạt nhân chính, đó là tốt. (Tôi về cơ bản cố gắng chạy càng nhiều bản sao của mã của tôi/mathkernel song song càng tốt. Tôi không chụp cho bất cứ điều gì thực sự song song chưa).

Vì mã của tôi quá dài và phức tạp, tôi không muốn chỉnh sửa lại từng ô để làm cho chúng đánh giá song song. Có bất cứ điều gì huyền diệu tôi có thể đặt vào đầu của máy tính xách tay của tôi để mỗi tế bào được đánh giá sau đó sẽ được theo mặc định ParallelEvaluate[ ... cell contents.... ]?

Answer 1

Theo đề xuất của belisarius, $ Pre = ParallelEvaluate thực hiện chính xác những gì tôi muốn. Một vấn đề là khi tôi làm $ Pre = Identity để tắt nó đi vì vậy tôi có thể quay trở lại hạt nhân chính của tôi, mathematica vẫn cố gắng để đánh giá rằng trong hạt nhân nô lệ thay vì chủ và thất bại. Tôi đã giải quyết nó như sau: SetSharedVariable [parallelcontrol]; parallelcontrol = ParallelEvaluate; $ Pre: = parallelcontrol; ... mọi thứ được đánh giá trong nô lệ ở đây ...; parallelcontrol = Nhận dạng; .... tất cả mọi thứ quay trở lại được đánh giá trên tổng thể duy nhất ... Dưới đây là một hoạt động mẫu trên máy tính xách tay của tôi trong đó có 2 lõi:

LaunchKernels[] 

{KernelObject [1, "địa phương"], KernelObject [2, "địa phương"]}

$KernelID 

ParallelEvaluate[$KernelID] 

{1, 2}

SetSharedVariable[parcontrol]; $Pre := parcontrol; parcontrol = ParallelEvaluate 

Null [ParallelEvaluate]

$KernelID 

{1, 2}

parcontrol = Identity 

{Identity, nhận dạng}

$KernelID 

parcontrol = ParallelEvaluate 

ParallelEvaluate

$KernelID 

{1, 2}